HP StorageWorks P9000 Reference Manual page 277

exit;
end;
else
nop;
/*
* As in YKDEMO01, YKEWAIT can be used to update the copy group
* status information quickly.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(SIMPLEX)",
"TIMEOUT(0) NOINVALIDCHECK";
/*
* Check the return code to see if it is bigger than 8.
*/
if rc > 8
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Use YKCONMSG with OP(OPEN) parameter to establish the EMCS console
* interface for monitoring IEA494I message. Use OUTTRAP instruction
* of REXX to acquire the handler value that needs to be referenced
* in the subsequent YKCONMSG calls. The return code for successful
* completion of YKCONMSG with OP(OPEN) is 0.
*/
temp = OUTTRAP("MyHandle.");
address TSO "YKCONMSG OP(OPEN)";
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 counting the elapsed time for 120 seconds.
*/
elapsedTime = time('e');
/*
* This 'forever' loop keeps invoking YKCONMSG with OP(GET)
* parameter and the handler value that was obtained in the last
* YKCONMSG call to capture the IEA494I message at the EMCS console
* interface.
* The script will exit the loop if either 120 seconds elapsed or
* IEA494I message was successfully captured for a copy pair of
* the given TC-Sync copy group.
*/
Command details 277