zOs/JCL/DB2UT

//A540769B JOB (BAN45833,9999,,9904),TSOJOB,
//   TIME=1,REGION=4M,MSGCLASS=T
//*MAIN CLASS=LOG
//*
//* LIBRARY(PCL.U0000.P0.RZ4AKT.PERM.@008.DBR) -
//* LIBRARY('CMN.DIV.P0.QMSW.#000010.DBR') -
//*  LIBRARY('PCL.U0000.P0.RZ4AKT.PERM.@008.DBR') -
//*
//BIND   EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
   DSN S(DBAF)
 BIND PACKAGE(DB2ADMIN) -
  OWNER(S100447) -
  COPY(DSNREXCS.DSNREXX) -
  COPYVER(UK35514) -
  EXPLAIN(N)  ACTION(REP) -
  DYNAMICRULES(DEFINERUN)
END
//
//CREA     EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *
  SET CURRENT SQLID='S100447';
  DROP   PROCEDURE DB2ADMIN.DSNUTILS;
  DROP   PROCEDURE DB2UTIL.DB2UTIL ;
  COMMIT;
  CREATE PROCEDURE DB2UTIL.DB2UTIL
     (IN CMDTEXT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC ,
      OUT CMDRESULT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC )
    DYNAMIC RESULT SETS 1
    EXTERNAL NAME 'DB2UTILP'
    LANGUAGE REXX  PARAMETER STYLE GENERAL  NOT DETERMINISTIC  FENCED
    CALLED ON NULL INPUT  MODIFIES SQL DATA  NO DBINFO
    WLM ENVIRONMENT DB2DSNR  ASUTIME LIMIT 60000
    STAY RESIDENT NO  PROGRAM TYPE MAIN  SECURITY DB2
    INHERIT SPECIAL REGISTERS  STOP AFTER SYSTEM DEFAULT FAILURES
    RUN OPTIONS 'TRAP(ON)'  COMMIT ON RETURN NO ;
  COMMIT;
  CREATE PROCEDURE DB2ADMIN.DSNUTILS
     (IN UTILITY_ID VARCHAR(16) FOR SBCS DATA CCSID EBCDIC ,
      IN RESTART VARCHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN UTSTMT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC ,
      OUT RETCODE INTEGER ,
      IN UTILITY_NAME VARCHAR(20) FOR SBCS DATA CCSID EBCDIC ,
      IN RECDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN RECDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN RECSPACE SMALLINT ,
      IN DISCDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN DISCDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN DISCSPACE SMALLINT ,
      IN PNCHDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN PNCHDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN PNCHSPACE SMALLINT ,
      IN COPYDSN1 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN COPYDEVT1 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN COPYSPACE1 SMALLINT ,
      IN COPYDSN2 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN COPYDEVT2 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN COPYSPACE2 SMALLINT ,
      IN RCPYDSN1 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN RCPYDEVT1 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN RCPYSPACE1 SMALLINT ,
      IN RCPYDSN2 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN RCPYDEVT2 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN RCPYSPACE2 SMALLINT ,
      IN WORKDSN1 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN WORKDEVT1 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN WORKSPACE1 SMALLINT ,
      IN WORKDSN2 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN WORKDEVT2 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN WORKSPACE2 SMALLINT ,
      IN MAPDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN MAPDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN MAPSPACE SMALLINT ,
      IN ERRDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN ERRDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN ERRSPACE SMALLINT ,
      IN FILTRDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
      IN FILTRDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
      IN FILTRSPACE SMALLINT )
    DYNAMIC RESULT SETS 1
    EXTERNAL NAME 'DSNUTILS'
    LANGUAGE ASSEMBLE  PARAMETER CCSID EBCDIC  PARAMETER STYLE GENERAL
    NOT DETERMINISTIC  FENCED  CALLED ON NULL INPUT  MODIFIES SQL DATA
    NO DBINFO  COLLID DSNUTILS  WLM ENVIRONMENT DB2DSNU
    ASUTIME NO LIMIT  STAY RESIDENT NO  PROGRAM TYPE MAIN
    SECURITY DEFINER  INHERIT SPECIAL REGISTERS
    STOP AFTER SYSTEM DEFAULT FAILURES  RUN OPTIONS 'TRAP(OFF)'
    COMMIT ON RETURN NO ;
  COMMIT;