* %GOTO SSCUCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSCU 00150003 .*/ %SSCUCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSCU @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = COMMON UNALLOCATION JES3 EXIT @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSCUPLS; /* @ZA34144 00600003 * 00700003 SSOBCUCD EQU 25 COMMON UNALLOCATION FUNCTION ID(SSOBFUNC) 00750003 * @Y02BPSD 00800003 * 00850003 * COMMON UNALLOCATION RETURN CODES (SSOBRETN) 00900003 * 00950003 * NO COMMON ALLOCATION RETURN CODES CURRENTLY DEFINED 01000003 * 01050003 ORG SSOBGN SSCU START @Y02BPSD 01100003 SSCUBGN EQU * COMMON UNALLOCATION @Y02BPSD 01150003 * BEGINNING @Y02BPSD 01200003 SSCULEN DC AL2(SSCUSIZE) COMMON UNALLOCATION @Y02BPSD 01250003 * EXTENSION LENGTH @Y02BPSD 01300003 SSCUFLGS DS B COMMON UNALLOCATION FLAGS @Y02BPSD 01350003 SSCULSCL EQU X'80' THIS IS THE LAST CALL FOR @Y02BPSD 01400003 * THE STEP, SET ON FOR EACH DD @Y02BPSD 01450003 * BEING UNALLOCATED AT STEP @Y02PBSD 01500003 * UNALLOCATION @Y02BPSD 01550003 SSCURSVF EQU X'7F' RESERVED FLAGS @Y02BPSD 01600003 SSCURSV0 DS X RESERVED @Y02BPSD 01650003 SSCUPSTN DS A POINTER TO STEP NUMBER @Y02BPSD 01700003 SSCUPDDN DS A POINTER TO DDNAME @Y02BPSD 01750003 SSCUPRPN DS A POINTER TO RELATIVE POSITION @Y02BPSD 01800003 * NUMBER @Y02BPSD 01850003 SSCUPAUR DS A ADDRESS OF ALLOCATION UNLOAD @Y02BPSD 01900003 * ROUTINE @Y02BPSD 01950003 SSCURSV1 DS F RESERVED @Y02BPSD 02000003 * 02050003 SSCUSIZE EQU *-SSCUBGN EXTENSION LENGTH @Y02BPSD 02100003 SSOBLN12 EQU SSOBHSIZ+SSCUSIZE TOTAL SSOB LENGTH @Y02BPSD 02150003 MEND @ZA34144*/ 02200003 * %SSCUPLS:; /* @ZA34144*/ 02230003 * /* FUNCTION IDS (SSOBFUNC) */ 02300003 * DCL SSOBCUCD FIXED(15) CONSTANT(25); /* COMMON UNALLOCATION 02350003 * @Y02BPSD*/ 02400003 * /* */ 02450003 * /* COMMON UNALLOCATION RETURN CODES (SSOBRETN) - */ 02500003 * /* */ 02550003 * /* NO COMMON UNALLOCATION RETURN CODES CURRENTLY DEFINED */ 02600003 * /* */ 02650003 * /* S S C U */ 02700003 * DCL 02750003 * 1 SSCU SSOBCU, /* BEGINNING COMMON UNALLOCATION 02800003 * SSOB EXTENSION @Y02BPSD*/ 02850003 * 2 SSCULEN FIXED(15), /* LENGTH OF SSCU @Y02BPSD*/ 02900003 * 2 SSCUFLGS BIT(8), /* COMMON UNALLOCATION FLAGS 02950003 * @Y02BPSD*/ 03000003 * 3 SSCULSCL BIT(1), /* THIS IS THE LAST CALL FOR THE 03050003 * STEP, SET ON FOR EACH DD BEING 03100003 * UNALLOCATED AT STEP UNALLOCATION 03150003 * @Y02BPSD*/ 03200003 * 3 SSCURSVF BIT(7), /* RESERVED FLAGS @Y02BPSD*/ 03250003 * 2 SSCURSV0 BIT(8), /* RESERVED @Y02BPSD*/ 03300003 * 2 SSCUPSTN PTR(31), /* PTR TO STEP NUMBER @Y02BPSD*/ 03350003 * 2 SSCUPDDN PTR(31), /* PTR TO DDNAME @Y02BPSD*/ 03400003 * 2 SSCUPRPN PTR(31), /* PTR TO RELATIVE POSITION NUMBER 03450003 * @Y02BPSD*/ 03500003 * 2 SSCUPAUR PTR(31), /* PTR TO ALLOCATION UNLOAD ROUTINE 03550003 * @Y02BPSD*/ 03600003 * 2 SSCURSV1 FIXED(31); /* RESERVED @Y02BPSD*/ 03650003