//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)'
//*