giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Procs/DTSUSCHG Normal file
View File

@ -0,0 +1,36 @@
//***** 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