* %GOTO SSCFCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSCF 00150003 .*/ %SSCFCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSCF @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = FAILING SVC 34 COMMAND @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSCFPLS; /* @ZA34144 00600003 * 00700003 SSOBCFCD EQU 32 COMMAND FAIL FUNCTION (SSOBFUNC) @Z30BPSV 00750003 * 00800003 * COMMAND FAIL RETURN CODES (SSOBRETN) @Z30BPSV 00850003 * 00900003 SSOBCFOK EQU 0 ISSUE SVC34 COMMAND @Z30BPSV 00950003 * ABORTED MESSAGE @Z30BPSV 01000003 SSOBCFNO EQU 4 SUPPRESS ISSUING SVC34 @Z30BPSV 01050003 * COMMAND ABORTED MESSAGE @Z30BPSV 01100003 * 01150003 ORG SSOBGN SSFC START @Z30BPSV 01200003 SSCFBGN EQU * SSFC BEGINNING @Z30BPSV 01250003 SSCFLEN DC AL2(SSCFSIZE) SSFC EXTENSION LENGTH @Z30BPSV 01300003 SSCFRSV0 DS H RESERVED @Z30BPSV 01350003 SSCFBFAD DS A ADDRESS OF COMMAND BUFFER @Z30BPSV 01400003 SSCFMRRC DS F RETURN CODE FROM MEMORY @Z30BPSV 01450003 * REQUEST, OR CSCB CREATION @Z30BPSV 01500003 * FAILURE CODE @Z30BPSV 01550003 * 01600003 * MEMORY REQUEST RETURN CODES AND FAILURE CODES @Z30BPSV 01650003 * 01700003 SSCFMROK EQU 0 MEMORY REQUEST SUCCESSFUL @Z30BPSV 01750003 SSCFSRMN EQU 4 SRM PROHIBITS ADDRESS SPACE @Z30BPSV 01800003 * CREATION @Z30BPSV 01850003 SSCFNORS EQU 8 RESOURCES NOT AVAILABLE @Z30BPSV 01900003 * (INSUFFICIENT SQA OR NO @Z30BPSV 01950003 * ASID AVAILABLE) @Z30BPSV 02000003 SSCFABND EQU 12 UNEXPECTED ABEND IN MEMORY @Z30BPSV 02050003 * REQUEST @Z30BPSV 02100003 SSCFCSFL EQU 32 CSCB CREATION FAILURE CODE @Z30BPSV 02150003 * 02200003 SSCFRSV1 DS F RESERVED @Z30BPSV 02250003 * 02300003 SSCFSIZE EQU *-SSCFBGN EXTENSION LENGTH @Z30BPSV 02350003 SSOBLN16 EQU SSOBHSIZ+SSCFSIZE TOTAL SSOB LENGTH @Z30BPSV 02400003 MEND @ZA34144*/ 02450003 * %SSCFPLS:; /* @ZA34144*/ 02480003 * /* */ 02550003 * /* FUNCTION IDS (SSOBFUNC) */ 02600003 * DCL SSOBCFCD FIXED(15) CONSTANT(32);/* COMMAND FAIL FUNCTION 02650003 * @Z30BPSV*/ 02700003 * /* */ 02750003 * /* COMMAND FAIL RETURN CODES (SSOBRETN) */ 02800003 * /* */ 02850003 * DCL SSOBCFOK FIXED(31) CONSTANT(0); /* ISSUE SVC34 COMMAND 02900003 * ABORTED MESSAGE @Z30BPSV*/ 02950003 * DCL SSOBCFNO FIXED(31) CONSTANT(4); /* SUPPRESS ISSUING SVC34 03000003 * COMMAND ABORTED MESSAGE 03050003 * @Z30BPSV*/ 03100003 * /* S S C F */ 03150003 * DCL 03200003 * 1 SSCF SSOBCF, /* BEGINNING SSOBCF EXTENSION 03250003 * @Z30BPSV*/ 03300003 * 2 SSCFLEN FIXED(15), /* SSCF EXTENSION LENGTH @Z30BPSV*/ 03350003 * 2 SSCFRSV0 FIXED(15), /* RESERVED @Z30BPSV*/ 03400003 * 2 SSCFBFAD PTR(31), /* ADDRESS OF COMMAND 03450003 * BUFFER @Z30BPSV*/ 03500003 * 2 SSCFMRRC FIXED (31), /* RETURN CODE FROM MEMORY 03550003 * REQUEST, OR CSCB CREATION 03600003 * FAILURE CODE @Z30BPSV*/ 03650003 * 2 SSCFRSV1 FIXED(31); /* RESERVED @Z30BPSV*/ 03700003 * /* */ 03750003 * /* MEMORY REQUEST RETURN CODES AND FAILURE CODES @Z30BPSV*/ 03800003 * /* */ 03850003 * DCL SSCFMROK FIXED(31) CONSTANT(0); /* MEMORY REQUEST SUCCESSFUL 03900003 * @Z30BPSV*/ 03950003 * DCL SSCFSRMN FIXED(31) CONSTANT(4); /* SRM PROHIBITS ADDRESS 04000003 * SPACE CREATION @Z30BPSV*/ 04050003 * DCL SSCFNORS FIXED(31) CONSTANT(8); /* RESOURCES NOT AVAILABLE 04100003 * (INSUFFICIENT SQA OR NO 04150003 * ASID AVAILABLE) @Z30BPSV*/ 04200003 * DCL SSCFABND FIXED(31) CONSTANT(12); /* UNEXPECTED ABEND IN 04250003 * MEMORY REQUEST @Z30BPSV*/ 04300003 * DCL SSCFCSFL FIXED(31) CONSTANT(32); /* CSCB CREATION FAILURE 04350003 * CODE @Z30BPSV*/ 04400003