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

175
Procs/DTSTINIT Normal file
View File

@ -0,0 +1,175 @@
//****************************************************************** 00001700
//**DTSTINIT PROC
//****************************************************************** 00001700
//* THIS PROC WILL CREATE A NEW EMPTY FILES OF ALL TDEC WAGE FILES 00001700
//* USED IN THE DAILY RUN DTSPDAY1 00001700
//****************************************************************** 00001700
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//STEP0110 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.W4FILE,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//*********************************************************************
//** BAD SSNS MERGED WITH DATA ON DTSPDAY1
//STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0210 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//** REPORTS FOUND ON ATC FILE PASSED TO DTSPDAY1
//*********************************************************************
//STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0310 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*********************************************************************
//* MISSING REPORTS FILE EMAIL TO TAX STAFF
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.MISSRPTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0410 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.MISSRPTS,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(7800,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900)
//*
//*********************************************************************
//* TDEC WAGE NOT MATCHING UC30 WAGE REPORT - EMAILED
//STEP0500 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGEEROR,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0510 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGEEROR,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(12100,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600)
//*
//*********************************************************************
//* SUMARY COUNTS REPORT FOR WAGE RECORDS - EMAILED
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.SUMYCNTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0610 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.SUMYCNTS,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(3700,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//*
//* ONTIME FILES
//*
//STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//STEP0710 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.W4FILE,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//STEP0711 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD DSN=DOESTAX.PROD.W4FILE,
// DISP=(OLD,DELETE,DELETE)
//* 00001700
//STEP0712 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW004 DD DSN=DOESTAX.PROD.W4FILE,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//*********************************************************************
//** BAD SSNS MERGED WITH DATA ON DTSPDAY1
//STEP0720 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW153 DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//** REPORTS FOUND ON ATC FILE PASSED TO DTSPDAY1
//*********************************************************************
//STEP0740 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0750 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFW001 DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*********************************************************************
//* MISSING REPORTS FILE EMAIL TO TAX STAFF
//STEP0760 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.MISSRPTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0770 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFMISS DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.MISSRPTS,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(7800,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=109,BLKSIZE=10900)
//*
//*********************************************************************
//* TDEC WAGE NOT MATCHING UC30 WAGE REPORT - EMAILED
//STEP0780 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGEEROR,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0790 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFERR DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGEEROR,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(12100,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600)
//*
//*********************************************************************
//* SUMARY COUNTS REPORT FOR WAGE RECORDS - EMAILED
//STEP0791 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.SUMYCNTS,
// DISP=(OLD,DELETE,DELETE)
//*
//STEP0792 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFCNT DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.SUMYCNTS,
// DISP=(NEW,CATLG,CATLG),
//** DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(3700,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//**********************END OF TDEC WAGE PROC**************************