//DTSRQ615 JOB (UI,4300,3400,T),PROD.BE615,CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//         USER=#DOADTS,
//****     TYPRUN=SCAN,
//         REGION=0M
//****
//****
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET LHOLD='YES'
//****
//*    CREATE FIELD ASSIGNMENTS FOR DELINQUENCY (QUARTERLY)
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*      BACKUP REQUIRED - UPDATES HEADER, MFAS, MEVL, MPRF.
//**
//********************************************************************
//*  REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES
//********************************************************************
//*
//STEP0050 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR',
//             PREBACK='Y'
//STEP0100.EXTPARM DD *
615,   ,
/*
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*
//STEP0300 EXEC DTSRQRPT
//STEP0100.RPT615R1 DD  HOLD=NO
//STEP0100.RPT907R1 DD  HOLD=YES
//STEP0100.RPT907R2 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//*