Ali,
You can use some code similar to this:
/* REXX */
"CONSOLE ACTIVATE"
"CONSPROF SOLDISPLAY(NO) SOLNUM(100)"
ADDRESS CONSOLE
"console command"
DISPMSG = ''
MCODE = GETMSG('DISPMSG.','SOL',,,10)
DO UNTIL DISPMSG.1 = ''
SAY DISPMSG.1
DISPMSG.1 = ''
MCODE = GETMSG('DISPMSG.','SOL',,,10)
END
EXIT 0
Kurt Gramling
Hi all,
Does anybody out there have a sample in REXX to send a message to console
and get a response from operator ,something like WTOR(write to operator
with reply) macro in assembly?
Any help is highly appretiated.
Regards,
Ali
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
