//DTSVRCHG JOB (UI,4300,3400,T),PROD-RESTORE,CLASS=P,MSGCLASS=X,        00000123
//         NOTIFY=ECNTSUP,                                              00000217
//****     TYPRUN=SCAN,                                                 00000320
//         REGION=0M                                                    00000414
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*                                                                     00000500
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00000609
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00000721
//****                                                                  00000921
//*    UI TAX VSAM CHARGE FILES RESTORE --  READ NOTE BELOW -----   *   00001100
//*                                                                 *   00001200
//*    WHEN JOB DTSPDAY1 ABENDS AND YOU HAVE TO RUN THIS RESTORE    *   00001200
//*    JOB THEN YOU WILL HAVE TO RUN JOB DTSREEXT TO RESTORE ALL    *   00001200
//****                                                                  00001621
//*    NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES               *   00001300
//*          IN THE CICS REGION.                                    *   00001400
//****                                                                  00001621
//STEP0100 EXEC DTSURCHG,                                               00002000
//             BKUPGEN='(+0)'                                           00003029
//****                                                                  00001621