zOs/SQL/CREPROUT

  SET CURRENT SQLID='A540769';
  SET CURRENT SQLID='S100447';
  DROP   PROCEDURE A540769.WKUTIL;
  CREATE PROCEDURE A540769.WKUTIL
     (IN CMDTEXT VARCHAR(254) FOR SBCS DATA CCSID EBCDIC ,
      OUT CMDRESULT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC )
    DYNAMIC RESULT SETS 1
    EXTERNAL NAME 'WKUTIL'
    LANGUAGE REXX  PARAMETER STYLE GENERAL  NOT DETERMINISTIC  FENCED
    CALLED ON NULL INPUT  MODIFIES SQL DATA  NO DBINFO
    -- COLLID DSNREXDE
    WLM ENVIRONMENT DB2DSNR  ASUTIME LIMIT 60000
    STAY RESIDENT NO  PROGRAM TYPE MAIN  SECURITY DEFINER
    INHERIT SPECIAL REGISTERS  STOP AFTER SYSTEM DEFAULT FAILURES
    RUN OPTIONS 'TRAP(ON)'  COMMIT ON RETURN NO ;
  COMMIT;
  X
  DROP   PROCEDURE A540769.WKUTILSUB;
  CREATE PROCEDURE A540769.WKUTILSUB
     (IN CMDTEXT VARCHAR(254) FOR SBCS DATA CCSID EBCDIC ,
      OUT CMDRESULT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC )
    EXTERNAL NAME 'WKUTISUB'
    LANGUAGE REXX  PARAMETER STYLE GENERAL      DETERMINISTIC  FENCED
                               CALLED ON NULL INPUT  MODIFIES SQL DATA
    NO DBINFO                  WLM ENVIRONMENT DB2DSNR
    ASUTIME LIMIT 60000 STAY RESIDENT NO  PROGRAM TYPE MAIN
    SECURITY USER    INHERIT SPECIAL REGISTERS
    STOP AFTER SYSTEM DEFAULT FAILURES  RUN OPTIONS 'TRAP(OFF)'
    COLLID DSNREXCS
    COMMIT ON RETURN NO ;
  COMMIT;