* %GOTO JMRPRO; /* 01050003 MACRO 01100002 IEFJMR 02000018 JMR DSECT 03000018 .*C192000,547460 @ZA02952 03500003 * @ZA44646*/ 03506403 * %JMRPRO:; /*@ZA44646*/ 03512803 */********************************************************************/ 03519203 */* */ 03538403 */* IEFJMR @ZA44646*/ 03557603 */* */ 03576803 */* DESCRIPTIVE NAME - JOB MANAGEMENT RECORD @ZA44646*/ 03596003 */* */ 03615203 */* STATUS - MVS 037/038 PTF @ZA44646*/ 03634403 */* */ 03653603 */* INVOCATION - BAL SPECIFY: IEFJMR @ZA44646*/ 03672803 */* - PL/S SPECIFY: %INCLUDE SYSLIB(IEFJMR) @ZA44646*/ 03692003 */* */ 03711203 */* FUNCTION - THIS MACRO MAPS THE JOB MANAGEMENT @ZA44646*/ 03730403 */* RECORD. */ 03749603 */* */ 03768803 */* CHANGE ACTIVITY - CHANGE STORAGE DEFINITION BY @ZA44646*/ 03788003 */* REMOVING DUPLICATION FACTOR AND @ZA44646*/ 03807203 */* REPLACING WITH A MODIFIER. @ZA44646*/ 03826403 */* (FROM XC TO CLX WHERE X = A @ZA44646*/ 03845603 */* NUMERIC VALUE.) @ZA44646*/ 03864803 */* */ 03884003 */* NOTE: THE JMR IS A PART OF JES3 CONTROL TABLES. @ZA44646*/ 03903203 */* INCREASING THE LENGTH BEYOND 76 BYTES IMPACTS @ZA44646*/ 03922403 */* JES3. @ZA44646*/ 03941603 */* */ 03960803 */********************************************************************/ 03980003 * %GOTO JMRBSL; /*@ZA44646 03990003 *********************************************************************** 04000018 * MACMEAN JMR MEANS JOB MANAGEMENT RECORD * 05000002 * MACCOMP Y-2 SC1B9/PZD83 * 06000003 * MACSTAT Y-2 75016/ZA02952 * 07000003 *********************************************************************** 08000018 JMRJOB DS CL8 JOB NAME @ZA44646 09000003 JMRENTRY DS F ENTRY TIME IN 1/100'S SEC 09050003 JMREDATE DS F ENTRY DATE 00YYDDDF 09100003 JMRCPUID DS CL4 CPU - SID AND MDL FROM SMCA @ZA44646 09150003 JMRUSEID DS CL8 USER ID @ZA44646 09200003 JMRSTEP DS C STEP NUMBER 14000018 JMRLGEND EQU * 15000018 JMRLOGSZ EQU JMRLGEND-JMRJOB SIZE OF JOB LOG 16000002 ********************************************************************* 17000018 * 18000018 JMRINDC DS C INDICATOR SWITCHES 20011 18400020 * BIT MEANINGS SAME AS JMROPT FIELD 20011 18600020 * 18800020 ********************************************************************** 19000020 JMRFLG DS C JOB STATUS INDICATOR Y02668 19050002 JMRSTRS EQU X'80' STEP RESTART Y02668 19060002 JMRCHRS EQU X'40' CHECKPOINT RESTART Y02668 19100002 JMRCNRS EQU X'20' CONTINUE RESTART Y02668 19150002 JMRWARM EQU X'08' WARMSTART JOB Y02668 19160002 JMRCLASS DS 1C JOB CLASS @ZA02952 19200003 JMRUCOM DS F USER COMMUNICATION - INITIALIZED 0 20000018 JMRUJVP DS F CORE ADDR OF IEFUJV / PTR TO SYS1.MAN RECORD 21000018 JMRSIZE EQU *-JMR SIZE OF JMR IN CORE 22000018 * 23000018 ********************************************************************* 24000018 * 25000018 JMRDRSTP DS 2F RDR STOP TIME AND DATE 26000018 JMRJOBIN DS F JOB SYSIN CT 27000018 JMRRDR DS CL2 RDR DEVICE CLASS AND TYPE @ZA44646 28000003 JMROPT DS 1C OPTION SWITCHES 29000018 * 30000018 JMRJOBSW EQU X'80' JOB FUNCTIONS REQUESTED 31000018 JMRSTPSW EQU X'40' STEP FUNCTIONS REQUESTED 32000018 JMREXITS EQU X'20' USER EXITS REQUESTED 33000018 JMRXONLY EQU X'10' EXITS ONLY SPECIFIED 34000018 JMRFIND EQU X'01' FOREGROUND INDICATED 20011 34500020 * 35000018 DS C RESERVED 36000018 DS 0F 37000018 JMRSYSOC DS CL5 SYSOUT CLASSES ZA44646 38000003 * 39000018 *********************************************************************** 40000018 * 41000018 ****PARM LIST PASSED TO IEFUJV IN C/I 42000002 * 43000018 JMRJCLCD DS C JCL CODE 44000018 DS 2C 45000018 JMRJOBP DS F PTR TO JOB LOG 46000018 JMRJCLP DS F PTR TO JCL CARD 47000018 JMRJCLCP DS F PTR TO JCL CODE 48000018 JMRPTRS EQU JMRJOBP 49000018 * 50000018 ********************************************************************* 51000018 * 52000018 ********************************************************************* 53000018 MEND , */ 54000002 * %JMRBSL: ; 54010002 */* */ 54020002 */* MACMEAN JMR MEANS JOB MANAGEMENT RECORD */ 54050002 */* MACCOMP Y-2 SC1B9/PZD83 */ 54100003 */* MACSTAT Y-2 75016/ZA02952 */ 54150003 */* */ 54200002 * DECLARE 1 JMR BASED(JMRPTR), /* JMR STRUCTURE */ 54250002 * 2 JMRJOB CHAR(8), /* JOB NAME */ 54300002 * 2 JMRENTRY CHAR(4), /* ENTRY TIME IN 1/100'S SEC */ 54350002 * 2 JMREDATE CHAR(4), /* ENTRY DATE 00YYDDDF */ 54400002 * 2 JMRCPUID CHAR(4), /* CPU- SID AND MDL FROM SMCA */ 54450002 * 2 JMRUSEID CHAR(8), /* USER ID, BLANK AT C/I TIME */ 54500002 * 2 JMRSTEP CHAR(1), /* STEP NUMBER */ 54550002 * 2 JMRINDC BIT(8), /* INDICATOR SWITCHES*/ 54650002 * 2 JMRFLG BIT(8), /* JOB FLAGS */ 54700002 * 3 JMRSTRS BIT(1), /* STEP RESTART */ 54710002 * 3 JMRCHRS BIT(1), /* CHECKPOINT RESTART */ 54720002 * 3 JMRCNRS BIT(1), /* CONTINUE RESTART */ 54730002 * 3 * BIT(1), /* RESERVED */ 54740002 * 3 JMRWARM BIT(1), /* WARMSTART JOB */ 54742002 * 3 * BIT(3), /* RESERVED */ 54744002 * 2 JMRCLASS CHAR(1), /*JOB CLASS @ZA02952*/ 54746003 * 2 JMRUCOM FIXED(31), /* USER COMMUNICATION FIELD */ 54750002 * 2 JMRUJVP PTR(31), /* ADDR OF IEFUJV/PTR TO RECORD*/ 54800003 * 2 JMRDRSTP CHAR(8), /* RDR STOP TIME AND DATE */ 54850002 * 2 JMRJOBIN FIXED(31), /* JOB SYSIN COUNT */ 54900002 * 2 JMRRDR CHAR(2), /* RDR DEVICE CLASS AND TYPE */ 54950002 * 2 JMROPT BIT(8), /* OPTINS SWITCHES */ 55000002 * 3 JMRJOBSW BIT(1), /* JOB FUNCTIONS REQUESTED*/ 55050002 * 3 JMRSTPSW BIT(1), /* STEP FUNCTIONS REQUESTED */ 55100002 * 3 JMREXITS BIT(1), /* USER EXITS REQUESTED */ 55150002 * 3 JMRXONLY BIT(1), /* EXITS ONLY SPECIFIED */ 55200002 * 3 * BIT(3), /* RESERVED */ 55250002 * 3 JMRFIND BIT(1), /* FOREGROUND INDICATOR */ 55300002 * 2 * CHAR(1), /* RESERVED */ 55350002 * 2 JMRSYSOC CHAR(5), /* SYSOUT CLASSES */ 55400002 * 2 JMRJCLCD CHAR(1), /* JCL CODE */ 55450002 * 2 * CHAR(2), /* RESERVED */ 55500002 * 2 JMRJOBP PTR(31), /* POINTER TO JOB LOG */ 55550002 * 2 JMRJCLP PTR(31), /* POINTER TO JCL CARD*/ 55600002 * 2 JMRJCLCP PTR(31); /* POINTER TO JCL CODE */ 55650002