* % GO TO JSWAPLS; /* 00050002 MACRO 00100002 IEFVJSWA 00150002 * 00200002 * JOB SCHEDULING WORK AREA (JSWA) - 00250002 * USED AS A PARAMETER AREA BY THE JOB SCHEDULING SUBROUTINE 00300002 * 00350002 JSWA DSECT 00400002 JSWABEGN EQU * 00450002 JSWALGTH DC AL2(JSWASIZE) JSWA LENGTH 00500002 JSWAOPT DS X OPTIONS FLAGS 00550002 JSWASUBS EQU X'80' JOB SCHEDULING SUBROUTINE IS Y02668 00600002 * PROCESSING A START SUBSYSTEM Y02668 00610002 JSWASMS1 EQU X'40' SUPPRESS STARTED TASK CONTROL 00650002 * MESSAGES 00700002 * EQU X'20' RESERVED 00750002 JSWARSV1 EQU X'1F' RESERVED FLAGS 00850002 JSWAJSSR DS X JSS RESOURCES Y02653 00860002 JSWAJCLS EQU X'80' JCLS EXISTS Y02653 00870002 JSWASWA EQU X'40' STC SWA EXISTS Y02653 00880002 JSWAIEL EQU X'20' IEL EXISTS Y02653 00890002 JSWASSOB EQU X'10' SSOB EXISTS Y02653 00892002 JSWAJSOL EQU X'08' JSOL EXISTS Y02653 00894002 * EQU X'04' RESERVED 00896002 * EQU X'02' RESERVED 00898002 * EQU X'01' RESERVED 00898402 JSWAJSEL DS A JOB SCHEDULING ENTRANCE LIST 00900002 * (JSEL) POINTER 00950002 JSWATIOT DS A CURRENT TIOT POINTER Y02670 01000002 JSWAJSCB DS A CURRENT JSCB POINTER Y02670 01100002 JSWAIELP DS A IEL POINTER Y02653 01150002 JSWASOBP DS A SSOB POINTER Y02653 01160002 JSWAB601 DS A IEESB601 PARM AREA POINTER Y02670 01170002 JSWAPARM DS A JSS ESTAE PARM AREA POINTER Y02653 01180002 JSWASWSP DS X SWA SUBPOOL NUMBER Y02668 01190002 JSWARSV2 DS 3X RESERVED 01192002 JSWASIBP DS A SSIB PTR FROM JSCB OF CALLER OF JSS 01194002 JSWASIZE EQU *-JSWABEGN JSWA SIZE 01200002 MEND */ 01250002 * % JSWAPLS:; 01300002 * /* */ 01350002 * /* JOB SCHEDULING WORK AREA (JSWA) - */ 01400002 * /* USED AS A PARAMETER AREA BY THE JOB SCHEDULING SUBROUTINE */ 01450002 * /* */ 01500002 * DCL 1 JSWA BASED(JSWAPTR), 01550002 * 2 JSWALGTH FIXED(15), /* JSWA LENGTH */ 01600002 * 2 JSWAOPT BIT(8), /* OPTIONS FLAGS */ 01650002 * 3 JSWASUBS BIT(1), /* JSS IS PROCESSING A 01700002 * START SUBSYSTEM Y02668*/ 01710002 * 3 JSWASMS1 BIT(1), /* SUPPRESS STARTED TASK CONTROL 01750002 * MESSAGES */ 01800002 * 3 * BIT(6), /* RESERVED FLAGS */ 01950002 * 2 JSWAJSSR BIT(8), /* JSS RESOURCES Y02653*/ 02000002 * 3 JSWAJCLS BIT(1), /* JCLS EXISTS Y02653*/ 02020002 * 3 JSWASWA BIT(1), /* STC SWA EXISTS Y02653*/ 02030002 * 3 JSWAIEL BIT(1), /* IEL EXISTS Y02653*/ 02040002 * 3 JSWASSOB BIT(1), /* SSOB EXISTS Y02653*/ 02042002 * 3 JSWAJSOL BIT(1), /* JSOL EXISTS Y02653*/ 02044002 * 3 * BIT(3), /* RESERVED */ 02046002 * 2 JSWAJSEL PTR(31), /* JOB SCHEDULING ENTRANCE LIST 02050002 * (JSEL) POINTER */ 02100002 * 2 JSWATIOT PTR(31), /* CURRENT TIOT POINTER Y02670*/ 02150002 * 2 JSWAJSCB PTR(31), /* CURRENT JSCB POINTER Y02670*/ 02200002 * 2 JSWAIELP PTR(31), /* IEL POINTER Y02653*/ 02250002 * 2 JSWASOBP PTR(31), /* SSOB POINTER Y02653*/ 02300002 * 2 JSWAB601 PTR(31), /* IEESB601 PARM AREA PTR Y02670*/ 02350002 * 2 JSWAPARM PTR(31), /* JSS ESTAE PARM AREA PTR Y02653*/ 02400002 * 2 * FIXED(31), 02450002 * 3 JSWASWSP PTR(8), /* SWA SUBPOOL NUMBER Y02668*/ 02500002 * 3 * FIXED(24),/* RESERVED */ 02550002 * 2 JSWASIBP PTR(31) /* SSIB PTR FROM JSCB OF 02600002 CALLER OF JSS */; 02650002