//****                                                                  00010001
//*    UI TAX VSAM CHGMXXX FILE BACKUP                                  00050001
//****                                                                  00070001
//**             PARMS ARE: CHGNOD2I='PROD'                             00081006
//**                      : CHGNOD2O='PROD'        /FOR CHGM002         00082006
//**                      :  CHGMN2R='CHGM002'                          00090006
//**                      : CHGNOD3I='PROD'                             00090106
//**                      : CHGNOD3O='PROD'        /FOR CHGM030         00090206
//**                      :  CHGMN3R='CHGM030'                          00090307
//**                      -      BKP='BKP'                              00091007
//**                      -   BKPGEN='(+1)'                             00100007
//****                                                                  00110001
//DTSCHGMB PROC  BKP='BKP',                                             00111001
//             BKPGEN='(+1)'                                            00112001
//STEP0110 EXEC PGM=SORT,REGION=0K,            /* VSAM CHGMXXX BACKUP   00120001
//             COND=(0,LT)                                              00130000
//SYSOUT   DD  SYSOUT=*                                                 00140000
//SORTIN   DD  DSN=DOESTAX.&CHGNOD2I..VSAM.&CHGMN2R,                    00150006
//             DISP=SHR,AMP=('BUFNI=5,BUFND=30')                        00151001
//SORTOUT  DD  DSN=DOESTAX.&CHGNOD2O..&BKP..&CHGMN2R.&BKPGEN.,          00170006
//             DISP=(,CATLG,DELETE),                                    00180000
//             UNIT=CART,                                               00190000
//             VOLUME=(,RETAIN),                                        00200007
//             LABEL=(1,SL),                                            00210000
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=64,BLKSIZE=32000)         00220004
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    00230000
//****                                                                  02070000
//STEP0120 EXEC PGM=SORT,REGION=0K,            /* VSAM CHGMXXX BACKUP   02073007
//             COND=(0,LT)                                              02074007
//SYSOUT   DD  SYSOUT=*                                                 02075007
//SORTIN   DD  DSN=DOESTAX.&CHGNOD3I..VSAM.&CHGMN3R,                    02076007
//             DISP=SHR,AMP=('BUFNI=5,BUFND=30')                        02077007
//SORTOUT  DD  DSN=DOESTAX.&CHGNOD3O..&BKP..&CHGMN3R.&BKPGEN.,          02078007
//             DISP=(,CATLG,DELETE),                                    02079007
//             UNIT=CART,                                               02079107
//             VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT),                 02079207
//             LABEL=(2,SL),                                            02079307
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=22,BLKSIZE=22000)         02079609
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    02079707
//****                                                                  02080007