//ECNTJ713 JOB (UI,4300,3400,T),BE770,CLASS=P,MSGCLASS=X,               00000010
//***    USER=OPCSUB,
//       NOTIFY=ECNTJP2,
//****   TYPRUN=SCAN,        //* CHECK -->> LINES BELOW IF A RERUN
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//    SET LVLNODE='TEST'
//    SET MSTNODE='TEST'
//    SET     QTR='Q034'
//****
//* 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=DTSIJLIB
//*
//*                       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.EXTPARM  DD  *
770,
/*
//***              USE THE FOLLOWING LINES FOR A RERUN   **-->>
//**STEP0100.DTSFBTCO DD  DISP=SHR
//**STEP0100.BE770PRM DD  DISP=SHR
//**STEP0300.DTSX771  DD  DISP=SHR
//**STEP0300.DTSX772  DD  DISP=SHR
//**STEP0300.DTSX773  DD  DISP=SHR
//**STEP0300.DTSX774  DD  DISP=SHR
//**STEP0300.DTSX775  DD  DISP=SHR
//***
//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.RPT719R1 DD  DUMMY
//STEP0100.DTS910F1 DD  DUMMY
//STEP0100.RPT713R2 DD HOLD=YES
//***                            STD BACKUP AFTER DATA FILE UPDATE
//*STEP0600 EXEC DTSUTVSM,
//***          BKUPGEN='(+2)'     /* (ONLY IF 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 ARE DONE IN THE MONTHLY)
//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
//*                                 A SUCCESSFUL (ANNUAL?) LOAD)
//*STEP0500 EXEC DTSRORG2,
//***          BKUPGEN='(+2)'     /* (ONLY IF BKP DONE IN STEP0100)
//*         BKUPGEN='(+1)'
//*