//DTSRQ321 JOB (UI,4300,3400,T),BE321,CLASS=A,MSGCLASS=X,               00000010
//       USER=#DOADTS,
//       NOTIFY=ECNTSUP,
//**     TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//******************************************************************
//*
//* JOB       : PENALTY ASSESSMENT PROCESS - ANNUAL
//*
//******************************************************************
//*
//*       1. RUN *BEFORE* A DAILY RUN
//*
//*       2. RUN DAILY RUN
//*
//*                THEN RUN ANNUAL FIRST DELINQ  (451)
//* NO LONGER RAN..THEN RUN ANNUAL FINAL DELINQ  (453)
//*        60 DAYS THEN RUN ANNUAL ESTIMATED RPT (455)
//*
//*    ****  THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
//*
//*
//*================================================================|
//***
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
// SET PENQTR='YR2023'
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//***
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//STEP0100 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'
//*
//*********************************************************************
//STEP0100 EXEC DTSUEXT4,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QP',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ321),
//         DISP=SHR
//**                    (NOT NEEDED IF RUN IMMEDIATELY BEFORE
//STEP0200 EXEC DTSRS321
//***
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS
//*                                         SPECIFIC OVERRIDES
//**                             A REGULAR DAILY RUN )
//*TEP0300 EXEC DTSUTVSM,
//*         BKUPGEN='(+1)'
//*
//*