DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ420.jcl

@@ -0,0 +1,61 @@
+//DTSRQ420 JOB (UI,4300,3400,T),BE420.FNL.DELINQ,CLASS=P,MSGCLASS=X,    00000010
+//*      USER=#DOADTS,
+//       NOTIFY=ECNTSUP,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+//  SET ACHYEAR='FY2009'     /* NOTE THAT THIS IS THE SECOND STEP
+//  SET LVLNODE='PROD'       /* NOTE THAT THIS IS THE SECOND STEP
+//  SET LDEST=U@PRT65        /* IN THE DELINQUENCY CYCLE
+//  SET LHOLD='NO'           /* OF MISSING UC30'S
+//**
+//* JOB       : FINAL NOTICE DELINQUENCY LIST  (420) (NOW 422R1)
+//*             FINAL DELINQUENT NOTICE        (421)
+//*             DELINQUENCY RPT LST (BY FRO)   (422) (NOW 422R2)
+//*                        (FCO & REP SUMMARY)
+//****
+//* NOTES:    1. RUN AFTER A SUCCESSFUL DAILY RUN
+//*           2. THE CICS FILES MUST BE CLOSED FOR THIS RUN
+//* PARMS:    1  Y/N IS NOTICE IND. (LEAVE AT Y)
+//*           2. YRQTR IS THE QTR TO BE PROCESSED
+//*           3. MMDDYY (1ST) IS CURRENT RUN DATE
+//*           4. MMDDYY (2ND) IS CURRENT RUN + 14 DAYS
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*                       (NOT NEEDED IF RUN RIGHT AFTER THE DAILY)
+//*TEP0050 EXEC DTSUTVSM,
+//*          BKUPGEN='(+1)'
+//*
+//****
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QF',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  *
+420,Y,111,      ,
+/*
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//***                                       REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT420R1 DD DUMMY           /* NOW PRODUCED AS RPT422R2      00630200
+//STEP0100.RPT422R1 DD  SYSOUT=(V,DTS422Q1),HOLD=&LVDHOLD.
+//**                           DELINQUENT REPORT SUMMARY
+//STEP0100.RPT422R2 DD  SYSOUT=(V,DTS422Q2),HOLD=&LVDHOLD.
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//STEP0100.RPT907R2 DD  DUMMY
+//**                           CONTROL REPORT SUMMARY
+//STEP0100.RPT980R1 DD  SYSOUT=(V,DTS980Q1),HOLD=&LVDHOLD.
+//*
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//***
+//*                     /*ARCHIVE RECORD TYPE 421
+//STEP0400 EXEC DTSAR420
+//*                       STD BACKUP AFTER DATA FILE UPDATE
+//*                         (CHNG +1 TO +2 IF BKP USED IN STEP0050)
+//STEP0500 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'
+//*