* %GOTO SARBPLS1; /* 00050003 MACRO 00100003 &NAME IEFSSARB 00150003 **/ 00200003 *%SARBPLS1: ; 00250003 */***********************************************************@G29AN2F*/ 00300003 */* @G29AN2F*/ 00350003 */* NAME - IEFSSARB @G29AN2F*/ 00400003 */* @G29AN2F*/ 00450003 */* DESCRIPTIVE NAME - SUBSYSTEM ALLOCATION REQUEST BLOCK @G29AN2F*/ 00500003 */* @G29AN2F*/ 00550003 */* STATUS - VS2 SU 16 - IN THIS MODULE, SU16 SUPPORTS @G16APPK*/ 00600003 */* VPSS SUPPORT ( SU 29 - @G29AN2F). @G16APPK*/ 00650003 */* - SU 4,10,16 MERGE @ZA28413*/ 00670003 */* @G29AN2F*/ 00700003 */* FUNCTION - @G29AN2F*/ 00750003 */* THE SUBSYSTEM ALLOCATION REQUEST BLOCK(SSARB) IS @G29AN2F*/ 00800003 */* A BLOCK REPRESENTING AN ALLOCATION REQUEST TO A @G29AN2F*/ 00850003 */* DESIGNATED SUBSYSTEM. AN SSARB MAY BE CHAINED TO @G29AN2F*/ 00900003 */* OTHER SSARB'S. THE FIRST SSARB MUST BE POINTED @G29AN2F*/ 00950003 */* TO BY THE SSAG EXTENSION OF THE SSOB. THE SSOB @G29AN2F*/ 01000003 */* IS MAPPED BY MACRO IEFJSSOB. @G29AN2F*/ 01050003 */* @G29AN2F*/ 01100003 */* METHOD OF ACCESS - @G29AN2F*/ 01150003 */* PL/S - DCL SSARBPTR PTR(31) @G29AN2F*/ 01200003 */* BAL - USING ON SSARB @G29AN2F*/ 01250003 */* @G29AN2F*/ 01300003 */***********************************************************@G29AN2F*/ 01350003 */* IEFSSARB - C - MERGED BACK TO REL 3.7 @ZA28413*/ 01370003 * %GOTO SSARBPLS2; /* 01400003 SSARB DSECT 01450003 SSAGARBK DS 0CL60 SSAG REQUEST BLOCK MAPPING @G29AN2F 01500003 SSAGRBLN DS H REQUEST BLOCK LENGTH @G29AN2F 01550003 SSAGRBFL DS H RESERVED FLAGS @G29AN2F 01600003 SSAGRBEC DS H DD RELATED ERROR CODE @G29AN2F 01650003 SSAGRBIC DS H DD RELATED INFO CODE-DEFINED @G29AN2F 01700003 * BY THE SUBSYSTEM @G29AN2F 01750003 SSAGDMLN DS H MAX LENGTH OF DD LEVEL MSG @G29AN2F 01800003 * DS H RESERVED @G29AN2F 01850003 SSAGNRBP DS A ADDRESS OF NEXT RB OR 0 @G29AN2F 01900003 SSAGDDNM DS A ADDRESS OF DDNAME @G29AN2F 01950003 SSAGDISP DS A ADDRESS OF DATA SET DISP @G29AN2F 02000003 SSAGDUMY DS A ADDRESS OF DUMMY/SYSIN FLAGS @G29AN2F 02050003 SSAGSOUT DS A ADDRESS OF SYSOUT FLAGS @G29AN2F 02100003 SSAGUNIT DS A ADDRESS OF UNIT TYPE @G29AN2F 02150003 SSAGADSP DS A ADDRESS OF ALTERNATE DISP @G29AN2F 02200003 SSAGSSNM DS A ADDRESS OF SUBSYSTEM NAME @G29AN2F 02250003 SSAGJFCB DS A ADDRESS OF JFCB @G29AN2F 02300003 SSAGSSWA DS A ADDRESS OF SSWA @G29AN2F 02350003 SSAGSSCM DS A ADDRESS OF SUBSYSTEM INFO @G29AN2F 02400003 SSAGDMGP DS A ADDRESS OF DD LEVEL MSG BLOCK @G29AN2F 02450003 * @G29AN2F 02500003 SSAGDMBK DSECT DD LEVEL MESSAGE BLOCK POINTED @G29AN2F 02550003 * TO BY SSAGDMGP @G29AN2F 02600003 SSAGDMGL DS H LENGTH OF MESSAGE RETURNED @G29AN2F 02650003 * BY THE SUBSYSTEM @G29AN2F 02700003 SSAGDMSG DS 0C DD LEVEL MESSAGE TEXT @G29AN2F 02750003 * @G29AN2F 02800003 SSAGGMBK DSECT GROUP LEVEL MESSAGE BLOCK @G29AN2F 02850003 * POINTED TO BY SSAGGMGP IN SSOBAG @G29AN2F 02900003 SSAGGMGL DS H LENGTH OF MESSAGE RETURNED @G29AN2F 02950003 * BY THE SUBSYSTEM @G29AN2F 03000003 SSAGGMSG DS 0C GROUP LEVEL MESSAGE TEXT @G29AN2F 03050003 MEND */ 03100003 *%SSARBPLS2: ; 03150003 */* @G29AN2F*/ 03200003 *DCL /* @G29AN2F*/ 03250003 * 1 SSAGARBK BASED(SSARBPTR), /* SSAG REQUEST BLOCK 03300003 * MAPPING @G29AN2F*/ 03350003 * 2 SSAGRBLN FIXED(15), /* REQUEST BLOCK LENGTH @G29AN2F*/ 03400003 * 2 SSAGRBFL BIT(16), /* RESERVED FLAGS @G29AN2F*/ 03450003 * 2 SSAGRBEC FIXED(15), /* DD RELATED ERROR CODE @G29AN2F*/ 03500003 * 2 SSAGRBIC FIXED(15), /* DD RELATED INFO CODE-DEFINED 03550003 * BY SUBSYSTEM @G29AN2F*/ 03600003 * 2 SSAGDMLN FIXED(15), /* MAX LENGTH OF DD LEVEL MSG @G29AN2F*/ 03650003 * 2 * FIXED(15), /* RESERVED @G29AN2F*/ 03700003 * 2 SSAGNRBP PTR(31), /* POINTER TO NEXT RB OR 0 @G29AN2F*/ 03750003 * 2 SSAGDDNM PTR(31), /* POINTER TO DDNAME @G29AN2F*/ 03800003 * 2 SSAGDISP PTR(31), /* POINTER TO DATA SET DISP @G29AN2F*/ 03850003 * 2 SSAGDUMY PTR(31), /* POINTER TO DUMMY/SYSIN 03900003 * FLAGS @G29AN2F*/ 03950003 * 2 SSAGSOUT PTR(31), /* POINTER TO SYSOUT FLAGS @G29AN2F*/ 04000003 * 2 SSAGUNIT PTR(31), /* POINTER TO UNIT TYPE @G29AN2F*/ 04050003 * 2 SSAGADSP PTR(31), /* POINTER TO ALTERNATE DISP @G29AN2F*/ 04100003 * 2 SSAGSSNM PTR(31), /* POINTER TO SUBSYSTEM NAME @G29AN2F*/ 04150003 * 2 SSAGJFCB PTR(31), /* POINTER TO JFCB @G29AN2F*/ 04200003 * 2 SSAGSSWA PTR(31), /* POINTER TO SSWA @G29AN2F*/ 04250003 * 2 SSAGSSCM PTR(31), /* POINTER TO INFO @G29AN2F*/ 04300003 * 2 SSAGDMGP PTR(31); /* POINTER TO DD LEVEL MESSAGE 04350003 * BLOCK @G29AN2F*/ 04400003 *DCL /* @G29AN2F*/ 04450003 * 1 SSAGDMBK BASED(SSAGDMGP), /* DD LEVEL MESSAGE BLOCK @G29AN2F*/ 04500003 * 2 SSAGDMGL FIXED(15), /* LENGTH OF MESSAGE RETURNED 04550003 * BY SUBSYSTEM @G29AN2F*/ 04600003 * 2 SSAGDMSG CHAR(*); /* DD LEVEL MESSAGE TEXT @G29AN2F*/ 04650003 *DCL /* @G29AN2F*/ 04700003 * 1 SSAGGMBK BASED(SSAGGMGP), /* GROUP LEVEL MESSAGE BLK @G29AN2F*/ 04750003 * 2 SSAGGMGL FIXED(15), /* LENGTH OF MESSAGE RETURNED BY 04800003 * SUBSYSTEM @G29AN2F*/ 04850003 * 2 SSAGGMSG CHAR(*); /* GROUP LEVEL MESSAGE TEXT @G29AN2F*/ 04900003