zOs/JCL/PLITSORU

//A540769D JOB (KEL25071,0240,,3612),'CATALOG',                        *
//         MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
//BIND   EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
   DSN S(DBAF)
 BIND PACKAGE(DBXY) -
  OWNER(A540769) -
  QUALIFIER (OA1A) -
  MEMBER(DBWK1) -
  LIBRARY('A540769.WK.DBRM') -
  VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
  RELEASE(COMMIT) EXPLAIN(N)  ACTION(REPLACE) -
  CURRENTDATA(N) -
  DYNAMICRULES(RUN) -
  ENABLE(*)
END
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
//        IF RC < 5 THEN
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//*STEPLIB   DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//STEPLIB    DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN    DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DBWK1) PLAN(DBWK1)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//        ENDIF