* %GOTO SSAGCMT; /* @ZA34144 00050003 MACRO @ZA34144 00090003 IEFSSAG 00130003 .*/ %SSAGCMT:; /* @ZA34144*/ 00170003 */********************************************************************/ 00210003 */* MACRO NAME = IEFSSAG @ZA34144*/ 00250003 */* DESCRIPTIVE NAME = ALLOCATION GROUPING OF SUBSYS @ZA34144*/ 00290003 */* DD REQUESTS @ZA34144*/ 00330003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00370003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00410003 */* COPYRIGHT = NONE @ZA34144*/ 00450003 */********************************************************************/ 00490003 * %GOTO SSAGPLS; /* @ZA34144 00530003 * @G29AN2F 00700003 SSOBAGRP EQU 39 GROUP SUBSYS REQUEST(SSOBFUNC) @G29AN2F 00750003 * @G29AN2F 00800003 * ALLOCATION GROUP RETURN CODES (SSOBRETN) @G29AN2F 00850003 * @G29AN2F 00900003 SSAGRTOK EQU 0 ALL REQUESTS ALLOCATED @G29AN2F 00950003 SSAGDDER EQU 4 NO ALLOCATION-ONE OR MORE @G29AN2F 01000003 * REQUESTS IN ERROR - SSAGRBEC IS TO @G29AN2F 01050003 * BE SET FOR THE REQUESTS IN ERROR @G29AN2F 01100003 SSAGGPER EQU 8 NO ALLOCATION-GROUP IN ERROR @G29AN2F 01150003 * SSAGGPEC IS TO BE SET AND SSAGRBEC @G29AN2F 01200003 * MAY OPTIONALLY BE SET @G29AN2F 01250003 * @G29AN2F 01300003 * THE FOLLOWING RETURN CODES WILL BE RETURNED BY THE @G29AN2F 01350003 * SUBSYSTEM IN FIELDS SSAGGPEC AND SSAGRBEC. @G29AN2F 01400003 * - FIELD SSAGGPEC (AND OPTIONALLY SSAGRBEC) IS TO BE @G29AN2F 01450003 * SET WHEN SSAGGPER IS RETURNED IN SSOBRETN. @G29AN2F 01500003 * - FIELD SSAGRBEC CORRESPONDING TO THE REQUEST(S) IN @G29AN2F 01550003 * ERROR IS TO BE SET WHEN SSAGDDER IS RETURNED IN @G29AN2F 01600003 * SSOBRETN. @G29AN2F 01650003 * @G29AN2F 01700003 * THE ASSOCIATED FIELDS SSAGGPIC AND SSAGRBIC ARE TO BE @G29AN2F 01750003 * SET TO SUBSYSTEM DEFINED VALUES THAT WILL BE RETURNED @G29AN2F 01800003 * AS DYNAMIC ALLOCATION INFORMATIONAL REASON CODES. @G29AN2F 01850003 * @G29AN2F 01900003 * ERROR MESSAGE PROCESSING @G29AN2F 01950003 * - WHEN SSAGSMSG IS SET BY THE CALLER FIELDS SSAGGMP @G29AN2F 02000003 * AND SSAGDMGP WILL EACH CONTAIN A POINTER TO AN AREA @G29AN2F 02050003 * IN WHICH THE SUBSYSTEM IS TO RETURN SUBSYSTEM DEFINED @G29AN2F 02100003 * ERROR MESSAGES CORRESPONDING TO THE VALUES SET IN @G29AN2F 02150003 * FIELDS SSAGGPIC AND SSAGRBIC. @G29AN2F 02200003 * - EACH MESSAGE AREA CONSISTS OF A 2 BYTE LENGTH FOLLOWED @G29AN2F 02250003 * BY A MESSAGE TEXT AREA OF LENGTH DEFINED IN SSAGGMLN @G29AN2F 02300003 * AND SSAGDMLN. THE MESSAGE AREA IS NOT INITIALIZED @G29AN2F 02350003 * BY THE CALLER AND THE SUBSYSTEM MUST SET THE LENGTH @G29AN2F 02400003 * OF THE MESSAGE TEXT RETURNED. BLANKS WILL BE @G29AN2F 02450003 * COMPRESSED BY THE CALLER. @G29AN2F 02500003 * - MESSAGES ARE TO BE RETURNED ONLY FOR REQUESTS THAT ARE @G29AN2F 02550003 * IN ERROR. @G29AN2F 02600003 * @G29AN2F 02650003 * NOTE: FIELDS SSAGRBEC, SSAGRBIC, SSAGDMGP, AND @G29AN2F 02700003 * SSAGDMLN ARE DEFINED IN THE GROUP ALLOCATION @G29AN2F 02750003 * REQUEST BLOCK, 'SSAGARBK' - MAPPED BY MACRO @G29AN2F 02800003 * IEFSSARB. @G29AN2F 02850003 * @G29AN2F 02900003 SSAGRQOK EQU 0 REQUEST ALLOCATED @G29AN2F 02950003 SSAGORUN EQU 4 OPERATING SYSTEM RESOURCE @G29AN2F 03000003 * NOT AVAILABLE @G29AN2F 03050003 SSAGSRUN EQU 8 SUBSYSTEM RESOURCE NOT AVAILABLE @G29AN2F 03100003 SSAGIPRM EQU 12 INVALID PARAMETER SPECIFIED @G29AN2F 03150003 SSAGIREQ EQU 16 INVALID REQUEST @G29AN2F 03200003 SSAGCREQ EQU 20 CANCEL REQUESTED @G29AN2F 03250003 SSAGSSER EQU 24 SUBSYSTEM LOGIC ERROR @G29AN2F 03300003 ORG SSOBGN @G29AN2F 03350003 SSAGBGN EQU * SSAG BEGINNING @G29AN2F 03400003 SSAGLEN DC AL2(SSAGSIZE) EXTENSION SIZE @G29AN2F 03450003 SSAGFLGS DS B FLAG BYTE @G29AN2F 03500003 SSAGWAIT EQU X'80' OK TO WAIT @G29AN2F 03550003 SSAGSMSG EQU X'40' SUBSYSTEM TO RETURN ERROR MESSAGES @G29AN2F 03600003 SSAGRSV1 EQU X'20' RESERVED FLAG @G29AN2F 03650003 SSAGRSV2 EQU X'10' RESERVED FLAG @G29AN2F 03700003 SSAGRSV3 EQU X'08' RESERVED FLAG @G29AN2F 03750003 SSAGRSV4 EQU X'04' RESERVED FLAG @G29AN2F 03800003 SSAGRSV5 EQU X'02' RESERVED FLAG @G29AN2F 03850003 SSAGRSV6 EQU X'01' RESERVED FLAG @G29AN2F 03900003 SSAGFLG2 DS X RESERVED @G29AN2F 03950003 SSAGGPEC DS H GROUP(STEP) LEVEL ERROR CODE @G29AN2F 04000003 SSAGGPIC DS H GROUP(STEP) LEVEL INFO CODE @G29AN2F 04050003 SSAGARBP DS A POINTER TO FIRST RB @G29AN2F 04100003 SSAGCNCL DS A ADDRESS OF CANCEL ECB @G29AN2F 04150003 SSAGJBNM DS A ADDRESS OF JOB NAME @G29AN2F 04200003 SSAGGMLN DS A MAXIMUM LENGTH OF GROUP @G29AN2F 04250003 * LEVEL MESSAGE @G29AN2F 04300003 SSAGGMGP DS A ADDRESS OF GROUP LEVEL MSG BLOCK @G29AN2F 04350003 SSAGSIZE EQU *-SSAGBGN SIZE OF EXTENSION HEADER @ZM44655 04400003 SSOBLN1B EQU SSOBHSIZ+SSAGSIZE @ZM44655 04450003 MEND @ZA34144*/ 04500003 * %SSAGPLS:; /* @ZA34144*/ 04530003 */* FUNCTION IDS (SSOBFUNC) @G29AN2F*/ 04600003 * DCL SSOBAGRP FIXED(15) CONSTANT(39);/* GROUP SUBSYS REQUESTS 04650003 * @G29AN2F*/ 04700003 */* @G29AN2F*/ 04750003 */* ALLOCATION GROUP REQUEST RETURN CODES (SSOBRETN) @G29AN2F*/ 04800003 */* @G29AN2F*/ 04850003 * DCL SSAGRTOK FIXED(15) CONSTANT(0); /* SUCCESSFUL - ALL REQUESTS 04900003 * WERE ALLOCATED @G29AN2F*/ 04950003 * DCL SSAGDDER FIXED(15) CONSTANT(4); /* NO ALLOCATION- ONE OR MORE 05000003 * REQUEST IN ERROR @G29AN2F*/ 05050003 * DCL SSAGGPER FIXED(15) CONSTANT(8); /* NO ALLOCATION - GROUP 05100003 * LEVEL ERROR @G29AN2F*/ 05150003 * /* @G29AN2F*/ 05200003 * /* THE FOLLOWING RETURN CODES WILL BE RETURNED BY THE @G29AN2F*/ 05250003 * /* SUBSYSTEM IN FIELDS SSAGGPEC AND SSAGRBEC. @G29AN2F*/ 05300003 * /* - FIELD SSAGGPEC (AND OPTIONALLY SSAGRBEC) IS TO BE @G29AN2F*/ 05350003 * /* SET WHEN SSAGGPER IS RETURNED IN SSOBRETN. @G29AN2F*/ 05400003 * /* - FIELD SSAGRBEC CORRESPONDING TO THE REQUEST(S) IN @G29AN2F*/ 05450003 * /* ERROR IS TO BE SET WHEN SSAGDDER IS RETURNED IN @G29AN2F*/ 05500003 * /* SSOBRETN. @G29AN2F*/ 05550003 * /* @G29AN2F*/ 05600003 * /* THE ASSOCIATED FIELDS SSAGGPIC AND SSAGRBIC ARE TO BE @G29AN2F*/ 05650003 * /* SET TO SUBSYSTEM DEFINED VALUES THAT WILL BE RETURNED @G29AN2F*/ 05700003 * /* AS DYNAMIC ALLOCATION INFORMATIONAL REASON CODES. @G29AN2F*/ 05750003 * /* @G29AN2F*/ 05800003 * /********************************************************* @G29AN2F*/ 05850003 * /* ERROR MESSAGE PROCESSING @G29AN2F*/ 05900003 * /* -WHEN SSAGSMSG IS SET BY THE CALLER, FIELDS SSAGGMGP @G29AN2F*/ 05950003 * /* AND SSAGDMGP WILL EACH CONTAIN A POINTER TO AN AREA @G29AN2F*/ 06000003 * /* IN WHICH THE SUBSYSTEM IS TO RETURN SUBSYSTEM DEFINED @G29AN2F*/ 06050003 * /* ERROR MESSAGES CORRESPONDING TO THE VALUES SET IN @G29AN2F*/ 06100003 * /* FIELDS SSAGGPIC AND SSAGRBIC. @G29AN2F*/ 06150003 * /* -EACH MESSAGE AREA CONSISTS OF A 2 BYTE LENGTH FOLLOWED @G29AN2F*/ 06200003 * /* BY A MESSAGE TEXT AREA OF LENGTH DEFINED IN SSAGGMLN @G29AN2F*/ 06250003 * /* AND SSAGDMLN. THE MESSAGE AREA IS NOT INITIALIZED @G29AN2F*/ 06300003 * /* BY THE CALLER AND THE SUBSYSTEM MUST SET THE LENGTH @G29AN2F*/ 06350003 * /* OF THE MESSAGE TEXT RETURNED. BLANKS WILL BE @G29AN2F*/ 06400003 * /* COMPRESSED BY THE CALLER. @G29AN2F*/ 06450003 * /* -MESSAGES ARE TO BE RETURNED ONLY FOR REQUESTS THAT ARE @G29AN2F*/ 06500003 * /* IN ERROR. @G29AN2F*/ 06550003 * /********************************************************* @G29AN2F*/ 06600003 * /* @G29AN2F*/ 06650003 * /* NOTE: FIELDS SSAGRBEC, SSAGRBIC, SSAGDMGP, AND @G29AN2F*/ 06700003 * /* SSAGDMLN ARE DEFINED IN THE GROUP @G29AN2F*/ 06750003 * /* ALLOCATION REQUEST BLOCK, 'SSAGARBK' - @G29AN2F*/ 06800003 * /* MAPPED BY MACRO IEFSSARB. @G29AN2F*/ 06850003 * /* @G29AN2F*/ 06900003 * /********************************************************* @G29AN2F*/ 06950003 * DCL SSAGRQOK FIXED(15) CONSTANT(0); /*REQUEST ALLOCATED @G29AN2F*/ 07000003 * DCL SSAGORUN FIXED(15) CONSTANT(4); /*OPERATING SYSTEM RESOURCE 07050003 * NOT AVAILABLE @G29AN2F*/ 07100003 * DCL SSAGSRUN FIXED(15) CONSTANT(8); /*SUBSYSTEM RESOURCE NOT 07150003 * AVAILABLE @G29AN2F*/ 07200003 * DCL SSAGIPRM FIXED(15) CONSTANT(12);/*INVALID PARAMETER @G29AN2F*/ 07250003 * DCL SSAGIREQ FIXED(15) CONSTANT(16);/*INVALID REQUEST @G29AN2F*/ 07300003 * DCL SSAGCREQ FIXED(15) CONSTANT(20);/*CANCEL REQUESTED @G29AN2F*/ 07350003 * DCL SSAGSSER FIXED(15) CONSTANT(24);/*SUBSYSTEM LOGIC ERR @G29AN2F*/ 07400003 * /* @G29AN2F*/ 07450003 * /* S S A G @G29AN2F*/ 07500003 * /* @G29AN2F*/ 07550003 * DECLARE /* @G29AN2F*/ 07600003 * 1 SSAG SSOBAG, /* BEGINNING OF EXTENSION @G29AN2F*/ 07650003 * 2 SSAGEHDR, /* EXTENSION HEADER @G29AN2F*/ 07700003 * 3 SSAGLEN FIXED(15),/* LENGTH OF EXTENSION @G29AN2F*/ 07750003 * 3 SSAGFLGS BIT(16), /* GROUP LEVEL FLAGS @G29AN2F*/ 07800003 * 4 SSAGWAIT BIT(1), /* OK TO WAIT FLAG @G29AN2F*/ 07850003 * 4 SSAGSMSG BIT(1), /* SUBSYSTEM TO RETURN ERROR 07900003 * MESSAGES FLAG @G29AN2F*/ 07950003 * 4 * BIT(14), /* RESERVED FLAGS @G29AN2F*/ 08000003 * 3 SSAGGPEC FIXED(15),/* GROUP LEVEL ERROR CODE @G29AN2F*/ 08050003 * 3 SSAGGPIC FIXED(15),/* GROUP LEVEL INFO CODE - DEFINED 08100003 * BY THE SUBSYSTEM @G29AN2F*/ 08150003 * 3 SSAGARBP PTR(31), /* PTR TO FIRST RB @G29AN2F*/ 08200003 * 3 SSAGCNCL PTR(31), /* POINTER TO CANCEL ECB @G29AN2F*/ 08250003 * 3 SSAGJBNM PTR(31), /* POINTER TO JOB NAME @G29AN2F*/ 08300003 * 3 SSAGGMLN FIXED(31),/* MAXIMUM LENGTH OF SUBSYSTEM 08350003 * GROUP LEVEL MESSAGE @G29AN2F*/ 08400003 * 3 SSAGGMGP PTR(31); /* POINTER TO GROUP LEVEL MESSAGE 08450003 * BLOCK @G29AN2F*/ 08500003