* %GOTO SSWTCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSWT 00150003 .*/ %SSWTCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSWT @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = WRITE TO OPERATOR FUNCTION @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSWTPLS; /* @ZA34144 00600003 * 00700003 SSOBWTO EQU 9 WTO FUNCTION ID (SSOBFUNC) 00750003 SSOBCONS EQU 33 CONSOLE STATUS FUNCTION ID @ZA03626 00800003 SSOBWTL EQU 34 WTL FUNCTION ID @ZA04791 00850003 * 00900003 * WRITE TO OPERATOR RETURN CODES (SSOBRETN) 00950003 * 01000003 SSWTRTOK EQU 0 CONTINUE NORMAL WTO PROCESSING 01050003 SSWTNDSP EQU 4 DO NOT DISPLAY WTO 01100003 * 01150003 ORG SSOBGN 01200003 SSWTBGN EQU * 01250003 SSWTLEN DC AL2(SSWTSIZE) WTO EXTENSION LENGTH 01300003 SSWTRESV DS H RESERVED 01350003 * 01400003 * FOLLOWING WTO SUBSYSTEM INTERFACES MAY EXIST - 01450003 * 01500003 * - SINGLE WTO OR FIRST LINE OF MULTI-LINE WTO: 01550003 * SSWTMIN, SSWTORE ARE 0 01600003 * 01650003 * - SECOND TO N-TH LINE OF MULTI-LINE WTO: 01700003 * SSWTORE IS 0 01750003 * 01800003 * - WTOR: 01850003 * SSWTMIN IS 0 01900003 * 01950003 SSWTWQE DS A WQE ADDRESS (MAJOR) 02000003 SSWTMIN DS A MINOR WQE ADDRESS 02050003 SSWTORE DS A OPERATOR REPLY ELEMENT ADDRESS 02100003 * 02150003 SSWTSIZE EQU *-SSWTBGN WTO EXTENSION LENGTH 02200003 SSOBLEN6 EQU SSOBHSIZ+SSWTSIZE TOTAL SSOB LENGTH 02250003 MEND @ZA34144*/ 02300003 * %SSWTPLS:; /* @ZA34144*/ 02330003 * DCL SSOBWTO FIXED(15) CONSTANT(9); /* WTO FUNCTION ID(SSOBFUNC)*/ 02400003 * DCL SSOBCONS FIXED(15) CONSTANT(33); /* CONSOLE STATUS FUNCTION 02450003 ID(SSOBFUNC) @ZA03626*/ 02500003 * DCL SSOBWTL FIXED(15) CONSTANT(34); /* WTL FUNCTION ID @ZA04791*/ 02550003 * /* */ 02600003 * /* WRITE TO OPERATOR RETURN CODES (SSOBRETN) */ 02650003 * /* */ 02700003 * DCL SSWTRTOK FIXED(31) CONSTANT(0); /* CONTINUE NORMAL WTO 02750003 * PROCESSING */ 02800003 * DCL SSWTNDSP FIXED(31) CONSTANT(4); /* DO NOT DISPLAY WTO */ 02850003 * /* S S W T */ 02900003 * DECLARE 02950003 * 1 SSWT SSOBWT, 03000003 * 2 SSWTLEN FIXED(15),/* LENGTH OF SSWT */ 03050003 * 2 * FIXED(15),/* RESERVED */ 03100003 */********************************************************************/ 03150003 */* */ 03200003 */* FOLLOWING WTO SUBSYSTEM INTERFACES MAY EXIST - */ 03250003 */* */ 03300003 */* - SINGLE WTO OR FIRST LINE OF MULTI-LINE WTO : */ 03350003 */* SSWTMIN,SSWTORE ARE 0 */ 03400003 */* */ 03450003 */* - SECOND TO N-TH LINE OF MULTI-LINE WTO : */ 03500003 */* SSWTORE IS 0 */ 03550003 */* */ 03600003 */* - WTOR : */ 03650003 */* SSWTMIN IS 0 */ 03700003 */* */ 03750003 */********************************************************************/ 03800003 * 2 SSWTWQE PTR(31), /* WQE ADDRESS (MAJOR) */ 03850003 * 2 SSWTMIN PTR(31), /* ADDRESS OF MINOR WQE */ 03900003 * 2 SSWTORE PTR(31); /* OPERATOR REPLY ELEMENT ADDRESS*/ 03950003