zOs/JCL/QMT002FP

//QMT002FP JOB (PD00,KE50,,SP00000000),
//             'DB2 CMD',
//             MSGCLASS=T,
//             SCHENV=DB2
//*MAIN CLASS=LOG
//*
//P02      EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC    DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//DDOUT      DD DSN=DSN.ABUB.TECSV.DBOF.QMT002FP,
//             DISP=(MOD,DELETE)
//DDENV      DD *
    RZ2 DBOF CONSUM QMT002FP
//SYSTSIN    DD DISP=SHR,DSN=DBOF.DBAA.LCTL(QMT002F0)
//*
// IF (P02.RC = 0 ) THEN
//P03      EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD DSN=*.P02.DDOUT,
//             DISP=(,CATLG),
//             MGMTCLAS=BAT#AT,
//             SPACE=(CYL,(15,75),RLSE)
//SYSTSIN    DD *
  DSN SYSTEM(DBOF)
  RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSIN      DD DISP=SHR,DSN=DBOF.DBAA.LCTL(QMT002F1)
// ENDIF