DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ352.jcl

@@ -0,0 +1,77 @@
+//DTSRQ352 JOB (UI,4300,3400,T),PROD.UC30H.BE352,                       00000010
+//       CLASS=S,MSGCLASS=X,                                            00000010
+//       NOTIFY=ECNTSUP,
+//****   USER=#DOADTS,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//* JOB       : UC-30H YRLY MASS MAILING      (910)
+//*             UC-30 COUNTS REPORT           (908)
+//*          NO TPS CONTRIBUTION RPT RECORDS  (719)  (EXPORT)
+//****
+//    SET LVLNODE='PROD'
+//    SET   LHOLD='YES'
+//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*       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
+//*                       (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
+//*TEP0100 EXEC DTSUTVSM,
+//*          BKUPGEN='(+1)'
+//***
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QR',
+//          PREBACK='Y'
+//*
+//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ352),
+//         DISP=SHR
+//*
+//STEP0100.DTSFWGH  DD  DSN=DOESTAX.&LVLNODE..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.RPT902R1 DD  HOLD=YES
+//STEP0100.RPT907R1 DD  HOLD=YES
+//STEP0100.RPT907R2 DD  HOLD=YES
+//STEP0100.RPT908R1 DD  HOLD=YES
+//*
+//STEP0100.DTS910F1 DD  DSN=DOESTAX.&LVLNODE..UC30HDAT,   490
+//   DISP=SHR
+//*
+//STEP0100.RPT910R1 DD  HOLD=YES       <=== OUTPUT TO THE FORM
+//STEP0100.RPT910R2 DD  HOLD=YES       <=== OUTPUT TO THE FORM
+//STEP0100.RPT980R1 DD  HOLD=YES
+//STEP0100.RPT991R1 DD  HOLD=YES
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
+//*
+//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0',COND=(0,NE)                    00015000
+//SYSOUT DD SYSOUT=(*)                                                  00017000
+//SYSPRINT DD SYSOUT=(*)                                                00018000
+//*                                                                     00019000
+//SORTIN DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR                     00020000
+//SORTOUT DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR                    00035000
+//*  DISP=(NEW,CATLG,DELETE),                                           00036000
+//*  UNIT=SYSDA,                                                        00037000
+//*  SPACE=(CYL,(5,5),RLSE),                                            00038000
+//*  DCB=*.SORTIN                                                       00040000
+//*                                                                     00040100
+//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040200
+//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040300
+//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040400
+//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)                      00040500
+//*                                                                     00042000
+//SYSIN    DD *                                                         00043000
+  SORT FIELDS=(6,7,CH,A)                                                00044000
+/*                                                                      00045000
+//STEP0500 EXEC DTSUTVSM,
+//           BKUPGEN='(+1)'
+//***
+//*                                                                     00046000