43 lines
3.3 KiB
Plaintext
43 lines
3.3 KiB
Plaintext
//DTS715R3 JOB (UI,4300,3400,T),TPS-STATUS-INAV, 00010041
|
|
// CLASS=P,MSGCLASS=X, 00020038
|
|
//**** TYPRUN=SCAN, 00030038
|
|
// NOTIFY=ECNTSUP 00040038
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//** 00050038
|
|
// SET LVLNODE='PROD' 00060038
|
|
// SET TPSFILE1='DOESTAX.PROD.RPT715.YR2012' <<< CHANGE CC BEF RUN 00070043
|
|
// SET PRINTER1='DOESTAX.PROD.STATUS3.YR2012' <<< CHANGE CC BEF RUN 00080045
|
|
// SET PICKLST='DOESTAX.PROD.PICKLST3.YR2012' <<< CHANGE CC BEF RUN 00080045
|
|
// SET LDEST=U@PRT65 00090038
|
|
//**----------------------------------------------------------------- 00100038
|
|
//* JOB: TPS RUN FROM RPT715 - STATUS DETERMINATION 00110038
|
|
//* (RPT715 IS PRODUCED BY RUNRQ715) 00120038
|
|
//* 00130038
|
|
//* THE PRINTER FILE IS NOW CREATED ON DASD. SEE SET STATEMENT 00140038
|
|
//* FOR THE DATASET NAME. DOWNLOAD THE FILE FOR INPUTTO A SPREAD SHEET00150038
|
|
//* RUN JOB DTS715R1 FOR STATUS1 = NEW 00160040
|
|
//* RUN JOB DTS715R2 FOR STATUS2 = SUCCESSOR 00170040
|
|
//* RUN THIS JOB FOR STATUS3 = INACTIVATED 00180040
|
|
//* 00200038
|
|
//**----------------------------------------------------------------- 00210038
|
|
//* DEFINITION FOR PARMIN: 00220038
|
|
//* COLS 1-1 TRANSACTION TYPE (1, 2 OR 3) 00230038
|
|
//* - 1 = NEW, 2 = SUCCESSOR, 3 = INACTIVATED 00240038
|
|
//* COLS 3-5 RANDOM NUMBER (PICK ONE) 00250038
|
|
//* 7-10 NUMBER TO BE SAMPLED 00260038
|
|
//* - 4 DIGITS RIGHT JUSTIFIED 00270038
|
|
//* - ENTER LEADING ZEROES IF NEEDED 00280038
|
|
//* 12-13 SAMPLE TYPE 00290038
|
|
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
|
//* 15-18 YYYY 00310038
|
|
//**----------------------------------------------------------------- 00320038
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
|
//** 00350038
|
|
//STEP0100 EXEC DTSTP715 00360038
|
|
//STEP0100.PARMIN DD * 00370038
|
|
3,483,0060,A1,2012 00380045
|
|
/* 00390038
|
|
// 00400038
|
|
//** 00410038
|