* %GOTO SSRRCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSRR 00150003 .*/ %SSRRCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSRR @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = REQUEST/RETRUN JOB ID @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSRRPLS; /* @ZA34144 00600003 * 00700003 SSOBRQST EQU 20 REQUEST JOB ID FUNCTION ID(SSOBFUNC) 00750003 SSOBRTRN EQU 21 RETURN JOB ID FUNCTION ID(SSOBFUNC) 00800003 * 00850003 * REQUEST/RETURN JOB ID RETURN CODES (SSOBRETN) 00900003 * 00950003 SSRROK EQU 0 REQUEST/RETURN SUCCESSFUL 01000003 SSRRFAIL EQU 4 REQUEST/RETURN UNSUCCESSFUL 01050003 SSRRPERR EQU 36 PROGRAM ERROR 01100003 * 01150003 ORG SSOBGN 01200003 SSRRBGN EQU * 01250003 SSRRLEN DC AL2(SSRRSIZE) R/R EXTENSION LENGTH 01300003 SSRRRSV0 DS H RESERVED 01350003 SSRRSECB DS A REQUEST JOB ID STOP ECB POINTER 01400003 * 01450003 SSRRSIZE EQU *-SSRRBGN R/R EXTENSION LENGTH 01500003 SSOBLENE EQU SSOBHSIZ+SSRRSIZE 01550003 MEND @ZA34144*/ 01600003 * %SSRRPLS:; /* @ZA34144*/ 01630003 * /* */ 01700003 * /* FUNCTION IDS (SSOBFUNC) */ 01750003 * DCL SSOBRQST FIXED(15) CONSTANT(20); /* REQUEST JOB ID */ 01800003 * DCL SSOBRTRN FIXED(15) CONSTANT(21); /* RETURN JOB ID */ 01850003 * /* */ 01900003 * /* REQUEST/RETURN JOB ID RETURN CODES (SSOBRETN) */ 01950003 * /* */ 02000003 * DCL SSRROK FIXED(31) CONSTANT(0); /* REQUEST/RETURN SUCCESSFUL */ 02050003 * DCL SSRRFAIL FIXED(31) CONSTANT(4); /* REQUEST/RETURN UNSUCCESSFUL*/ 02100003 * DCL SSRRPERR FIXED(31) CONSTANT(36);/* PROGRAM ERROR */ 02150003 * /* S S R R */ 02200003 * DCL 02250003 * 1 SSRR SSOBRR, 02300003 * 2 SSRRLEN FIXED(15), /* LENGTH OF SSRR */ 02350003 * 2 * FIXED(15), /* RESERVED */ 02400003 * 2 SSRRSECB PTR(31); /* REQUEST JOBID STOP ECB POINTER */ 02450003