zOs/JCL/PLITSO3

//A540769D JOB (KEL25071,0240,,3612),'CATALOG',                        *
//         MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
//S1       EXEC PGM=DBWK3,DYNAMNBR=200,TIME=99
//STEPLIB   DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*STEPLIB    DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//        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(DBWK3) PLAN(DBWK1) PARMS('  sD iD sD tD sD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//        ENDIF