60 lines
2.2 KiB
Plaintext
60 lines
2.2 KiB
Plaintext
//DTSRQ412 JOB (UI,4300,3400,T),PROD.BE412,CLASS=P,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTZL1,
|
|
//**** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// REGION=0M
|
|
//***
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='NO'
|
|
//***
|
|
//* JOB : ESTIMATED REPORT LIST(S) QUARTERLY (RATED AND SI) FILERS ONLY
|
|
//***
|
|
//*** SYSTEM WILL DEFAULT TO LAST DELINQUENT QUARTER IF PARM IS LEFT
|
|
//*** BLANK BELOW. OTHERWISE TYPE IN YYQ ON PARM CARD 7/11/17 ZL1
|
|
//***
|
|
//***
|
|
//* 1. RUN IMMEDIATELY *BEFORE* A DAILY RUN
|
|
//* (CAN BE RUN *AFTER* BUT THAT STRETCHES
|
|
//* THE PROCESS OUT - UP TO 3 DAYS)
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
|
|
//* 3. ANY ESTIMATED LETTERS SHOULD COME OUT AS RPT316'S ON
|
|
//* THE NEXT DAILY (AFTER SYS-BATCHES ARE RELEASED)
|
|
//***
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN IMMEDIATELY *AFTER*
|
|
//* A REGULAR DAILY RUN)
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//***
|
|
//STEP0200 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='OR',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD *
|
|
412,
|
|
/*
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0300 EXEC DTSRSORT
|
|
//*** REPORT GENERATION
|
|
//STEP0400 EXEC DTSRQRPT
|
|
//** ESTIMATED REPORT LIST
|
|
//STEP0100.RPT412R1 DD SYSOUT=0
|
|
//** NO ESTIMATED REPORT LIST
|
|
//STEP0100.RPT412R2 DD SYSOUT=0
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//STEP0100.RPT907R2 DD DUMMY
|
|
//** CONTROL REPORT SUMMARY
|
|
//STEP0100.RPT980R1 DD SYSOUT=0
|
|
//*
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//*
|
|
//* STD BACKUP *AFTER* DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN IMMEDIATELY *BEFORE*
|
|
//* A REGULAR DAILY RUN - SEE STEP0100 ABOVE)
|
|
//STEP0500 EXEC DTSUTVSM,
|
|
//** BKUPGEN='(+2)' /* USE ONLY IF BKP DONE IN STEP0100
|
|
// BKUPGEN='(+1)'
|
|
//*
|