//DTSRQ418 JOB (UI,4300,3400,T),PROD.BE418,CLASS=P,MSGCLASS=X,
//       NOTIFY=ECNTSUP,
//       USER=#DOADTS,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//   SET ACHYEAR='FY2009'  <<<< ARCHIVING YEAR
//   SET TPSYRQ='YR2013'  <<<< CHANGE FOR RUN
//   SET LVLNODE='PROD'
//   SET   LHOLD='NO'
//******************************************************************
//* JOB       : DELINQUENT G QTRLY RPT NOTICE    (417)
//*             DELINQUENT ACCT NBR LIST    (418)
//******************************************************************
//*       1. RUN ONE MONTH AFTER DTSRQ417 RUN
//*================================================================|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//*             (NOT NEEDED IF RUN IMMEDIATELY AFTER A REGULAR DAILY)
//*TEP0100 EXEC DTSUTVSM,
//*        BKUPGEN='(+1)'
//****
//STEP0100 EXEC DTSUEXT,                    BD400 PERIODIC EXTRACT
//          RUNTYPE='QD',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ418),
//         DISP=SHR
//***                                       SORT REPORT RECORDS
//STEP0100.DTSFE417  DD  DSN=DOESTAX.&LVLNODE..DTSFE417,
//*            DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(2,2)),
//             DCB=(RECFM=FB,LRECL=51,BLKSIZE=25500)
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//***                                       REPORT GENERATION
//STEP0300 EXEC DTSTPRPT
//***                                       SORT REPORT RECORDS
//STEP0100.RPT418R1 DD  SYSOUT=0
//**                           TPS REPORT DELINQUENCY RECORDS (EXPORT)
//**
//STEP0100.RPT417R1 DD  SYSOUT=*
//STEP0100.RPT715R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT718R1 DD DUMMY
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.RPT720R1 DD DUMMY
//STEP0100.RPT720R2 DD DUMMY
//STEP0100.RPT722R1 DD DUMMY
//**
//STEP0100.RPT907R1 DD  SYSOUT=0
//STEP0100.RPT907R2 DD  DUMMY
//STEP0100.RPT980R1 DD  SYSOUT=0
//*
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*
//***** MOVED FROM RQ417      ARCHIVE RECORD TYPE 417
//*
//STEP0400 EXEC DTSAR417
//*
//*                           STD BACKUP AFTER DATA FILE UPDATE
//*TEP0500 EXEC DTSUTVSM,
//*          BKUPGEN='(+1)'
//***           BKUPGEN='(+2)'  /* USE ONLY IF BKP DONE IN STEP0100
//*