DUTAS re-platformed to Raincode - Initial Source Code

2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
--- a/Procs/DTSDEMAL
+++ b/Procs/DTSDEMAL
@ -0,0 +1,67 @@
+//DTSDEMAL PROC RUNTYPE='DELINQ'                                        00000010
+//*                                                                     00001700
+//***************************************************                   00001700
+//*  MATCH TDEC DELINQ WAGE W4 TRANSACTIONS TO REPORTS
+//***************************************************                   00001700
+//*                                                                     00001700
+//****************************************************
+//** EMAIL MISSING REPORT FILE
+//****************************************************
+//STEP0600 EXEC PGM=IEBGENER,
+//         COND=(0,LT),
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  MAILFROM='ZARATH.LALPUTAN@DC.GOV',
+//    MAILTO='ROSA.MORALES@DC.GOV',
+//    MAILCC='MOHAMED.JALLOH@DC.GOV',
+//           'GIL.DIMATTIA@DC.GOV',
+//           'ZARATH.LALPUTAN@DC.GOV',
+// MAILFILE='TDEC.DELINQ.ERROR1.TXT',
+//    TITLE='TDEC DELINQ MISSING REPORTS'
+//SYSUT1   DD DSN=DOESTAX.&EXTNODE..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=('FROM:ZARATH.LALPUTAN@DC.GOV',
+//         'TO:ROSA.MORALES@DC.GOV',
+//         'CC:MOHAMED.JALLOH@DC.GOV',
+//         'CC:GIL.DIMATTIA@DC.GOV',
+//         'CC:ZARATH.LALPUTAN@DC.GOV',
+//         'SUBJECT: TDEC DELINQ WAGE DISCREPANCIES       )',
+//         'FILEDESC: TDEC DELINQ WAGE DISCREPANCIES            ',
+//         'FILENAME: TDEC.DELINQ.ERROR2.TXT')
+//SYSUT1   DD DSN=DOESTAX.&EXTNODE..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=('FROM:ZARATH.LALPUTAN@DC.GOV',
+//         'TO:ROSA.MORALES@DC.GOV',
+//         'CC:MOHAMED.JALLOH@DC.GOV',
+//         'CC:GIL.DIMATTIA@DC.GOV',
+//         'CC:ZARATH.LALPUTAN@DC.GOV',
+//         'SUBJECT: TDEC DELINQ COUNTS                            )',
+//         'FILEDESC: TDEC DELINQ COUNTS                        ',
+//         'FILENAME: TDEC.DELINQ.COUNTS.TXT')
+//SYSUT1   DD DSN=DOESTAX.&EXTNODE..TDECX148.&RUNTYPE..SUMYCNTS,
+//         DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*