//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..PROCLIB                       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