//DTSRQ417 JOB (UI,4300,3400,T),PROD.BE417,CLASS=P,MSGCLASS=X,
//       NOTIFY=ECNTZL1,
//       USER=#DOADTS,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//   SET ACHYEAR='FY2009'  <<<< ARCHIVING YEAR
//   SET TPSYRQ='YR2019'  <<<< CHANGE FOR RUN
//   SET LVLNODE='PROD'
//   SET   LHOLD='NO'
//******************************************************************
//* JOB       : MISSING QTRLY RPT NOTICE    (417)
//*             DELINQUENT ACCT NBR LIST    (418)
//*             TPS RPT DELINQUENCY RECORDS (716) (EXPORT)         |
//******************************************************************
//*       1. PENALTY AND MISSING REPORTS JOB DTSRQ320 COMPLETED
//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN
//******************************************************************
//* UPDATED PROC TO BACKUP COPY OF ICESA FILE USED FOR THIS RUN AND
//*         TO SAVE A COPY OF THE OUTPUT FILE (BE417.RPT)       ZL1
//*================================================================|
//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 DTSUR417,                   BD400 PERIODIC EXTRACT
//          RUNTYPE='QD',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ417),
//         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
//*
//STEP0400 EXEC DTSAR417
//*
//*                           STD BACKUP AFTER DATA FILE UPDATE
//STEP0500 EXEC DTSUTVSM,
//           BKUPGEN='(+1)'
//*