48 lines
3.5 KiB
Plaintext
48 lines
3.5 KiB
Plaintext
//DTSRT715 JOB (UI,4300,3400,T),JHP.PROD.RPT715, 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.YR2024' <<< CHANGE BEF RUN 00070043
|
|
//** SET STATUS NODE TO 1 OR 2 OR 3
|
|
//** BELOW BELOW BELOW BELOW
|
|
// SET PRINTER1='DOESTAX.PROD.STATUS2.YR2024' <<< CHANGE BEF RUN 00080045
|
|
// SET PICKLST='DOESTAX.PROD.PICKLST2.YR2024' <<< CHANGE 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
|
|
//* 3RD NODE OF DATSET NAME = STATUS1 = NEW 00160040
|
|
//* 3RD NODE OF DATSET NAME = STATUS2 = SUCCESSOR 00170040
|
|
//* 3RD NODE OF DATSET NAME = STATUS3 = INACTIVATED 00180040
|
|
//* GEORGE BROWN 04/14/2004 00190038
|
|
//* 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..PROCS.BATCH.LIB 00330038
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
|
//** 00350038
|
|
//STEP0100 EXEC DTSTP715 00360038
|
|
//STEP0100.PARMIN DD * 00370038
|
|
2,449,0060,A2,2024 00380045
|
|
/* 00390038
|
|
//*TEP0400.PICKLST DD DISP=SHR
|
|
//*TEP0500.PRINTER DD DISP=SHR
|
|
// 00400038
|
|
//** 00410038
|