* %GOTO SSDMCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSDM 00150003 .*/ %SSDMCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSDM @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = DELETE OPERATOR MESSAGES @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSDMPLS; /* @ZA34144 00600003 * 00700003 SSOBDOM EQU 14 DOM FUNCTION ID (SSOBFUNC) 00750003 * 00800003 * DOM RETURN CODES (SSOBRETN) - 00850003 * 00900003 * NO DOM RETURN CODES CURRENTLY DEFINED 00950003 * 01000003 ORG SSOBGN 01050003 SSDMBGN EQU * 01100003 SSDMLEN DC AL2(SSDMSIZE) DOM EXTENSION LENGTH 01150003 SSDMRESV DS H RESERVED 01200003 SSDMDMCB DS A DOM CONTROL BLOCK ADDRESS 01250003 * 01300003 SSDMSIZE EQU *-SSDMBGN DOM EXTENSION LENGTH 01350003 SSOBLENA EQU SSOBHSIZ+SSDMSIZE TOTAL SSOB LENGTH 01400003 MEND @ZA34144*/ 01450003 * %SSDMPLS:; /* @ZA34144*/ 01480003 * DCL SSOBDOM FIXED(15) CONSTANT(14); /* DOM FUNCTION ID (SSOBFUNC)*/ 01550003 * /* */ 01600003 * /* DOM RETURN CODES (SSOBRETN) - */ 01650003 * /* */ 01700003 * /* NO DOM RETURN CODES CURRENTLY DEFINED */ 01750003 * /* */ 01800003 * /* S S D M */ 01850003 * DECLARE 01900003 * 1 SSDM SSOBDM, /* DELETE OPERATOR MESSAGES */ 01950003 * 2 SSDMLEN FIXED(15),/* LENGTH OF SSDM */ 02000003 * 2 * FIXED(15),/* RESERVED */ 02050003 * 2 SSDMDMCB PTR(31); /* ADDRESS OF DOM CONTROL BLOCK */ 02100003