All Z' modified PROD server code merge 09/10/2025
This commit is contained in:
21
JCL/copySRTD.JCL
Normal file
21
JCL/copySRTD.JCL
Normal file
@ -0,0 +1,21 @@
|
||||
//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)
|
||||
Reference in New Issue
Block a user