41 lines
1.0 KiB
Plaintext
41 lines
1.0 KiB
Plaintext
//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.PROCLIB
|
|
//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
|
|
//*
|