//DTSVRSTR 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.PROCS.BATCH.LIB                            00000609
//*LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00000721
//****                                                                  00000921
//*    UI TAX VSAM 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
//*    EXTERNAL FILES NEEDED FOR DAILY JOB.                         *   00001200
//*    PLEASE VERIFY FILES PROD.WAGE.BTC AND PROD.BTC GENERATION    *   00001200
//*    ARE EMPTY OR DUPLICATES WILL OCCUR. IF THERE ARE NO GENERATION   00001200
//*    THAT IS OK ONE WILL BE CREATED FROM THE RESTORE AND RERUN OF *   00001200
//*    THE DAILY JOB                                                *   00001200
//****                                                                  00001621
//*    NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES               *   00001300
//*          IN THE CICS REGION.                                    *   00001400
//****                                                                  00001621
/****                                                                   00001621
//*    NOTE: RAINCODE RESTORE FOR DAILY MASTER FILES                *   00001300
//*          TO RESTORE +0 GENERATION USE PROC DTSURVSM0            *   00001400
//****        
//***        TO RESTORE MINUS (-) GENERATION USE PROC DTSURVSM1
//*                                                    
//*STEP0100 EXEC DTSURVSM0                                              00002000
//**                                                                    00003029
//*STEP0100 EXEC DTSURVSM1    CHANGE PROC FOR - GENERATION NEEDED        00002000
//*
//STEP0100 EXEC DTSURVSM,                                               00002000
//             freq='DAILY',gen=-2,src='PROD',tgt='PROD'                00003029