* %GOTO SSCMCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSCM 00150003 .*/ %SSCMCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSCM @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = COMMAND PROCESSING EXIT @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSCMPLS; /* @ZA34144 00600003 * 00700003 SSOBCMND EQU 10 CMD PROCESSING FUNCTION ID (SSOBFUNC) 00750003 * 00800003 * COMMAND PROCESSING RETURN CODES (SSOBRETN) 00850003 * 00900003 SSCMSCMD EQU 0 SVC 34 SHOULD PROCESS THIS COMMAND 00950003 SSCMSUBC EQU 4 SUBSYSTEM PROCESSED THIS COMMAND 01000003 SSCMIMSG EQU 8 SUBSYSTEM COULD NOT EXECUTE THE 01050003 * COMMAND; SVC 34 ISSUES MESSAGE 01100003 * 01150003 ORG SSOBGN 01200003 SSCMBGN EQU * 01250003 SSCMLEN DC AL2(SSCMSIZE) COMMAND EXTENSION LENGTH 01300003 SSCMRESV DS H RESERVED 01350003 SSCMBUFF DS A COMMAND BUFFER ADDRESS 01400003 SSCMSCID DS F COMMAND SOURCE - CONSOLE ID OR 0 01450003 * - ASID OF TIME-SHARING USER 01500003 * - CMD AUTHORITY OF INPUT STREAM 01550003 * 01600003 SSCMSIZE EQU *-SSCMBGN COMMAND EXTENSION LENGTH 01650003 SSOBLEN7 EQU SSOBHSIZ+SSCMSIZE TOTAL SSOB LENGTH 01700003 MEND @ZA34144*/ 01750003 * %SSCMPLS:; /* @ZA34144*/ 01780003 * DCL SSOBCMND FIXED(15) CONSTANT(10); /*CMD FUNCTION ID(SSOBFUNC)*/ 01850003 * /* */ 01900003 * /* COMMAND PROCESSING RETURN CODES (SSOBRETN) */ 01950003 * /* */ 02000003 * DCL SSCMSCMD FIXED(31) CONSTANT(0); /* SVC 34 SHOULD PROCESS 02050003 * THE COMMAND */ 02100003 * DCL SSCMSUBC FIXED(31) CONSTANT(4); /* SUBSYSTEM PROCESSED THIS 02150003 * COMMAND */ 02200003 * DCL SSCMIMSG FIXED(31) CONSTANT(8); /* SUBSYSTEM COULD NOT EXECUTE 02250003 * THE CMD, SVC 34 ISSUES MESSAGE */ 02300003 * /* S S C M */ 02350003 *DECLARE 02400003 * 1 SSCM SSOBCM, 02450003 * 2 SSCMLEN FIXED(15),/* LENGTH OF SSCM */ 02500003 * 2 * FIXED(15),/* RESERVED */ 02550003 * 2 SSCMBUFF PTR(31), /* ADDRESS OF THE COMMAND BUFFER */ 02600003 * 2 SSCMSCID PTR(31); /* COMMAND SOURCE - 02650003 * - CONSOLE ID OR 0 02700003 * - ASID OF TIME-SHARING USER 02750003 * - CMD AUTHORITY OF INPUT STREAM */ 02800003