zOs/JCL/QMW0DBTF

//QMW0DBTF JOB (PD00,KE50,,SP00000000),
//             'DB2 test contrSum',
//             MSGCLASS=T,NOTIFY=&SYSUID
//*MAIN CLASS=LOG0
//********************************************************************
//*                         JCLPREP   20/11/2008   14:23:05   A965472
//********************************************************************
//*
//P00     EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD    *
 DEL 'DSN.TST.QMW0DBTF.DSNTEP2.SQL2' NVSAM PURGE
 IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//*YSEXEC    DD DSN=DSN.SOURCE.TECSV,DISP=SHR
//SYSEXEC    DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//DDIN1      DD DSN=DSN.SOURCE.TECSV(RZ1SQL),DISP=SHR
//SQLSTMNT   DD DSN=DSN.TST.QMW0DBTF.DSNTEP2.SQL2,
//             DISP=(,CATLG),
//             MGMTCLAS=WORK,
//             SPACE=(TRK,(15,75),RLSE),
//             RECFM=FB,LRECL=80
//PRINT      DD SYSOUT=*
//SYSTSIN    DD *
  %DB2CPG01 DBTF
// ENDIF
//*