DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ902.jcl

@@ -0,0 +1,66 @@
+//DTSRQ902 JOB (UI,4300,3400,T),PROD.UC30.BE351,                        00000010
+//       CLASS=P,MSGCLASS=X,                                            00000010
+//       USER=#DOADTS,
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET TPSYRQ='YR20174'   <<< CHANGE BEFORE RUNNING
+//    SET LVLNODE='PROD'
+//    SET LVDNODE='YES'
+//    SET  UINODE='PROD'
+//    SET   LHOLD='NO'
+//****
+//* JOB       : UC-30 QTRLY MASS MAILING      (902)
+//*             UC-30 COUNTS REPORT           (908)
+//*             TPS CONTRIBUTION RPT RECORDS  (719)  (EXPORT)
+//****
+//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
+//****
+//***     PARMS ARE: - YRQTR (FOR WHICH TO PRINT THE UC30'S)
+//***                - Y/N   (TO PRINT CREDIT AMOUNTS)
+//***
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                          STD BACKUP BEFORE DATA FILE UPDATE
+//*                       (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
+//*TEP0050 EXEC DTSUTVSM,
+//*           BKUPGEN='(+1)'
+//***
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ902),
+//         DISP=SHR
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//***
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DTSTPRPT
+//STEP0100.RPT907R1 DD  SYSOUT=0
+//**                           UNUSUAL CONDITIONS REPORT (NOT NEEDED)
+//RPT907R2 DD  DUMMY
+//**                           UC30 COUNTS (REPORT SUMMARY)
+//STEP0100.RPT908R1 DD  SYSOUT=0
+//**                           CONTROL REPORT SUMMARY
+//STEP0100.RPT980R1 DD  SYSOUT=0
+//**                           EXPORT CONTROL REPORTS
+//STEP0100.RPT991R1 DD  SYSOUT=0
+//**                           TPS RECORD POPULATION CREATION
+//STEP0100.RPT715R1 DD DUMMY
+//STEP0100.RPT716R1 DD DUMMY
+//STEP0100.RPT717R1 DD DUMMY
+//STEP0100.RPT718R1 DD DUMMY
+//STEP0100.RPT720R1 DD DUMMY
+//STEP0100.RPT720R2 DD DUMMY
+//STEP0100.RPT722R1 DD DUMMY
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*
+//*                       STD BACKUP AFTER DATA FILE UPDATE
+//*                       ( CHANGE +1 TO +2 IF BKP DONE IN STEP0100)
+//STEP0400 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'
+//**