37 lines
2.8 KiB
Plaintext
37 lines
2.8 KiB
Plaintext
//***** 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
|