82 lines
3.1 KiB
Plaintext
82 lines
3.1 KiB
Plaintext
//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)'
|
|
//*
|