51 lines
1.9 KiB
Plaintext
51 lines
1.9 KiB
Plaintext
//DTSRQ309 JOB (UI,4300,3400,T),PROD.BE309,CLASS=A,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
//**** USER=#DOADTS,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='NO'
|
|
//****
|
|
//* JOB : STATEMENT OF ACCT (CR-MEMO)(SM) (309)
|
|
//* : COPY OF SELF-MAILER (CR-MEMO)(LTR) (309)
|
|
//* : STATEMENT OF ACCT (CTRL REPORT) (310)
|
|
//****
|
|
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
|
//* 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 THE DAILY JOB)
|
|
//*
|
|
//***STEP0100 EXEC DTSUTVSM,
|
|
//*** BKUPGEN='(+1)'
|
|
//****
|
|
//STEP0150 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='OR',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ309),
|
|
// DISP=SHR
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//*** REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.RPT309R1 DD HOLD=YES
|
|
//STEP0100.RPT309R2 DD SYSOUT=(V,DTS309S2),HOLD=&LVDHOLD.,DEST=&LDEST.
|
|
//STEP0100.RPT907R1 DD SYSOUT=(V,DTS907S2),HOLD=&LVDHOLD.,DEST=&LDEST.
|
|
//STEP0100.RPT980R1 DD SYSOUT=(V,DTS980S2),HOLD=&LVDHOLD.,DEST=&LDEST.
|
|
//STEP0100.RPT991R1 DD DUMMY
|
|
//**STEP0100.RPT310R1 DD HOLD=YES
|
|
//**STEP0100.RPT980R1 DD HOLD=YES
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//****
|
|
//* STD BACKUP AFTER DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN RIGHT BEFORE THE DAILY JOB)
|
|
//STEP0400 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)' /* IF NOT DONE IN STEP0100
|
|
//** BKUPGEN='(+2)' /* IF 2ND BKP IS NEEDED
|
|
//*
|