//DTSBKPOT JOB (ES),VCOPY3,CLASS=A,MSGCLASS=X,                          00000010
//          USER=#DTSDOA,
//          NOTIFY=ECNTSUP
//**********************************************************************
//* TAKE A MONTHLY BACKUP OF TDEC DAILY ONTIME WAGE FILE
//*
//**********************************************************************
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD09   DD DSN=DOESTAX.CONV.TDECX154.SAVDWAGE.OTIM,DISP=SHR
//OUTDD01  DD DSN=DOESTAX.CONV.BKPDWAGE.MONEND.OTIM(+1),
//         DISP=(,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(CYL,(25,5),RLSE),
//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN    DD *
  REPRO INFILE(INDD09) OUTFILE(OUTDD01)
/*
//************************************************************