48 lines
1.8 KiB
Plaintext
48 lines
1.8 KiB
Plaintext
//ECNTV309 JOB (UI,4300,3400,T),PROD.RQ309.VIEWDIR,
|
|
// CLASS=P,MSGCLASS=X,
|
|
//**** USER=OPCSUB,
|
|
//**** NOTIFY=ECNTJP2,
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** /* A SPEC. RUN TO CAPTURE THE
|
|
// SET LVLNODE='PROD' /* CR-MEMO LTR FOR EUAA01
|
|
// SET PRGNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
// SET LVDHOLD='YES'
|
|
// SET LDEST=U@PRT65
|
|
//****
|
|
//* 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.&PRGNODE..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 *
|
|
309
|
|
/*
|
|
//* REPORT RECORD SORT
|
|
//STEP0250 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSVQRPT
|
|
//STEP0100.RPT309R2 DD SYSOUT=(I,DTS309S2),HOLD=&LVDHOLD.,DEST=&LDEST.
|
|
//STEP0100.RPT907R1 DD SYSOUT=(Q,DTS907S2),HOLD=&LVDHOLD.,DEST=&LDEST. 00631000
|
|
//STEP0100.RPT980R1 DD SYSOUT=(Q,DTS980S2),HOLD=&LVDHOLD.,DEST=&LDEST. 00631000
|
|
//STEP0100.RPT991R1 DD DUMMY 00631000
|
|
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00631000
|
|
//* 00640000
|