* %GOTO JESCTBSL; /* 00050001 MACRO 00100001 IEFJESCT &TYPE=DSECT 00150001 LCLC &NAM 00200001 * 00450001 * MACMEAN JESCT MEANS JOB ENTRY SUBSYSTEM COMMUNICATION TABLE 00500002 * MACCOMP Y-2 SC1B8/PZD16 @G64QPSJ 00550064 * MACSTAT Y-2 78157/G64QPSJ @G64QPSJ 00557064 * 00564064 * STATUS - VS2 SYSTEM CONTROL PROGRAM 2 @G64QPSJ 00571064 * 00578064 * APAR OZ15019 IS SUPPORTED BY @Z40FPPJ @ZA15019 00592064 &NAM SETC 'JESCT' DEFAULT 00610001 AIF ('TYPE' EQ 'DSECT').DSECT 00650001 AIF ('&TYPE' EQ 'DC').DC 00700001 AGO .DSECT DEFAULT 00750001 .DC ANOP 00800001 &NAM DS 0F 00850001 AGO .J0 00900001 .DSECT ANOP 00950001 &NAM DSECT 01000001 .J0 ANOP 01050001 DC F'0' RESERVED Y02668 01100002 JESUNITS DC F'0' POINTER TO UCB'S Y02668 01150002 JESWAA DC A(0) ADDRESS OF THE SWA Y02668 02100002 * MANAGER - LOCATE MODE Y02668 02120002 JESQMGR DC A(0) ADDRESS OF SWA MANAGER Y02668 02130002 * MOVE MODE Y02668 02140002 * 02150001 JESRESQM DC A(0) ENTRY POINT USED TO INTERFACE 02200002 * BETWEEN THE QMNGRIO MACRO AND 02250002 * THE RESIDENT SWA MNGR Y02668 08550002 JESSSREQ DC A(0) ADDRESS OF THE IEFSSREQ Y02668 08600002 * ROUTINE Y02668 08650002 JESSSCT DC A(0) ADDRESS OF THE FIRST Y02668 08700002 * SUBSYSTEM COMMUNICATIONS Y02668 08750002 * TABLE Y02668 08800002 JESPJESN DC F'0' NAME OF PRIMARY JOB ENTRY Y02668 08850002 * SUBSYSTEM SET AT SYSGEN Y02668 08900002 JESALLOC DC A(0) DEVICE ALLOCATION ENTRY @Z40FPPJ 08950064 * POINT USED BY INITIATOR @Z40FPPJ 09000064 * @Z40FPPJ 09050064 JESUNALC DC A(0) DEVICE UNALLOCATION ENTRY @Z40FPPJ 09100064 * POINT USED BY INITIATOR @Z40FPPJ 09150064 * @Z40FPPJ 09200064 JESCATL DC A(0) DEVICE ALLOCATION PRIVATE @Z40FPPJ 09250064 * CATALOG ENTRY POINT @Z40FPPJ 09300064 * USED BY INITIATOR @Z40FPPJ 09350064 JESNUCBS DC F'0' NUMBER OF UCB'S IN SYSTEM. @Z40FPPJ 09400064 * USED BY DEVICE ALLOCATION @Z40FPPJ 09450064 * @G29ANSF 09470064 JESSASTA DC A(0) ADDRESS OF SUBSYSTEM @G29AN2F 09500064 * ALLOCATION SEQUENCE TABLE @G29AN2F 09600164 JESEDT DC A(0) ADDRESS OF ALLOCATION @G64QPSJ 09650064 * ELIGIBLE DEVICE TABLE @G64QPSJ 09700064 DC 4F'0' RESERVED @G64QPSJ 09750064 MEND , */ 13650001 * %JESCTBSL: ; 13700001 */* */ 13750001 */* MACMEAN JESCT MEANS JOB ENTRY SUBSYSTEM COMMUNICATION TABLE */ 13760002 */* MACCOMP Y-2 SC1B8/PZD16 @G64QPSJ*/ 13762064 */* MACSTAT Y-2 78157/G64QPSJ @G64QPSJ*/ 13782064 */* */ 13792064 */* STATUS - VS2 SYSTEM CONTROL PROGRAM 2 @G64QPSJ*/ 13802064 */* */ 13812064 */* APAR OZ15019 IS SUPPORTED BY @Z40FPPJ @ZA15019*/ 13862164 */* APAR OZ15019 IS SUPPORTED BY @Z40FPPJ @ZA15019*/ 13882064 *DECLARE 13950001 * 1 JESCT BASED(CVTJESCT), 14000001 */* */ 14050001 * 2 * CHAR(4), /* RESERVED */ 14350002 * 2 JESUNITS PTR(31), /* POINTER TO UCB'S Y02668 */ 14352002 * 2 JESWAA PTR(31), /* ADDRESS OF SWA 14360002 * MANAGER - LOCATE MODE Y02668 */ 14370002 * 2 JESQMGR PTR(31), /* ADDRESS OF SWA MANAGER 14380002 * MOVE - MODE Y02668 */ 14390002 * 2 JESRESQM PTR(31), /* ENTRY POINT USED TO 14400002 * INTERFACE BETWEEN THE 14450002 * QMNGRIO MACRO AND THE 14500002 * RESIDENT SWA MANAGER Y02668 */ 14550002 * 2 JESSSREQ PTR(31), /* ADDRESS OF THE IEFSSREQ ROUTINE Y02668 */14600002 * 2 JESSSCT PTR(31), /* ADDRESS OF THE FIRST SUBSYSTEM 14650002 * COMMUNICATIONS TABLE Y02668 */ 14700002 * 2 JESPJESN CHAR(4), /* NAME OF PRIMARY JOB ENTRY 14750064 * SUBSYSTEM SET AT SYSGEN Y02668 */ 14760064 * 2 JESALLOC PTR(31), /* DEVICE ALLOCATION ENTRY 14770064 * POINT USED BY INITIATOR @Z40FPPJ*/ 14780064 * 2 JESUNALC PTR(31), /* DEVICE UNALLOCATION ENTRY POINT 14790064 * USED BY INITIATOR @Z40FPPJ*/ 14800064 * 2 JESCATL PTR(31), /*DEVICE ALLOCATION PRIVATE CATALOG 14810064 * ENTRY POINT USED BY INITIATOR @Z40FPPJ*/ 14820064 * 2 JESNUCBS FIXED(31), /*NUMBER OF UCB'S IN THE SYSTEM. USED BY 14870064 * DEVICE ALLOCATION @Z40FPPJ*/ 14872064 * 2 JESSASTA PTR(31), /*ADDRESS OF SUBSYSTEM ALLOCATION 14874064 * SEQUENCE TABLE @G64QPSJ*/ 14876064 * 2 JESEDT PTR(31), /*ADDRESS OF ALLOCATION 14877064 * ELIGIBLE DEVICE TABLE @G64QPSJ*/ 14878064 * 2 * FIXED(31), /* RESERVED @G64QPSJ*/ 14882164 * 2 * FIXED(31), /* RESERVED @G64QPSJ*/ 14884064 * 2 * FIXED(31), /* RESERVED @G64QPSJ*/ 14886064 * 2 * FIXED(31); /* RESERVED @G64QPSJ*/ 14888164 * 14900002 * /* TO CALL THE SWA MANAGER , USE THE SWAREQ 15000002 * MACRO. IT WILL ISSUE A 'CALL SWAMGR' */ 15050002 * DECLARE SWAMGR ENTRY BASED(JESWAA); 15060002 * /* TO CALL THE SUBSYSTEM, USE THE 15150002 * IEFSSREQ MACRO. IT WILL ISSUE A 15200002 * 'CALL SSREQ' */ 15250002 * DECLARE SSREQ ENTRY BASED(JESSSREQ) OPTIONS(VLIST); 15260002 * DECLARE IEFW21SD ENTRY BASED(JESALLOC); /* TO ENTER 15310064 * ALLOCATION ISSUE CALL IEFW21SD. @Z40FPPJ*/ 15360064 * DECLARE IEFBB410 ENTRY BASED(JESUNALC); /* TO ENTER UNALLOCATION15410064 * ISSUE CALL IEFBB410. @Z40FPPJ*/ 15460064 * DECLARE IEFAB4F5 ENTRY BASED(JESCATL); /* TO ENTER PRIVATE 15510064 * CATALOG ALLOCATION ISSUE CALL 15560064 * IEFAB4F5 @Z40FPPJ*/ 15610064