62 lines
2.4 KiB
Plaintext
62 lines
2.4 KiB
Plaintext
//DTSRQ420 JOB (UI,4300,3400,T),BE420.FNL.DELINQ,CLASS=P,MSGCLASS=X, 00000010
|
|
//* USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**
|
|
// SET ACHYEAR='FY2009' /* NOTE THAT THIS IS THE SECOND STEP
|
|
// SET LVLNODE='PROD' /* NOTE THAT THIS IS THE SECOND STEP
|
|
// SET LDEST=U@PRT65 /* IN THE DELINQUENCY CYCLE
|
|
// SET LHOLD='NO' /* OF MISSING UC30'S
|
|
//**
|
|
//* JOB : FINAL NOTICE DELINQUENCY LIST (420) (NOW 422R1)
|
|
//* FINAL DELINQUENT NOTICE (421)
|
|
//* DELINQUENCY RPT LST (BY FRO) (422) (NOW 422R2)
|
|
//* (FCO & REP SUMMARY)
|
|
//****
|
|
//* NOTES: 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN
|
|
//* PARMS: 1 Y/N IS NOTICE IND. (LEAVE AT Y)
|
|
//* 2. YRQTR IS THE QTR TO BE PROCESSED
|
|
//* 3. MMDDYY (1ST) IS CURRENT RUN DATE
|
|
//* 4. MMDDYY (2ND) IS CURRENT RUN + 14 DAYS
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN RIGHT AFTER THE DAILY)
|
|
//*TEP0050 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//*
|
|
//****
|
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='QF',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD *
|
|
420,Y,111, ,
|
|
/*
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//*** REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.RPT420R1 DD DUMMY /* NOW PRODUCED AS RPT422R2 00630200
|
|
//STEP0100.RPT422R1 DD SYSOUT=(V,DTS422Q1),HOLD=&LVDHOLD.
|
|
//** DELINQUENT REPORT SUMMARY
|
|
//STEP0100.RPT422R2 DD SYSOUT=(V,DTS422Q2),HOLD=&LVDHOLD.
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//STEP0100.RPT907R2 DD DUMMY
|
|
//** CONTROL REPORT SUMMARY
|
|
//STEP0100.RPT980R1 DD SYSOUT=(V,DTS980Q1),HOLD=&LVDHOLD.
|
|
//*
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//***
|
|
//* /*ARCHIVE RECORD TYPE 421
|
|
//STEP0400 EXEC DTSAR420
|
|
//* STD BACKUP AFTER DATA FILE UPDATE
|
|
//* (CHNG +1 TO +2 IF BKP USED IN STEP0050)
|
|
//STEP0500 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)'
|
|
//*
|