//DTSRQ320 JOB (UI,4300,3400,T),PROD.BE320,CLASS=P,MSGCLASS=X,          00000010
//       NOTIFY=ECNTSUP,
//       USER=#DOADTS,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET LVLNODE='PROD'
//    SET MSTNODE='PROD'
//     SET PENQTR='Q253'   <<<<<<< FOR FILE NAME ONLY
//     SET LHOLD='NO'   <<<<<<< FOR FILE NAME ONLY
//****
//*    JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY)
//*
//*
//*    JOB : PENALTY ASSESSMENT PROCESS (1ST STEP IN DELINQUENCY)
//*       1. RUN *BEFORE* A DAILY RUN
//*          -->  AFTER THE SUCCESSFUL DAILY RUN,
//*                 THEN RUN THE QTRLY 417 REPORTS
//*       2. THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                             STD BACKUP BEFORE DATA FILE UPDATE
//STEP0100 EXEC DTSUTVSM,
//          BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT3,                   BD400 PERIODIC EXTRACT
//          RUNTYPE='QP',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD *
320,244,
//*                       STD BACKUP AFTER DATA FILE UPDATE
//**                    (NOT NEEDED IF RUN IMMEDIATELY BEFORE
//STEP0200 EXEC DTSRS320
//***
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS
//*                                         SPECIFIC OVERRIDES
//**                             A REGULAR DAILY RUN )
//*TEP0300 EXEC DTSUTVSM,
//*         BKUPGEN='(+1)'
//*