Files
DUTAS/JCL/COPYX999.JCL

16 lines
462 B
Plaintext

//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.X999
SET MAXCC=0
//*
//STEP011 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0011 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
// DISP=(NEW,CATLG,CATLG),
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=8000),
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
// COPY)