17 lines
509 B
Plaintext
17 lines
509 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.ACHDPAYT
|
|
SET MAXCC=0
|
|
//*
|
|
//STEP011 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD0011 DD ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120),
|
|
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT',
|
|
// COPY)
|