pears.IQXNetAllowed

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQXNetAllowed" IS 
{CREATE FUNCTION 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
}