zOs/JCL/QM0009P

//QMW0009P JOB (PD00,KE50,,SP00000000),
//             'DB2 CMD',
//             MSGCLASS=T,
//             TIME=1440,
//             SCHENV=DBOL
//*MAIN CLASS=LOG
//********************************************************************
//*                         JCLPREP   11/05/2013   08:36:56   F965472
//********************************************************************
//*
//P00     EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD    *
 DEL 'DSN.WOK.QMW0009P.DSNTEP2.SQL' NVSAM PURGE
 DEL 'DSN.WOK.QMW0009P.DSNTEP2.OUT' NVSAM PURGE
 DEL 'DSN.WOK.QMW0009P.SUMMARY.DATA' NVSAM PURGE
 DEL 'DSN.WOK.QMW0009P.MAILHEAD.DATA' NVSAM PURGE
 DEL 'DSN.WOK.QMW0009P.MAILTEXT.DATA' NVSAM PURGE
 IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC    DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//DDIN1      DD DSN=DSN.DB2.LCTL(RZ4SQL),DISP=SHR
//SQLSTMNT   DD DSN=DSN.WOK.QMW0009P.DSNTEP2.SQL,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=80
//PRINT      DD SYSOUT=*
//SYSTSIN    DD *
  %DB2CPG01 DBOL
// ENDIF
//*
// IF (P02.RC = 0 ) THEN
//P03     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSTSPRT DD  SYSOUT=*
//SYSIN    DD  DSN=*.P02.SQLSTMNT,DISP=SHR
//SYSTSIN  DD *
  DSN SYSTEM(DBOL)
  RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT   DD DSN=DSN.WOK.QMW0009P.DSNTEP2.OUT,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD  SYSOUT=*
// ENDIF
//* %%IF %%ENV EQ PROD
//*********PROD
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC    DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//DDIN1      DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN    DD DSN=DBOL.DBAA.LCTL(QMW00091),DISP=SHR
//MAILHOUT   DD DSN=DSN.WOK.QMW0009P.MAILHEAD.DATA,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=133
//MAILHTXT   DD DSN=DSN.WOK.QMW0009P.MAILTEXT.DATA,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=133
//SUMMARY    DD DSN=DSN.WOK.QMW0009P.SUMMARY.DATA,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=133
//PRINT      DD SYSOUT=*
//SYSTSIN    DD *
  %DB2CPG02 RZ4 DBOL QMW0009P
// ENDIF