//*****                                                                 00010000
//*                                                                     00040000
//*    UI TAX VSAM PRODUCTION CHARGE FILES SPECIAL BACKUP 02/14/22 ZL1  00050000
//*                                                                     00060000
//*    BEFORE ANY DELETION TO CORRECT CHARGES FOR 22 RATES              00061000
//*                                                                     00062000
//*****                                                                 00070000
//DTSUTCHG PROC BCKNODE='SPBACKUP',                                     00080000
//             BKUPGEN='(+1)'                                           00100000
//****                                                                  00110000
//STEP0110 EXEC PGM=SORT,REGION=0K,              CHGM002 CHG SSN        00120000
//             COND=(0,LT)                                              00130000
//SYSOUT   DD  SYSOUT=*                                                 00140000
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..VSAM.CHGM002,DISP=SHR,             00150000
//             AMP=('BUFNI=5,BUFND=30')                                 00160000
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..&BCKNODE..CHGM002&BKUPGEN.,        00170000
//             DISP=(,CATLG,DELETE),                                    00180000
//             UNIT=CART,                                               00190000
//             VOLUME=(,RETAIN),                                        00200000
//             LABEL=(1,SL,,,EXPDT=99000),                              00210000
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=64,BLKSIZE=6400)          00220000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    00230000
//****                                                                  00240000
//STEP0120 EXEC PGM=SORT,                      CHGM030 CHG TOTAL        02210000
//             COND=(0,LT)                                              02220000
//SYSOUT   DD  SYSOUT=*                                                 02230000
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..VSAM.CHGM030,DISP=SHR,             02240000
//             AMP=('BUFNI=5,BUFND=30')                                 02250000
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..&BCKNODE..CHGM030&BKUPGEN.,        02260000
//             DISP=(,CATLG,DELETE),                                    02270000
//             UNIT=CART,                                               02280000
//             VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT),                 02290000
//             LABEL=(2,SL,,,EXPDT=99000),                              02300000
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=22,BLKSIZE=22000)         02310000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR    02320000
//****                                                                  02330000