16 lines
458 B
Plaintext
16 lines
458 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.AUDIT.X144
|
|
//*SET MAXCC=0
|
|
//*
|
|
//STEP011 EXEC PGM=IEFBR14
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSOUT DD SYSOUT=*
|
|
//DD0011 DD DOESTAX.PROD.BTC(+1),
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182),
|
|
// PATH=('E:\DUTASJOBS\DEFAULTVOLUME\DOESTAX.PROD.BD400.BTC.BACKUP(+0)',
|
|
// COPY)
|