Files
DUTAS/JCL/copySRTD.JCL

22 lines
627 B
Plaintext

//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//*STEP001 EXEC PGM=IDCAMS
//*SYSPRINT DD SYSOUT=*
//*SYSIN DD *
//* DELETE DOESTAX.PROD.SRTDAILY.DD091525
//* SET MAXCC=0
//*
//*STEP011 EXEC PGM=IEFBR14
//*SYSPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT.DD091525,
//* DISP=(OLD,DELETE,DELETE)
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
// COPY)