//DTSXBKUP JOB (UI,4300,3400,T),PROD.BKP, 00000101 //**** TYPRUN=SCAN, 00000200 // CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP, 00000300 // REGION=0M 00000400 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //* 00000500 //**** 00000801 //* UI TAX BACKUP VSAM FILES - SPECIAL RUN TO CORRECT A PROBLEM 00001001 //* IN PRODUCTION WHEN A REG. BKP BLEW OFF IN MIDSTREAM 00001101 //**** 00001701 //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001901 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00002000 //* 00002100 //STEP0100 EXEC DTSUXVSM, 00002201 // BKUPGEN='(+1)' 00003000