pears.NetAPIProc

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
}