//QMW1900P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440, 00020000
// REGION=0M 00030000
//*MAIN CLASS=LOG ,DEADLINE=(24H,A),HOLD=YES 00020001
//P01 EXEC PGM=IEFBR14 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1900P) 00050001
//SYSUT2 DD DUMMY 00060001
//*YSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBAF.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBAF.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBAF) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=DBAF.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBAF DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=TSO.RZ1.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---