* %GOTO SSMSCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSMS 00150003 .*/ %SSMSCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSMS @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = MSSC MESSAGE TASK JES3 EXIT @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSMSPLS; /* @ZA34144 00600003 * @G18MP21 00700003 SSOBMSSC EQU 36 MSSC MSG TASK ID(SSOBFUNC) @G18MP21 00750003 * @G18MP21 00800003 ORG SSOBGN SSMS START @G18MP21 00850003 SSMSBGN EQU * MSSC MESSAGE TASK BEGINNING @G18MP21 00900003 SSMSLEN DC AL2(SSMSSIZE) MSSC MESSAGE TASK EXT SIZE @G18MP21 00950003 SSMSRSV0 DS H RESERVED @G18MP21 01000003 SSMSPSDG DS A POINTER TO THE SORTED SDG @G18MP21 01050003 * @G18MP21 01100003 SSMSPLRU DS A POINTER TO FIRST SDG WITH LRU @G18MP21 01150003 SSMSSIZE EQU *-SSMSBGN EXTENSION LENGTH @G18MP21 01200003 SSOBLN18 EQU SSOBHSIZ+SSMSSIZE TOTAL SSOB LENGTH @G18MP21 01250003 MEND @ZA34144*/ 01300003 * %SSMSPLS:; /* @ZA34144*/ 01330003 * /* FUNCTION IDS (SSOBFUNC) */ 01400003 * DCL SSOBMSSC FIXED(15) CONSTANT(36); /* MSSC MESSAGE TASK @G18MP21*/ 01450003 * 01500003 * /* */ 01550003 * /* NO MSSC MESSAGE TASK RETURN CODES */ 01600003 * /* */ 01650003 * /* S S M S @G18MP21*/ 01700003 * DECLARE 01750003 * 1 SSMS SSOBMS, /* @G18MP21*/ 01800003 * 2 SSMSLEN FIXED(15), /* LENGTH OF SSMS @G18MP21*/ 01850003 * 2 SSMSRV0 FIXED(15), /* RESERVED @G18MP21*/ 01900003 * 2 SSMSPSDG PTR(31), /* POINTER TO THE SORTED 01950003 * SDG LIST @G18MP21*/ 02000003 * 2 SSMSPLRU PTR(31); /* POINTER TO FIRST SDG 02050003 * WITH LRU @G18MP21*/ 02100003