//*****                                                                 00010000
//*              UI TAX VSAM CHGMXXX FILE RESTORE.                      00030001
//*****                                                                 00080000
//**             PARMS ARE: CHGNOD2I='PROD'                             00081007
//**                      : CHGNOD2O='PROD'                             00082007
//**                      :  CHGMN2R='CHGM002'                          00083007
//**                      : CHGNOD3I='PROD'                             00083107
//**                      : CHGNOD3O='PROD'                             00083207
//**                      :  CHGMN3R='CHGM030'                          00083307
//**                      -      BKP='BKP'                              00084007
//**                      -   BKPGEN='(+0)'                             00085007
//****                                                                  00086001
//DTSCHGMR PROC  BKP='BKP'                                              00087003
//****                                                                  00120001
//STEP0100 EXEC PGM=IDCAMS,          DELETE AND DEFINE VSAM FILE        00130001
//             COND=(0,LT)                                              00140000
//SYSPRINT DD  SYSOUT=*                                                 00150000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD002),DISP=SHR    00160001
//         DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD030),DISP=SHR    00170007
//****                                                                  00280001
//STEP0310 EXEC PGM=SORT,                  /* VSAM CHGMXXX RESTORE      00290001
//             COND=(0,LT)                                              00300000
//SYSOUT   DD  SYSOUT=*                                                 00310000
//SORTIN   DD  DSN=DOESTAX.&CHGNOD2I..&BKP..&CHGMN2R.&BKPGEN.,          00320007
//             DISP=SHR,                                                00330008
//             VOLUME=(,RETAIN)                                         00340008
//SORTOUT  DD  DSN=DOESTAX.&CHGNOD2O..VSAM.&CHGMN2R.,                   00350007
//             DISP=SHR,AMP=('BUFNI=5,BUFND=30')                        00360002
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    00370000
//****                                                                  00371007
//STEP0320 EXEC PGM=SORT,                  /* VSAM CHGMXXX RESTORE      00372007
//             COND=(0,LT)                                              00373007
//SYSOUT   DD  SYSOUT=*                                                 00374007
//SORTIN   DD  DSN=DOESTAX.&CHGNOD3I..&BKP..&CHGMN3R.&BKPGEN.,          00375009
//             DISP=SHR,                                                00376108
//             VOLUME=(,RETAIN)                                         00376208
//SORTOUT  DD  DSN=DOESTAX.&CHGNOD3O..VSAM.&CHGMN3R.,                   00377007
//             DISP=SHR,AMP=('BUFNI=5,BUFND=30')                        00378007
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    00379007
//****                                                                  00380001