* % GOTO JCTXBSL; /* 00050004 MACRO 00100004 IEFJCTX 00150004 *MACMEAN JCTX MEANS JOB CONTROL TABLE EXTENSION. @Z40RPSM 00160004 *MACCOMP Y-2 SC1B9/PZD83 @Z40RPSM 00170004 *MACSTAT Y-2 75268/Z40RPSM @Z40RPSM 00200004 *********************************************************************** 00250004 ** @Z40RPSM 00300004 ** JOB CONTROL TABLE EXTENSION @Z40RPSM 00350004 ** @Z40RPSM 00400004 *********************************************************************** 00450004 DS 0D @Z40RPSM 00500004 JCTXIN EQU * @Z40RPSM 00550004 JCTXDSKA DS CL3 DISK ADDR OF THIS JCTX @Z40RPSM 00600004 JCTXIDNT DS CL1 JCTX ID = 30 @Z40RPSM 00650004 JCTXID EQU X'30' @Z40RPSM 00656004 JCTXGROP DS CL8 GROUP ID FIELD @Z40RPSM 00700004 JCTXRESV DS CL164 RESERVED FOR FUTURE USE @Z40RPSM 00750004 JCTXLNTH EQU *-JCTXIN JCTX LENGTH @Z40RPSM 00800004 MEND 00850004 */ % JCTXBSL: ; /*@Z40RPSM*/ 00900004 /* MACMEAN JCTX MEANS JOB CONTROL TABLE EXTENSION @Z40RPSM*/ 00950004 /* MACCOMP Y-2 SC1B9/PZD83 @Z40RPSM*/ 01000004 /* MACSTAT Y-2 75268/Z40RPSM @Z40RPSM*/ 01050004 DECLARE 1 JCTXIN BASED(JCTXPTR), /* TABLE NAME @Z40RPSM*/ 01100004 4 JCTXDSKA PTR(24) BDY(WORD), /* DISK ADDR OF THIS 01150004 JCTX. @Z40RPSM*/ 01200004 4 JCTXIDNT CHAR(1), /* JCTX IDENTIFICATION = 30 @Z40RPSM*/ 01250004 4 JCTXGROP CHAR(8), /* GROUP ID FIELD @Z40RPSM*/ 01300004 4 JCTXRESV CHAR(164); /* RESERVED FOR FUTURE USE @Z40RPSM*/ 01350004