DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ910.jcl

@@ -0,0 +1,58 @@
+//DTSRQ910 JOB (UI,4300,3400,T),PROD.UC30H.BE352,                       00000010
+//       CLASS=A,MSGCLASS=X,                                            00000010
+//       USER=#DOADTS,
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='PROD'
+//    SET LVDNODE='YES'
+//    SET  UINODE='PROD'
+//    SET   LHOLD='YES'
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//*     JOB:    UC-30H YRLY MASS MAILING      (910)
+//*             UC-30 COUNTS REPORT           (908)
+//* NOTE: TPS CONTRIBUTION RPT RECORDS (719H) WILL NOT BE PRODUCED
+//*  FOR EXPORT UNTIL TPS HAS A WORKING DEFINITION FOR THEIR USAGE.
+//****
+//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
+//****
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*                       (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
+//**STEP0050 EXEC DTSUTVSM,
+//**           BKUPGEN='(+1)'
+//****
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QR',
+//          PREBACK='Y'
+//*
+//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ910),
+//         DISP=SHR
+//*
+//STEP0100.DTSFWGH  DD  DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//****                                      SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//****                                      REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT719R1 DD   DUMMY
+//STEP0100.RPT991R1 DD   DUMMY
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//STEP0100.RPT907R1 DD  SYSOUT=0
+//**                           UNUSUAL CONDITIONS REPORT (NOT NEEDED)
+//STEP0100.RPT907R2 DD  DUMMY
+//**                           UC30 COUNTS (REPORT SUMMARY)
+//STEP0100.RPT908R1 DD  SYSOUT=0
+//**                           CONTROL REPORT SUMMARY
+//STEP0100.RPT980R1 DD  SYSOUT=0
+//**                           EXPORT CONTROL REPORTS (NONE FOR NOW)
+//****                                                                  00046000
+//*                       STD BACKUP AFTER DATA FILE UPDATE
+//STEP0500 EXEC DTSUTVSM,
+//            BKUPGEN='(+1)'  /* MAKE IT (+2) IF BKP DONE IN STEP050
+//****