pears.NetAPIProcs

CREATE PROCEDURE "pears"."NetAPIProcs"( IN "pWebUserID" CHAR(20),IN "pOwner" CHAR(50),IN "pRoot" CHAR(50) ) 
RESULT( "ProcName" CHAR(128),"ProcBody" long VARCHAR ) 
// IQXWeb
BEGIN
  SELECT "p"."proc_name","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" LIKE "pRoot"+'%' AND "u"."user_name" = "pOwner" AND "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 1
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetAPIProcs" IS 
{CREATE PROCEDURE pears.NetAPIProcs( IN pWebUserID CHAR(20),IN pOwner CHAR(50),IN pRoot CHAR(50) ) 
RESULT( ProcName CHAR(128),ProcBody long VARCHAR ) 
// IQXWeb
BEGIN
  SELECT p.proc_name,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 LIKE pRoot+'%' AND u.user_name = pOwner AND IQXNetHasPermission(pWebUserID,'APIDESIGN') = 1
END
}