//*****                                                                 00010000
//*                                                                     00023000
//*    UI TAX VSAM CHARGE FILES RESTORE.                 04/20/20  ZL1  00030001
//*                                                                     00040000
//*****                                                                 00050000
//DTSURCHG PROC LVLNODE='PROD',                                         00060001
//             BKPNODE='BACKUP'                                         00070001
//*            BKUPGEN='(+0)'                                           00080001
//********************************************************************* 00090000
//STEP0100 EXEC PGM=IDCAMS,          DELETE AND DEFINE VSAM FILES       00100001
//             COND=(0,LT)                                              00110001
//SYSPRINT DD  SYSOUT=*                                                 00120001
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD002),DISP=SHR    00130004
//         DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD030),DISP=SHR    00140002
//******************************************************************    00220000
//STEP0110 EXEC PGM=SORT,                    CHGM002 RESTORE            00480001
//             COND=(0,LT)                                              00490000
//SYSOUT   DD  SYSOUT=*                                                 00500000
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..&BKPNODE..CHGM002&BKUPGEN.,        00510001
//             DISP=SHR,                                                00520000
//             VOLUME=(,RETAIN),                                        00521000
//             LABEL=(1,SL)                                             00522000
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..VSAM.CHGM002,DISP=SHR,             00530001
//             AMP=('BUFNI=5,BUFND=30')                                 00540000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    00550000
//******************************************************************    00560000
//STEP0120 EXEC PGM=SORT,                   CHGM030  RESTORE            00570001
//             COND=(0,LT)                                              00580000
//SYSOUT   DD  SYSOUT=*                                                 00590000
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..&BKPNODE..CHGM030&BKUPGEN.,        00600001
//             DISP=SHR,                                                00610000
//             VOLUME=(,RETAIN,REF=*.STEP0110.SORTIN),                  00611001
//             LABEL=(2,SL)                                             00612000
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..VSAM.CHGM030,DISP=SHR,             00620001
//             AMP=('BUFNI=5,BUFND=30')                                 00630000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    00640000
//****                                                                  01630000