HP XP P9500 Reference Manual page 286

else
nop
/*
* Use YKCONMSG with the OP(OPEN) and MSGID(IOSHM0414I) parameters
* to establish the EMCS console interface to monitor the IOSHM0414I
* message. Use the REXX instruction OUTTRAP to acquire the handler
* value that needs to be referenced in subsequent YKCONMSG calls.
* The return code for the successful completion of YKCONMSG with the
* OP(OPEN) parameter is 0.
*/
temp = OUTTRAP("MyHandle.")
address TSO "YKCONMSG OP(OPEN) MSGID(IOSHM0414I)"
temp = OUTTRAP("OFF")
if rc /= 0
then do
say "YKCONMSG OP(OPEN) failed."
exit
end
else
nop
/*
* Get the handler value that was obtained via YKCONMSG OP(OPEN).
*/
parse var MyHandle.1 "HANDLE(x'"HandlerValue"')"
/*
* Start the monitoring period of 120 seconds.
*/
elapsedTime = time('e')
/*
* This 'forever' loop will continue to invoke YKCONMSG with OP(GET)
* parameter and the handler value that was obtained in the last
* YKCONMSG call to capture the IOSHM0414I message at the EMCS console
* interface. The script will exit the loop after either 120 seconds has
* elapsed or the IOSHM0414I message is successfully captured.
* IOSHM0414I message is successfully obtained.
*/
do forever
/*
* Invoke YKCONMSG again, but this time with the OP(GET) parameter
* and the hander value so that the IOSHM0414I message can be
* captured.
*/
dc = OUTTRAP("MyHandle.")
address TSO "YKCONMSG",
dc = OUTTRAP("OFF")
/*
* Check the return code of YKCONMSG to see if it is 1 or not.
* YKCONMSG with the OP(GET) parameter returns the return code 1
* if it was able to capture the IOSHM0414I message.
*/
if rc = 1
then do
286 CLI Commands
"OP(GET) HANDLE(x'"HandlerValue"')"