zOs/TX/WK992ABI

//A540769L JOB (CP00,KE50),'DBA TOOL',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S13
//*
//*
//**********************************************************************
//*
//* DB2 BATCH
//*
//* BATCH JOB TO EXECUTE SQL
//*
//***********************************************************ADB2PSQL***
//DB2BATCH EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB  DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//         DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSEXEC  DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBEXEC
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC
//MSGLIB   DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//ADBALIB  DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//DB2RLIB  DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//         DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//UTPRINT  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//ADBRPTSM DD SYSOUT=*
//SYSTSIN  DD *
  DSN SYSTEM(DBBA)
 RUN  PROGRAM(ADBTEP2) PLAN(ADB) -
   PARMS('/SSID(DBBA) WORKLIST(DB2BATCH)   -
   MAXE(-1)  -
 ')
 END
//ADBTEPIN DD *
BINDERROR='SAVE'
;
//SYSIN    DD *
BIND PACKAGE(TESTWK)
  MEM(XBARR0)
  QUAL(BUA)
  OWNER(CMNBATCH)
  LIB('CMN.DIV.P0.ELAB.#000667.DBR')
  SQLERROR(NOPACKAGE)
  VALID(B)
  ISOL(CS)
  EXPL(YES)
  CURRENTD(N)
  ACTION(REPLACE)
  DEGREE(1)
  DYNAMICRULES(BIND)
  KEEPDYNAMIC(N)
  REOPT(NONE)
  DBPROTOCOL(D)
  ENCODING(500)
  IMMEDWRITE(N)
  ROUNDING(HALFEVEN)
;