//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