HP XP P9000 for Business Continuity Manager Software Reference Guide

address TSO "YKEWAIT STEM(DEMO_INFO.MYUR2.) MSG(DEMO_MSG.)",
"GOTO(HOLD) TIMEOUT(0) NOINVALIDCHECK"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
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",
"OP(GET) HANDLE(x'"HandlerValue"')"
288 CLI Commands