//DTSRQ32B 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)
//*        30 DAYS THEN RUN ANNUAL FINAL DELINQ  (453)
//*        30 DAYS THEN RUN ANNUAL ESTIMATED RPT (455)
//*
//*    ****  THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
//*
//*
//*================================================================|
//***
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//***
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//STEP0100 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'
//*
//*********************************************************************
//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QP',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD  *
321,031
/*
//*