====== pears.NetAPIProc ======
<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 procedure "pears"."NetAPIProc"( in "pWebUserID" char(20),in "pOwner" char(50),in "pName" char(50) ) 
result( "ProcBody" long varchar ) 
// IQXWeb
begin
  select "isnull"("p"."source","p"."proc_defn") from "sys"."sysprocedure" as "p" join "sys"."sysuser" as "u" on "p"."creator" = "u"."user_id"
    where "p"."proc_name" = "pName" and "u"."user_name" = "pOwner" and "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 1
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetAPIProc" IS 
{create PROCEDURE pears."NetAPIProc"(in pWebUserID char(20), in pOwner char(50), in pName char(50) ) 
result(ProcBody long varchar)
// IQXWeb
BEGIN
select isnull(p.source,p.proc_defn) from sys.sysprocedure p join sys.sysuser u on p.creator=u.user_id 
      where p.proc_name = pName and u.user_name=pOwner and IQXNetHasPermission(pWebUserID,'APIDESIGN') = 1;
END
}
</code>