//DTSCHGVR JOB (UI,4300,3400,T),JHPPROD.CHGMRSTR,                       00000105
//             CLASS=S,MSGCLASS=X,                                      00000200
//****         TYPRUN=SCAN,                                             00000300
//             REGION=0M,                                               00000400
//             NOTIFY=ECNTSUP                                           00000506
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****         NOTIFY=ECNTJP2                                           00000606
//****                                                                  00000900
//*    UI TAX RESTORE OF CHGMXXX VSAM FILE(S)                           00001106
//****                                                                  00001800
//     SET LVLNODE='PROD'                                               00001905
//****                                                                  00002000
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00002100
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00002200
//****                                                                  00002300
//*          IN THE CICS REGION.
//****
//STEP0100 EXEC DTSURCHG,
//             BKUPGEN='(+0)'
//*** OLD  RESTORE
//