zOs/JCL/QMW0002P

//QMW0002P JOB (PD00,KE50,,SP00000000),
//             'DB2 CMD',
//             MSGCLASS=T
//*MAIN CLASS=LOG0
//********************************************************************
//*                         JCLPREP   20/11/2008   13:52:45   A965472
//********************************************************************
//*
//P00     EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD    *
 DEL 'DSN.WOK.QMW0002P.DSNTEP2.SQL' NVSAM PURGE
 DEL 'DSN.WOK.QMW0002P.DSNTEP2.OUT' NVSAM PURGE
 DEL 'DSN.WOK.QMW0002P.SUMMARY.DATA' NVSAM PURGE
 DEL 'DSN.WOK.QMW0002P.MAILHEAD.DATA' NVSAM PURGE
 DEL 'DSN.WOK.QMW0002P.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.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//DDIN1      DD DSN=DSN.DB2.LCTL(RZ1SQL),DISP=SHR
//SQLSTMNT   DD DSN=DSN.WOK.QMW0002P.DSNTEP2.SQL,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=80
//PRINT      DD SYSOUT=*
//SYSTSIN    DD *
  %DB2CPG01 DBTF
// 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(DBTF)
  RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT   DD DSN=DSN.WOK.QMW0002P.DSNTEP2.OUT,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD  SYSOUT=*
// ENDIF
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC    DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//DDIN1      DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN    DD DSN=DBTF.DBAA.LCTL(QMW00021),DISP=SHR
//MAILHOUT   DD DSN=DSN.WOK.QMW0002P.MAILHEAD.DATA,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=133
//MAILHTXT   DD DSN=DSN.WOK.QMW0002P.MAILTEXT.DATA,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=133
//SUMMARY    DD DSN=DSN.WOK.QMW0002P.SUMMARY.DATA,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(CYL,(15,75),RLSE),
//             RECFM=FB,LRECL=133
//PRINT      DD SYSOUT=*
//SYSTSIN    DD *
  %DB2CPG02 RZ1 DBTF QMW0002P
// ENDIF