//DTSRQ713 JOB (UI,4300,3400,T),BE770,CLASS=P,MSGCLASS=X,               00000010
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,        //* CHECK -->> LINES BELOW IF A RERUN
//       REGION=0M           //* CHECK -->> 1X SPECIAL LINES (DELETE)
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET LVLNODE='PROD'
//    SET MSTNODE='PROD'
//    SET UINODE='PROD'
//    SET SPCNODE='PROD'
//*** SET     QTR='Q063'
//    SET   LHOLD='NO'
//****
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
//* FOR THE ETA581 PROCESS AND THE ETA581 REPORT ITSELF.
//*
//* THIS PROCESS CREATES DTSIY77X RECORDS THAT ARE SORTED AND INPUT
//* TO DTSBX770. IT CALLS THE APPROPRIATE PROGRAMS TO BUILD THE
//* RECONSTRUCTION FILE RECORDS (DTSIX77X).
//****
//*       1. RUN RIGHT AFTER THE LAST SUCCESSFUL DAILY RUN
//*                           IN A QUARTER
//*       2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
//***
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJ713
//*
//*                       STD BACKUP BEFORE DATA FILE UPDATE
//*                     (NOT NEEDED IF RUN RIGHT *AFTER* A DAILY RUN)
//*STEP0100 EXEC DTSUTVSM,
//*             BKUPGEN='(+1)'
//****
//*             SPEC BACKUP AT END OF QTR BEFORE 581 RPT - UP TO 12
//*                           QTRS TO BE USED FOR AUDITING PURPOSES.
//STEP0125 EXEC DTSUTVSQ,
//             BKUPGEN='(+1)'
//*** *
//STEP0200 EXEC DTSUX770,                   BD400 PERIODIC EXTRACT
//          RUNTYPE='QE',
//          PREBACK='Y'
//*STEP0100.DTSFREF   DD  DSN=DOESTAX.&SPCNODE..VSAM.REF,  /*1X SPECIAL
//*            DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//*STEP0100.DTSFBTCO DD  DISP=(OLD,KEEP,KEEP)
//*STEP0100.BE770PRM DD  DISP=(OLD,KEEP,KEEP)
//STEP0100.EXTPARM  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713),
//         DISP=SHR
//***              USE THE FOLLOWING LINES FOR A RERUN   **-->>
//*STEP0300.DTSFREF   DD  DSN=DOESTAX.&SPCNODE..VSAM.REF,  /*1X SPECIAL
//*            DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//*TEP0300.DTSX771  DD  DISP=(OLD,KEEP,KEEP)
//*TEP0300.DTSX772  DD  DISP=(OLD,KEEP,KEEP)
//*TEP0300.DTSX773  DD  DISP=(OLD,KEEP,KEEP)
//*TEP0300.DTSX774  DD  DISP=(OLD,KEEP,KEEP)
//*TEP0300.DTSX775  DD  DISP=(OLD,KEEP,KEEP)
//***
//STEP0100.DTSFVR01 DD  DUMMY
//***                              SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
//SYSPRINT DD  SYSOUT=*
//SOUTOUT  DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTDVA),
//            DISP=SHR
//***                                       SORT REPORT RECORDS
//STEP0400 EXEC DTSRSORT
//***                                       REPORT GENERATION
//STEP0500 EXEC DTSRQRPT
//*STEP0100.DTSFREF   DD  DSN=DOESTAX.&SPCNODE..VSAM.REF,  /*1X SPECIAL
//*            DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//STEP0100.RPT719R1 DD  DUMMY
//STEP0100.DTS910F1 DD  DUMMY
//***                            STD BACKUP AFTER DATA FILE UPDATE
//STEP0600 EXEC DTSUTVSM,
//***          BKUPGEN='(+2)'     /* (ONLY IF +1 BKP DONE IN STEP0100)
//          BKUPGEN='(+1)'
//*
//*                        THIS RESTORE IS DONE AT QTR-END TO
//*                   REORG THE SECONDARY VSAM FILES (ATC/REF & WRK)
//*                        (OLA IS ALREADY RESET BY THE DAILY)
//*              (MSTA/B/C/D/E/F/G & AIX & WGH ARE DONE IN THE WEEKLY)
//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
//*                                 A SUCCESSFUL (ANNUAL?) LOAD)
//*TEP0500 EXEC DTSRORG2,
//***          BKUPGEN='(+2)'     /* (ONLY IF BKP DONE IN STEP0100)
//*        BKUPGEN='(+1)'
//*