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

245
Procs/DTSBX148 Normal file
View File

@ -0,0 +1,245 @@
//DTSBX148 PROC RUNTYPE='ONTIME' 00000010
//* 00001700
//*************************************************** 00001700
//* MATCH W4 TRANSACTIONS TO REPORTS
//*************************************************** 00001700
//* 00001700
//*****************************************************************
//***
//*****************************************************************
//* SORT TDEC FILE
//*****************************************************************
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY BATCH/EMP/YRQ/SSN
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
// DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=&&TDECSRT1,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR
//*
//*****************************************************************
//* EDIT TDEC FILE
//*****************************************************************
//STEP0200 EXEC PGM=DESBD420,
// PARM='&RUNTYPE.',
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWG2 DD DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFTDIN DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
//*
//DTSFTDO DD DSN=&&TDECEDIT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(3,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:GIL.DIMATTIA@DC.GOV',
// 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: NO TDEC WAGES ON MAINFRAME...........ZL1',
// 'FILEDESC: TDEC WAGE REPORT ',
// 'FILENAME:NO_TDEC_WAGES.TXT')
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//* 'CC:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC WAGES ON MAINFRAME IN ERROR..ZL1',
// 'FILEDESC: TDEC WAGE REPORT ',
// 'FILENAME:NO_TDEC_WAGES.TXT')
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.NOWAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*
//***********************************************************
//* FIND REPORTS, WRITE TRANSACTIONS
//***********************************************************
//STEP0400 EXEC PGM=DESBD422,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWG2 DD DSN=DOESTAX.&MSTNODE..VSAM.WG2,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFITM DD DSN=DOESTAX.DEVL.VSAM.ITM,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFTDIN DD DSN=&&TDECEDIT,
// DISP=(OLD,DELETE,DELETE)
//**
//** WAGES IN W4 FORMAT PASSED TO DTSPDAY1
//DTSFW004 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..W4FILE,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=32000)
//*
//** WAGES IN W4 FORMAT PASSED TO DTSPDAY1
//DTSFW153 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..X153,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(20,5)),
// DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300)
//*
//** WTC WAGES
//DTSFW001 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGE.BTC,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
//*
//DTSFPEND DD DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
// DISP=(NEW,PASS,DELETE),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//*
//DTSFMISS DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(7800,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=78,BLKSIZE=7800)
//*
//DTSFERR DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(12100,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=121,BLKSIZE=12100)
//*
//*
//DTSFCNT DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
//** DISP=(NEW,CATLG,CATLG),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(3700,(100,200),RLSE),
// DCB=(RECFM=FB,LRECL=37,BLKSIZE=3700)
//****************************************************
//**
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', REBUILD PENDING FILE
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD DSN=DOESTAX.&LVLNODE..TDECX148.SRTPEND,
// DISP=(OLD,DELETE,DELETE)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..PENDING,
//** DISP=(,CATLG,DELETE),
// DISP=(MOD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
//*
//****************************************************
//**
//STEP0600 EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC MISSING REPORTS )',
// 'FILEDESC: TDEC MISSING REPORTS ',
// 'FILENAME: TDEC.ERROR1.TXT')
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..MISSRPTS,
// DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****************************************************
//**
//STEP0700 EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC WAGE DISCREPANCIES )',
// 'FILEDESC: TDEC WAGE DISCREPANCIES ',
// 'FILENAME: TDEC.ERROR2.TXT')
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..WAGEEROR,
// DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****************************************************
//**
//STEP0800 EXEC PGM=IEBGENER,
// COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: TDEC COUNTS )',
// 'FILEDESC: TDEC COUNTS ',
// 'FILENAME: TDEC.COUNTS.TXT')
//SYSUT1 DD DSN=DOESTAX.&LVLNODE..TDECX148.&RUNTYPE..SUMYCNTS,
// DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//*********************************************************************
//STEP0900 EXEC PGM=IDCAMS,COND=(0,LT)
//**
//********************************************************************
//*** COPY TDEC WAGE FILE TO ARCHIVE UPDATE FILE.
//**
//********************************************************************
//IFILE DD DSN=&&TDECSRT1,DISP=(OLD,PASS,DELETE)
//**
//OFILE DD DSN=DOESTAX.CONV.TDECX154.SAVED.&RUNTYPE.(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.DEVL.BEN.APPL.PARMLIB(DTSBREPO),DISP=SHR
//********************************************************************
//*** DELETE TDEC DELINQ WAGE FILE(S).
//**
//********************************************************************
//STEP0910 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//*
//PDDELINQ DD DSN=DOESTAX.CONV.TDECX154.DWAGE.&RUNTYPE.,
// DISP=(OLD,DELETE,DELETE)
//*
//**************************END OF PROC*******************************