SET CURRENT SQLID = 'S100447'; 00010009
-- DROP PROCEDURE A540769.PUBUTIL ; 00020013
CREATE PROCEDURE A540769.PUBUTIL 00030013
(IN CMDTEXT VARCHAR(254), 00040009
OUT CMDRESULT VARCHAR(32704)) 00050009
LANGUAGE REXX 00060009
EXTERNAL NAME WKUTIL 00070010
COLLID DSNREXDE 00080009
ASUTIME LIMIT 60 00090009
PARAMETER STYLE GENERAL 00100009
STAY RESIDENT NO 00110009
RUN OPTIONS 'TRAP(ON)' 00120009
WLM ENVIRONMENT DB2DSNR 00130009
SECURITY DB2 00140009
DYNAMIC RESULT SETS 1 00150009
COMMIT ON RETURN NO 00160009
; 00170009
COMMIT; 00180012
X 00190009
SET CURRENT SQLID = 'S100447'; 00200002
DROP PROCEDURE A540769.WKUTIL ; 00210013
CREATE PROCEDURE A540769.WKUTIL 00220013
(IN CMDTEXT VARCHAR(254), 00230001
OUT CMDRESULT VARCHAR(32704)) 00240001
LANGUAGE REXX 00250001
EXTERNAL NAME WKUTIL 00260001
COLLID DSNREXDE 00270007
ASUTIME LIMIT 60 00280001
PARAMETER STYLE GENERAL 00290001
STAY RESIDENT NO 00300001
RUN OPTIONS 'TRAP(ON)' 00310001
WLM ENVIRONMENT DB2DSNR 00320001
SECURITY DB2 00330008
DYNAMIC RESULT SETS 1 00340004
COMMIT ON RETURN NO 00350001
; 00360001
00370001
00380001