* %GOTO SSRQCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSRQ 00150003 .*/ %SSRQCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSRQ @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = RE-ENQUEUE A JOB @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSRQPLS; /* @ZA34144 00600003 * 00700003 SSOBRENQ EQU 13 RE-ENQUEUE FUNCTION ID (SSOBFUNC) 00750003 * 00800003 * JOB RE-ENQUEUE RETURN CODES (SSOBRETN) 00850003 * 00900003 SSRQPERR EQU 36 PROGRAM ERROR 00950003 * 01000003 ORG SSOBGN 01050003 SSRQBGN EQU * 01100003 SSRQLEN DC AL2(SSRQSIZE) RE-ENQUEUE EXTENSION LENGTH 01150003 SSRQRESV DS H RESERVED 01200003 SSRQSTEP DS H STEP NUMBER 01250003 SSRQFLG1 DS B REASON FOR REENQUEING FLAGS 01300003 SSRQSTRS EQU X'80' STEP RESTART 01350003 SSRQCHRS EQU X'40' CHECKPOINT RESTART 01400003 SSRQCNRS EQU X'20' CONTINUE RESTART 01450003 SSRQHOLD EQU X'10' HOLD THE JOB 01500003 SSRQRSV1 EQU X'0F' RESERVED FLAGS 01550003 SSRQRSV2 DS X RESERVED 01600003 * 01650003 SSRQSIZE EQU *-SSRQBGN RE-ENQUEUE EXTENSION LENGTH 01700003 SSOBLEN9 EQU SSOBHSIZ+SSRQSIZE TOTAL SSOB LENGTH 01750003 MEND @ZA34144*/ 01800003 * %SSRQPLS:; /* @ZA34144*/ 01830003 * DCL SSOBRENQ FIXED(15) CONSTANT(13); /* REENQUEUE A JOB FUNCTION 01900003 * ID (SSOBFUNC) */ 01950003 * /* */ 02000003 * /* JOB REENQUEUE RETURN CODES (SSOBRETN) */ 02050003 * /* */ 02100003 * DCL SSRQPERR FIXED(31) CONSTANT(36); /* PROGRAM ERROR */ 02150003 * /* S S R Q */ 02200003 *DECLARE 02250003 * 1 SSRQ SSOBRQ, 02300003 * 2 SSRQLEN FIXED(15),/* LENGTH OF SSRQ */ 02350003 * 2 * FIXED(15),/* RESERVED */ 02400003 * 2 SSRQSTEP FIXED(15),/* STEP NUMBER */ 02450003 * 2 SSRQFLG1 BIT(8), /* REASON FOR RE-ENQUEING */ 02500003 * 3 SSRQSTRS BIT(1), /* STEP RESTART */ 02550003 * 3 SSRQCHRS BIT(1), /* CHECKPOINT RESTART */ 02600003 * 3 SSRQCNRS BIT(1), /* CONTINUE RESTART */ 02650003 * 3 SSRQHOLD BIT(1), /* HOLD THE JOB */ 02700003 * 3 * BIT(4), /* RESERVED */ 02750003 * 2 * CHAR(1); /* RESERVED */ 02800003