Files
DUTAS/Procs/DTSUTCHG
2025-07-21 11:20:11 -04:00

35 lines
2.7 KiB
Plaintext

//***** 00010000
//* 00040000
//* UI TAX VSAM PRODUCTION CHARGE FILES DAILY BACKUP 04/20/20 ZL1 00050001
//* 00060000
//***** 00070000
//DTSUTCHG PROC BCKNODE='BACKUP', 00080001
// BKUPGEN='(+1)' 00100000
//**** 00110000
//STEP0110 EXEC PGM=SORT,REGION=0K, CHGM002 CHG SSN 00120001
// COND=(0,LT) 00130000
//SYSOUT DD SYSOUT=* 00140000
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM002,DISP=SHR, 00150001
// AMP=('BUFNI=5,BUFND=30') 00160000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..CHGM002&BKUPGEN., 00170001
// 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) 00220001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00230000
//**** 00240000
//STEP0120 EXEC PGM=SORT, CHGM030 CHG TOTAL 02210001
// COND=(0,LT) 02220000
//SYSOUT DD SYSOUT=* 02230000
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM030,DISP=SHR, 02240001
// AMP=('BUFNI=5,BUFND=30') 02250000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..&BCKNODE..CHGM030&BKUPGEN., 02260001
// DISP=(,CATLG,DELETE), 02270000
// UNIT=CART, 02280000
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 02290001
// LABEL=(2,SL,,,EXPDT=99000), 02300001
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=22,BLKSIZE=22000) 02310001
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 02320000
//**** 02330000