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