//RUNAU144 JOB (UI,4300,3400,T),RUNBZ365,CLASS=S,MSGCLASS=X, 00000010 // NOTIFY=ECNTSUP //* 00001700 // SET LVLNODE='PROD' 00001700 // SET MSTNODE='PROD' 00001700 //* 00001700 //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 //******************************************************************* //*** COPY AUDIT PACKAGE X144 FILES TO BBACKUP FILE. //** //******************************************************************* //** //COPYX144 EXEC PGM=IDCAMS,COND=(0,LT) //INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.AUDIT.X144,DISP=SHR //** //OUTDD01 DD DSN=DOESTAX.CONV.BACKUP.AUDTX144(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=256,BLKSIZE=2560) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR //** //*********************************************************************