//DTSRQ412 JOB (UI,4300,3400,T),BE461,CLASS=A,MSGCLASS=X,               00000010
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
//***                         /JOBNAME RQ412 FOR VIEW DIRECT REPORTS
//  SET LVLNODE='PROD'
//  SET MSTNODE='PROD'
//  SET QTRNODE='QTR081'   <<<< CHANGE PARM BEFORE RUNNING JOB
//  SET   LHOLD='YES'
//***
//* JOB       : INTEND TO ESTIMATE NOTICE(461).
//***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//***
//STEP0200 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='OR',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD  *
461,Y,081           <<<<<<<< CHANGE PARM BEFORE RUNNING JOB
/*
//*                                         SORT REPORT RECORDS
//STEP0300 EXEC DTSRSORT
//***
//*                                         REPORT GENERATION
//STEP0400 EXEC DTSRQRPT
//*                                         REPORT GENERATION
//**                              ESTIMATED REPORT LIST
//STEP0100.RPT461R1 DD  SYSOUT=(V,DTS412Q1),HOLD=&LVDHOLD.,DEST=&LDEST
//**                           NO ESTIMATED REPORT LIST
//STEP0100.RPT461R2 DD  SYSOUT=(V,DTS412Q2),HOLD=&LVDHOLD.,DEST=&LDEST
//*                                         REPORT GENERATION
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS
//**********************************************************************
//STEP0500 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
//INDD02   DD DSN=DOESTAX.&LVLNODE..R461.&QTRNODE.,
//           DISP=(,CATLG,DELETE),
//           SPACE=(8192,(100,200),RLSE),
//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//*