HP XP P9500 Reference Manual page 274

/*
* 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.
*/
do forever
/*
* Invoke YKCONMSG again, but this time with OP(GET) parameter
* and the hander value so that IEA494I message can be
* captured.
*/
dc = OUTTRAP("MyHandle.");
address TSO "YKCONMSG OP(GET) HANDLE(x'"HandlerValue"')";
dc = OUTTRAP("OFF");
/*
* Check the return code of YKCONMSG to see if it is 1 or not.
* YKCONMSG with OP(GET) parameter returns the return code 1
* if it could capture the IEA494I message successfully.
*/
if rc = 1
then do
/*
* Extract the message body from the captured IEA494I string.
*/
parse var MyHandle.1 . IEA494Imsg;
274 CLI Commands