HP P9000, Справочное руководство

Страница: 289 / 399

*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Check the status of MYUR2 to confirm the ready status for operations
* in 2DC configuration with HyperSwap and UR.
*/
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
Command details 289