====== 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>
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
</code>