* %GOTO SSOBHCMT; /* @OZ34144 00050003 MACRO @OZ34144 00100003 IEFSSOBH 00150003 .*/ %SSOBHCMT:; /* @OZ34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSOBH @OZ34144*/ 00300003 */* DESCRIPTIVE NAME = COMMON SSOB HEADER @OZ34144*/ 00340003 */* STATUS = SPLITOUT FROM IEFJSSOB MACRO @OZ34144*/ 00380003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @OZ34144*/ 00420003 */* COPYRIGHT = NONE @OZ34144*/ 00460003 */********************************************************************/ 00550003 * %GOTO SSHDPLS; /* @OZ34144 00600003 * 00650003 SSOB DSECT 00700003 SSOBEGIN EQU * 00750003 SSOBID DC CL4'SSOB' CONTROL BLOCK IDENTIFIER 00800003 SSOBLEN DC AL2(SSOBHSIZ) LENGTH OF SSOB HEADER 00850003 SSOBFUNC DS H FUNCTION ID 00900003 SSOBSSIB DS A ADDRESS OF SSIB OR ZERO 00950003 SSOBRETN DS F RETURN CODE FROM SUBSYSTEM 01000003 * 01050003 * THE FOLLOWING RETURN CODES WILL BE RETURNED IN REGISTER 15 01100003 * TO THE ISSUER OF THE IEFSSREQ MACRO - 01150003 * 01200003 * SSOBRETN CONTAINS FUNCTION-RELATED RETURN CODES 01250003 * (DEFINED IN EACH FUNCTION EXTENSION) 01300003 * 01350003 SSRTOK EQU 0 SUCCESSFUL COMPLETION - REQUEST WENT 01400003 * TO A SUBSYSTEM. 01450003 SSRTNSUP EQU 4 SUBSYSTEM DOES NOT SUPPORT THIS 01500003 * FUNCTION 01550003 SSRTNTUP EQU 8 SUBSYSTEM EXISTS, BUT IS NOT UP 01600003 SSRTNOSS EQU 12 SUBSYSTEM DOES NOT EXIST 01650003 SSRTDIST EQU 16 FUNCTION NOT COMPLETED-DISASTROUS 01700003 * ERROR 01750003 SSRTLERR EQU 20 LOGICAL ERROR (BAD SSOB FORMAT, 01800003 * INCORRECT LENGTH,...) 01850003 * 01900003 SSOBINDV DS F FUNCTION DEPENDENT AREA POINTER 01950003 SSOBHSIZ EQU *-SSOBEGIN SSOB HEADER LENGTH 02000003 MEND @OZ34144*/ 02250003 * %SSHDPLS:; /* @OZ34144*/ 02300003 * DECLARE 02350003 * 1 SSOB SSOBSSOB, /* SSOB FIXED-LENGTH HEADER */ 02400003 * 2 SSOBID CHAR(4), /* 'SSOB' = CNTL BLOCK IDENT. */ 02450003 * 2 SSOBLEN FIXED(15),/* LENGTH OF SSOB HEADER */ 02500003 * 2 SSOBFUNC FIXED(15),/* FUNCTION ID - SEE PLS 02550003 * CONSTANTS FOR THESE VALUES */ 02600003 * 2 SSOBSSIB PTR(31), /* ADDRESS OF SSIB, WHICH CONTAINS 02650003 * SUBSYSTEM NAME, OR ZERO */ 02700003 * 2 SSOBRETN PTR(31), /* RETURN CODE FROM SUBSYSTEM */ 02750003 * 2 SSOBINDV PTR(31); /* POINTER TO INDIVIDUAL FUNCTIONAL 02800003 * DEPENDENT AREA */ 02850003 * 02900003 */********************************************************************/ 02950003 */* */ 03000003 */* THE FOLLOWING RETURN CODES WILL BE RETURNED IN REGISTER 15 */ 03050003 */* TO THE ISSUER OF THE IEFSSREQ MACRO - */ 03100003 */* */ 03150003 */* SSOBRETN CONTAINS FUNCTION-RELATED RETURN CODES */ 03200003 */* (DEFINED IN EACH FUNCTION EXTENSION) */ 03250003 */* */ 03300003 */********************************************************************/ 03350003 * DCL SSRTOK FIXED(31) CONSTANT(0); /* SUCCESSFUL COMPLETION - 03400003 * REQUEST WENT TO A SUBSYSTEM */ 03450003 * DCL SSRTNSUP FIXED(31) CONSTANT(4); /* SUBSYSTEM DOES NOT SUPPORT 03500003 * THIS FUNCTION */ 03550003 * DCL SSRTNTUP FIXED(31) CONSTANT(8); /* SUBSYSTEM EXISTS, BUT IS 03600003 * NOT UP */ 03650003 * DCL SSRTNOSS FIXED(31) CONSTANT(12); /* SUBSYSTEM DOES NOT EXIST */ 03700003 * DCL SSRTDIST FIXED(31) CONSTANT(16); /* FUNCTION NOT COMPLETED - 03750003 * DISASTROUS ERROR */ 03800003 * DCL SSRTLERR FIXED(31) CONSTANT(20); /* LOGICAL ERROR (I.E. BAD 03850003 * SSOB FORMAT, LENGTH... */ 03900003 * 03950003