//DTSBKPW4 JOB (ES),BACKUP-W4FILE,CLASS=A,MSGCLASS=X,                   00000010
//          USER=#DOADTS,
//          NOTIFY=ECNTSUP
//**********************************************************************
//*
//* TAKE MONTHLY BACKUP OF DTSPDAY1 WAGE W4FILE
//*
//**********************************************************************
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09   DD DSN=DOESTAX.PROD.BACKUP.W4FILE,DISP=SHR
//OUTDD01  DD DSN=DOESTAX.PROD.BACKUP.MONEND.W4FILE(+1),
//         DISP=(,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE),
//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000)
//SYSIN    DD *
  REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************