DUTAS re-platformed to Raincode - Initial Source Code

JCL/ECNTV309.jcl

@@ -0,0 +1,47 @@
+//ECNTV309 JOB (UI,4300,3400,T),PROD.RQ309.VIEWDIR,
+//         CLASS=P,MSGCLASS=X,
+//****     USER=OPCSUB,
+//****     NOTIFY=ECNTJP2,
+//         NOTIFY=ECNTSUP,
+//****     TYPRUN=SCAN,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****                             /* A SPEC. RUN TO CAPTURE THE
+//    SET LVLNODE='PROD'           /* CR-MEMO LTR FOR EUAA01
+//    SET PRGNODE='PROD'
+//    SET   LHOLD='YES'
+//    SET LVDHOLD='YES'
+//    SET   LDEST=U@PRT65
+//****
+//* JOB       : STATEMENT OF ACCT   (CR-MEMO)(SM)  (309)
+//*           : COPY OF SELF-MAILER (CR-MEMO)(LTR) (309)
+//*           : STATEMENT OF ACCT (CTRL REPORT)    (310)
+//****
+//*       1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*                  (NOT NEEDED IF RUN RIGHT AFTER THE DAILY JOB)
+//*
+//***STEP0100 EXEC DTSUTVSM,
+//***             BKUPGEN='(+1)'
+//****
+//STEP0150 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='OR',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+309
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSVQRPT
+//STEP0100.RPT309R2 DD SYSOUT=(I,DTS309S2),HOLD=&LVDHOLD.,DEST=&LDEST.
+//STEP0100.RPT907R1 DD SYSOUT=(Q,DTS907S2),HOLD=&LVDHOLD.,DEST=&LDEST.  00631000
+//STEP0100.RPT980R1 DD SYSOUT=(Q,DTS980S2),HOLD=&LVDHOLD.,DEST=&LDEST.  00631000
+//STEP0100.RPT991R1 DD DUMMY                                            00631000
+//DOESLBLP.DOESLBL1 DD DUMMY                        /* LABELS           00631000
+//*                                                                     00640000