//ECNTSUPR JOB (UI,4300,3400,T),JHP.PROD.RSTR,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 FILES MONTHLY FILE RESTORE                       *   00001100
//*                                                                 *   00001200
//*    NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES               *   00001300
//*          IN THE CICS REGION.                                    *   00001400
//****                                                                  00001621
//STEP0100 EXEC DTSURMON,                                               00002000
//             BKUPGEN='(-1)'                                           00003029