//DTSRQ45B JOB (UI,4300,3400,T),BE451,CLASS=A,MSGCLASS=X,               00000010
//       USER=#DOADTS,
//       NOTIFY=ECNTSUP,
//***    TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//******************************************************************
//*
//* JOB       : FIRST DELINQUENCY  PROCESS - ANNUAL
//*
//******************************************************************
//*
//*       1. RUN *AFTER* A DAILY RUN AND A SUCESSFULL COMPLETION
//*          OF THE PENALTY PROCESS (321)
//*
//*       2. THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
//*
//*
//*================================================================|
//***
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
// SET   LHOLD='YES'
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//***
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*********************************************************************
//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QP',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD  *
451,031,061804
/*
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//***
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//STEP0100.RPT451R1 DD  HOLD=YES
//STEP0100.RPT452R1 DD  HOLD=YES
//STEP0100.RPT716R1 DD  DSN=DOESTAX.&LVLNODE..ANNUAL.RPT716,DISP=SHR
//STEP0100.RPT907R1 DD  HOLD=YES
//STEP0100.RPT907R2 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
//*                                                                     00640000
//*
//*                       STD BACKUP AFTER  DATA FILE UPDATE
//STEP0400 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'
//*
//*