30 lines
1.0 KiB
Plaintext
30 lines
1.0 KiB
Plaintext
//DTSRQ462 JOB (UI,4300,3400,T),DELQ.BE462,CLASS=A,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
//***
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET QTRNODE='QTR081' <<<<<< CHANGE PARM BEFORE RUNNING JOB
|
|
// SET LHOLD='YES' <<<<<< CHANGE PARM BELOW ALSO
|
|
//***
|
|
//* JOB : ESTIMATE NOTICE(461).
|
|
//***
|
|
//* 1. RUN IMMEDIATELY BEFORE OR AFTER A DAILY RUN
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN AS WELL
|
|
//* 3. ANY ESTIMATED LETTERS SHOULD COME AS RPT316'S ON
|
|
//* THE NEXT DAILY (AFTER SYS-BATCHES ARE RELEASED)
|
|
//***
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
|
|
//*OADLIBS INCLUDE MEMBER=DTSIPJLB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//STEP0200 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='OR',
|
|
// PREBACK='Y'
|
|
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..R461.&QTRNODE.,DISP=SHR
|
|
//STEP0100.EXTPARM DD *
|
|
462,081 <<<< CHANGE PARM BEFORE RUNNING JOB
|
|
/*
|
|
//* SORT REPORT RECORDS
|