*****************************************
* 1 - Activate an extended MCS console *
*****************************************
MCSOPER REQUEST=ACTIVATE
NAME=CONS1 CONSOLE NAME
CONSID=(2) CONSOLE ID
TERMNAME=(4) TERMINAL NAME
MCSCSA=(3) CONSOLE STATUS AREA
MCSCSAA=(3) ALET FOR CONSOLE STATUS AREA
MSGECB=MESSAGE_ECB MESSAGE ECB
⋮
****************************************
* 2 - Issue a command from the console *
****************************************
XC TEXTAREA,TEXTAREA CLEAR THE COMMAND AREA
L R1,L'CMD OBTAIN THE LENGTH OF THE COMMAND
STH R1,TEXTLEN SAVE THE LENGTH IN THE COMMAND AREA
MVC TEXTCMD(L'CMD),CMD PUT THE COMMAND IN THE COMMAND AREA
MGCRE TEXT=TEXTAREA TEXTAREA CONTAINS THE COMMAND
CONSID=(2) CONSOLE ID
CART=USER_DEF_CART COMMAND/RESPONSE TOKEN
MF=(E,LISTADDR) ADDRESS OF PARAMETER LIST
⋮
DS 0F
TEXTAREA DS 0CL128 COMMAND AREA
TEXTLEN DS H LENGTH OF COMMAND
TEXTCMD DS CL126 THE COMMAND
CMD DC C'DISPLAY EMCS EXAMPLE COMMAND'
⋮
*********************************************************
* 3 - Wait for the system to queue the command response *
* to the console *
*********************************************************
WAIT ECB=MESSAGE_ECB WAIT FOR COMMAND RESPONSE
⋮
************************************************************
* 4 - Retrieve the command response so it can be processed *
************************************************************
MCSOPMSG REQUEST=GETMSG
CONSID=(2) CONSOLE ID
⋮
*******************************************
* 5 - Deactivate the extended MCS console *
*******************************************
MCSOPER REQUEST=DEACTIVATE
CONSID=(2) CONSOLE ID
⋮
MESSAGE_ECB DS F
USER_DEF_CART DS CL8
⋮
SYS1.SAMPLIB contains an additional example of an extended MCS console application. The example is in IEAEXMCS.