DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ442.jcl

@@ -0,0 +1,47 @@
+//DTSRQ442 JOB (UI,4300,3400,T),RQ442,CLASS=A,MSGCLASS=X,               00000010
+//       USER=#DOADTS,
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+//******************************************************************
+// SET MSTNODE='PROD'
+// SET LVLNODE='PROD'
+// SET LHOLD='YES'
+//******************************************************************
+//*                                                                |
+//* JOB       : AGING OF ACCOUNTS RECEIVABLE
+//*                                                                |
+//******************************************************************
+//*                                                                |
+//*       1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN
+//*
+//*
+//*
+//*================================================================|
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
+//***
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*********************************************************************
+//STEP0150 EXEC DTSBE442,                   BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRQ442),
+//            DISP=SHR
+/*
+//STEP0100.DTSFBTCO DD  DUMMY
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//**
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//*
+//STEP0400 EXEC PGM=FTP
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT442),DISP=SHR
+/*
+//***