DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ444.jcl

@@ -0,0 +1,62 @@
+//DTSRQ444 JOB (UI,4300,3400,T),RQ443,CLASS=S,MSGCLASS=X,               00000010
+//       NOTIFY=ECNTSUP,
+//       USER=#DOADTS,
+//*      TYPRUN=SCAN,
+//       REGION=0M
+//******************************************************************
+// SET MSTNODE='PROD'
+// SET LVLNODE='PROD'
+//******************************************************************
+//*                                                                |
+//* JOB       : AGING OF ACCOUNTS RECEIVABLE  -----WEEKLY       ZL1*
+//*                                                                |
+//******************************************************************
+//*                                                                |
+//*       1. RUN RIGHT AFTER THE LAST SUCCESSFUL DAILY RUN
+//*                           IN A QUARTER
+//*
+//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
+//*
+//*
+//*================================================================|
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//***
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*TEP0100 EXEC DTSUTVSM,
+//*            BKUPGEN='(+1)'
+//*
+//*********************************************************************
+//STEP0150 EXEC DTSRQ444,                   BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+444,
+/*
+//STEP0100.DTSFBTCO DD  DUMMY
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//**
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT443R1 DD  HOLD=YES
+//*
+//X444MAIL EXEC PGM=IEBGENER,COND=(0,LT),
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//  USERDATA=('TO:CANDIS.CHANEY@DC.GOV',
+//            'TO:HAWI.ALEMU@DC.GOV',
+//*           'TO:TIMOTHY.PERLOW@DC.GOV',
+//*           'CC:JOY.DIGGS@DC.GOV',
+//*           'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
+//         'SUBJECT: WEEKLY COLLECTION A/R REPORT',
+//         'FILENAME:WEEKLY_COLL_AR_REPORT.CSV'),
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.PROD.DTSBE444.QTRAR,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//***