====== pears.IQXNetAllowed ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>