59 lines
2.3 KiB
Plaintext
59 lines
2.3 KiB
Plaintext
//DTSRQ910 JOB (UI,4300,3400,T),PROD.UC30H.BE352, 00000010
|
|
// CLASS=A,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
// SET LVLNODE='PROD'
|
|
// SET LVDNODE='YES'
|
|
// SET UINODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//* JOB: UC-30H YRLY MASS MAILING (910)
|
|
//* UC-30 COUNTS REPORT (908)
|
|
//* NOTE: TPS CONTRIBUTION RPT RECORDS (719H) WILL NOT BE PRODUCED
|
|
//* FOR EXPORT UNTIL TPS HAS A WORKING DEFINITION FOR THEIR USAGE.
|
|
//****
|
|
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
|
//****
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
|
|
//**STEP0050 EXEC DTSUTVSM,
|
|
//** BKUPGEN='(+1)'
|
|
//****
|
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='QR',
|
|
// PREBACK='Y'
|
|
//*
|
|
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ910),
|
|
// DISP=SHR
|
|
//*
|
|
//STEP0100.DTSFWGH DD DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//**** REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.RPT719R1 DD DUMMY
|
|
//STEP0100.RPT991R1 DD DUMMY
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//STEP0100.RPT907R1 DD SYSOUT=0
|
|
//** UNUSUAL CONDITIONS REPORT (NOT NEEDED)
|
|
//STEP0100.RPT907R2 DD DUMMY
|
|
//** UC30 COUNTS (REPORT SUMMARY)
|
|
//STEP0100.RPT908R1 DD SYSOUT=0
|
|
//** CONTROL REPORT SUMMARY
|
|
//STEP0100.RPT980R1 DD SYSOUT=0
|
|
//** EXPORT CONTROL REPORTS (NONE FOR NOW)
|
|
//**** 00046000
|
|
//* STD BACKUP AFTER DATA FILE UPDATE
|
|
//STEP0500 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)' /* MAKE IT (+2) IF BKP DONE IN STEP050
|
|
//****
|