* %GOTO SSCACMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSCA 00150003 .*/ %SSCACMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSCA @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = COMMON ALLOCATION/JES3 EXIT FUNCTION @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSCAPLS; /* @ZA34144 00600003 * 00700003 SSOBCACD EQU 24 COMMON ALLOCATION FUNCTION ID(SSOBFUNC) 00750003 * @Y02BPSD 00800003 * 00850003 * COMMON ALLOCATION RETURN CODES (SSOBRETN) 00900003 * 00950003 SSCAALCA EQU 0 ALLOC SELECT RETURN CODE @Y02BPSD 01000003 SSCAJESA EQU 4 JES3 SELECT DEV RETURN CODE @Y02BPSD 01050003 * 01100003 ORG SSOBGN S S C A START @Y02BPSD 01150003 SSCABGN EQU * COMMON ALLOCATION BEGINNING @Y02BPSD 01200003 SSCALEN DC AL2(SSCASIZE) COMMON ALLOCATION EXTENSION @Y02BPSD 01250003 * SIZE @Y02BPSD 01300003 SSCARSV0 DS H RESERVED @Y02BPSD 01350003 SSCAPSTN DS A POINTER TO STEP NUMBER @Y02BPSD 01400003 SSCAPDDN DS A POINTER TO DDNAME @Y02BPSD 01450003 SSCAPDSN DS A POINTER TO DSNAME @Y02BPSD 01500003 SSCAPRPN DS A POINTER TO RELATIVE POSITION @Y02BPSD 01550003 * NUMBER @Y02BPSD 01600003 SSCAPNUN DS A POINTER TO NUMBER OF UNITS @Y02BPSD 01650003 * REQUIRED @Y02BPSD 01700003 SSCAPUAR DS A POINTER TO UCB ADDRESS @Y02BPSD 01750003 * RETURN AREA @Y02BPSD 01800003 SSCAPFLG DS A POINTER TO FLAG FIELD @Y02BPSD 01850003 * 01900003 SSCASIZE EQU *-SSCABGN EXTENSION LENGTH @Y02BPSD 01950003 SSOBLN11 EQU SSOBHSIZ+SSCASIZE TOTAL SSOB LENGTH @Y02BPSD 02000003 MEND @ZA34144*/ 02050003 * %SSCAPLS:; /* @ZA34144*/ 02080003 * /* FUNCTION IDS (SSOBFUNC) */ 02150003 * DCL SSOBCACD FIXED(15) CONSTANT(24); /* COMMON ALLOCATION @Y02BPSD*/ 02200003 * /* */ 02250003 * /* COMMON ALLOCATION RETURN CODES (SSOBRETN) - */ 02300003 * DCL SSCAALCA FIXED(31) CONSTANT(0); /*ALLOC SELECT RETURN CODE 02350003 * @Y02BPSD*/ 02400003 * DCL SSCAJESA FIXED(31) CONSTANT(4); /*JES3 SELECT DEV RETURN 02450003 * CODE @Y02BPSD*/ 02500003 * /* S S C A */ 02550003 * DCL 02600003 * 1 SSCA SSOBCA, /* BEGINNING COMMON ALLOCATION 02650003 * SSOB EXTENSION @Y02BPSD*/ 02700003 * 2 SSCALEN FIXED(15), /* LENGTH OF SSCA @Y02BPSD*/ 02750003 * 2 SSCARSV0 FIXED(15), /* RESERVED @Y02BPSD*/ 02800003 * 2 SSCAPSTN PTR(31), /* PTR TO STEP NUMBER @Y02BPSD*/ 02850003 * 2 SSCAPDDN PTR(31), /* PTR TO DDNAME @Y02BPSD*/ 02900003 * 2 SSCAPDSN PTR(31), /* PTR TO DSNAME @Y02BPSD*/ 02950003 * 2 SSCAPRPN PTR(31), /* PTR TO RELATIVE POSITION NUMBER 03000003 * @Y02BPSD*/ 03050003 * 2 SSCAPNUN PTR(31), /* PTR TO NUMBER OF UNITS REQUIRED 03100003 * @Y02BPSD*/ 03150003 * 2 SSCAPUAR PTR(31), /* PTR TO UCB ADDRESS RETURN AREA 03200003 * @Y02BPSD*/ 03250003 * 2 SSCAPFLG PTR(31); /* PTR TO FLAG FIELD @Y02BPSD*/ 03300003