* %GOTO SSDYCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSDY 00150003 .*/ %SSDYCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSDY @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = DYNAMIC ALLOCATION JES3 @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSDYPLS; /* @ZA34144 00600003 * 00700003 SSOBDYCD EQU 23 DYNAMIC ALLOCATION FUNCTION ID (SSOBFUNC) 00750003 * @Y02BPSD 00800003 * 00850003 * DYNAMIC ALLOCATION RETURN CODES (SSOBRETN) 00900003 * 00950003 SSDYSUCC EQU 0 SUCCESSFUL @Y02BPSD 01000003 SSDYVNMT EQU 4 REQUESTED VOLUME NOT MOUNTED @Y02BPSD 01050003 * (VOLUME MOUNTING NOT @Y02BPSD 01100003 * ALLOWED) @Y02BPSD 01150003 SSDYVBUS EQU 8 VOLUME BUSY (WAITING FOR @Y02BPSD 01200003 * VOLUME IS NOT ALLOWED) @Y02BPSD 01250003 SSDYUNAV EQU 12 REQUESTED VOLUME UNAVAILABLE @Y02BPSD 01300003 * (VOLUME FOUND IN THE JES3 @Y02BPSD 01350003 * VOLUME UNAVAILABLE TABLE) @Y02BPSD 01400003 SSDYDBUS EQU 16 REQUESTED DATA SET BUSY @Y02BPSD 01450003 * (WAITING FOR DATASET NOT @Y02BPSD 01500003 * ALLOWED) @Y02BPSD 01550003 SSDYNUNT EQU 20 REQUESTED UNIT(S) NOT @Y02BPSD 01600003 * AVAILABLE (NO UNIT(S) OF @Y02BPSD 01650003 * TYPE AVAILABLE FOR USE) @Y02BPSD 01700003 SSDYNEDP EQU 24 NOT ENOUGH DEVICES OF TYPE @Y02BPSD 01750003 * REQUESTED EXIST ON THE @Y02BPSD 01800003 * PROCESSOR FROM WHICH THE @Y02BPSD 01850003 * ALLOCATION REQUEST @Y02BPSD 01900003 * ORIGINATED @Y02BPSD 01950003 SSDYCNCL EQU 28 REQUEST CANCELLED BY @Y02BPSD 02000003 * OPERATOR @Y02BPSD 02050003 * 02100003 ORG SSOBGN SSDY START @Y02BPSD 02150003 SSDYBGN EQU * DYNAMIC ALLOCATION BEGINNING @Y02BPSD 02200003 SSDYLEN DC AL2(SSDYSIZE) DYNAMIC ALLOCATION EXTENSION @Y02BPSD 02250003 * LENGTH @Y02BPSD 02300003 SSDYRSV0 DS H RESERVED @Y02BPSD 02350003 SSDYSIOT DS A POINTER TO 1ST SIOT @Y02BPSD 02400003 SSDYPFLG DS A POINTER TO FLAG FIELD @Y02BPSD 02450003 SSDYRSV1 DS F RESERVED @Y02BPSD 02500003 * 02550003 SSDYSIZE EQU *-SSDYBGN EXTENSION LENGTH @Y02BPSD 02600003 SSOBLN10 EQU SSOBHSIZ+SSDYSIZE TOTAL SSOB LENGTH @Y02BPSD 02650003 MEND @ZA34144*/ 02700003 * %SSDYPLS:; /* @ZA34144*/ 02730003 * /* FUNCTION IDS (SSOBFUNC) */ 02800003 * DCL SSOBDYCD FIXED(15) CONSTANT(23); /*DYNAMIC ALLOCATION @Y02BPSD*/ 02850003 * /* */ 02900003 * /* DYNAMIC ALLOCATION RETURN CODES (SSOBRETN) - */ 02950003 * DCL SSDYSUCC FIXED(31) CONSTANT(0); /* SUCCESSFUL @Y02BPSD*/ 03000003 * DCL SSDYVNMT FIXED(31) CONSTANT(4); /* REQUESTED VOLUME NOT MOUNTED 03050003 * (VOLUME MOUNTING IS NOT 03100003 * ALLOWED) @Y02BPSD*/ 03150003 * DCL SSDYVBUS FIXED(31) CONSTANT(8); /* VOLUME BUSY (WAITING FOR 03200003 * VOLUME IS NOT ALLOWED) 03250003 * @Y02BPSD*/ 03300003 * DCL SSDYUNAV FIXED(31) CONSTANT(12); /* REQUESTED VOLUME UNAVAILABLE 03350003 * (VOLUME FOUND IN THE JES3 03400003 * VOLUME UNAVAILABLE 03450003 * TABLE) @Y02BPSD*/ 03500003 * DCL SSDYDBUS FIXED(31) CONSTANT(16); /* REQUESTED DATA SET BUSY 03550003 * (WAITING FOR DATASET NOT 03600003 * ALLOWED) @Y02BPSD*/ 03650003 * DCL SSDYNUNT FIXED(31) CONSTANT(20); /* REQUESTED UNIT(S) NOT 03700003 * AVAILABLE (NO UNIT(S) OF 03750003 * TYPE REQUESTED AVAILABLE 03800003 * FOR USE) @Y02BPSD*/ 03850003 * DCL SSDYNEDP FIXED(31) CONSTANT(24); /* NOT ENOUGH DEVICES OF TYPE 03900003 * REQUESTED EXIST ON THE 03950003 * PROCESSOR FROM WHICH THE 04000003 * ALLOCATION REQUEST 04050003 * ORIGINATED @Y02BPSD*/ 04100003 * DCL SSDYCNCL FIXED(31) CONSTANT(28); /* REQUEST CANCELLED BY 04150003 * OPERATOR @Y02BPSD*/ 04200003 * /* S S D Y */ 04250003 * DCL 04300003 * 1 SSDY SSOBDY, /* BEGINNING DYNAMIC ALLOCATION 04350003 * SSOB EXTENSION @Y02BPSD*/ 04400003 * 2 SSDYLEN FIXED(15), /* LENGTH OF SSDY @Y02BPSD*/ 04450003 * 2 SSDYRSV0 FIXED(15), /* RESERVED @Y02BPSD*/ 04500003 * 2 SSDYSIOT PTR(31), /* PTR TO 1ST SIOT @Y02BPSD*/ 04550003 * 2 SSDYPFLG PTR(31), /* PTR TO FLAG FIELD @Y02BPSD*/ 04600003 * 2 SSDYRSV1 FIXED(31); /* RESERVED @Y02BPSD*/ 04650003