pears.IQXNetAllowed

CREATE FUNCTION "pears"."IQXNetAllowed"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "ProcName" CHAR(100),IN "AllowedProcs" long VARCHAR ) 
RETURNS tinyint
BEGIN
  DECLARE "i" INTEGER;
  DECLARE "s" CHAR(100);
  SET "i" = 1;
  loop
    SET "s" = "isnull"("trim"("getline"("AllowedProcs","i")),'');
    IF "s" = '' THEN
      RETURN 0
    END IF;
    IF "ProcName" LIKE "s" THEN
      RETURN 1
    END IF;
    SET "i" = "i"+1
  END loop
END