DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ418.jcl

@@ -0,0 +1,68 @@
+//DTSRQ418 JOB (UI,4300,3400,T),PROD.BE418,CLASS=P,MSGCLASS=X,
+//       NOTIFY=ECNTSUP,
+//       USER=#DOADTS,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//   SET ACHYEAR='FY2009'  <<<< ARCHIVING YEAR
+//   SET TPSYRQ='YR2013'  <<<< CHANGE FOR RUN
+//   SET LVLNODE='PROD'
+//   SET   LHOLD='NO'
+//******************************************************************
+//* JOB       : DELINQUENT G QTRLY RPT NOTICE    (417)
+//*             DELINQUENT ACCT NBR LIST    (418)
+//******************************************************************
+//*       1. RUN ONE MONTH AFTER DTSRQ417 RUN
+//*================================================================|
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                       STD BACKUP BEFORE DATA FILE UPDATE
+//*             (NOT NEEDED IF RUN IMMEDIATELY AFTER A REGULAR DAILY)
+//*TEP0100 EXEC DTSUTVSM,
+//*        BKUPGEN='(+1)'
+//****
+//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QD',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ418),
+//         DISP=SHR
+//***                                       SORT REPORT RECORDS
+//STEP0100.DTSFE417  DD  DSN=DOESTAX.&LVLNODE..DTSFE417,
+//*            DISP=(NEW,CATLG,CATLG),
+//             DISP=(OLD,KEEP,KEEP),
+//             SPACE=(CYL,(2,2)),
+//             DCB=(RECFM=FB,LRECL=51,BLKSIZE=25500)
+//***                                       SORT REPORT RECORDS
+//STEP0200 EXEC DTSRSORT
+//***                                       REPORT GENERATION
+//STEP0300 EXEC DTSTPRPT
+//***                                       SORT REPORT RECORDS
+//STEP0100.RPT418R1 DD  SYSOUT=0
+//**                           TPS REPORT DELINQUENCY RECORDS (EXPORT)
+//**
+//STEP0100.RPT417R1 DD  SYSOUT=*
+//STEP0100.RPT715R1 DD DUMMY
+//STEP0100.RPT717R1 DD DUMMY
+//STEP0100.RPT718R1 DD DUMMY
+//STEP0100.RPT719R1 DD DUMMY
+//STEP0100.RPT720R1 DD DUMMY
+//STEP0100.RPT720R2 DD DUMMY
+//STEP0100.RPT722R1 DD DUMMY
+//**
+//STEP0100.RPT907R1 DD  SYSOUT=0
+//STEP0100.RPT907R2 DD  DUMMY
+//STEP0100.RPT980R1 DD  SYSOUT=0
+//*
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
+//*
+//***** MOVED FROM RQ417      ARCHIVE RECORD TYPE 417
+//*
+//STEP0400 EXEC DTSAR417
+//*
+//*                           STD BACKUP AFTER DATA FILE UPDATE
+//*TEP0500 EXEC DTSUTVSM,
+//*          BKUPGEN='(+1)'
+//***           BKUPGEN='(+2)'  /* USE ONLY IF BKP DONE IN STEP0100
+//*