90 lines
3.7 KiB
Plaintext
90 lines
3.7 KiB
Plaintext
//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..PROCS.BATCH.LIB
|
|
//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 *
|
|
//*770,
|
|
//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)'
|
|
//*
|