HP StorageWorks P9000 Reference Manual page 278

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;
/*
* Check to see if the captured IEA494I message is
* generated due to the relevant copy pair in the TC-Sync
* copy group becoming suspended.
* Modify the value of 'myDevn' below to the device number
* of a volume of a relevant copy pair to run this script.
*/
myDevn = "####";
devnFound = pos(myDevn, IEA494Imsg);
suspFound = pos("PAIR SUSPENDED", IEA494Imsg);
/*
* If the relevant copy pair became suspended, then
* suspend the TC-Sync copy group.
*/
if devnFound /= 0 & suspFound /= 0
then do
278 CLI Commands
say "#-- IEA494I message was captured for "myDevn".";
/*
* The following lines do not check the return code of
* each command call except for YKEWAIT for the sake of
* minimizing the time to block the host I/O by
* YKFREEZE.
* You may check the return code of each command for
* more thorough error checking.
*/
/*
* Block the host I/O for 5 seconds. Use YKRUN to resume
* I/O earlier.
*/
address TSO "YKFREEZE STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"TIMEOUT(5000)";
/*
* Suspend the TC-Sync copy group.
*/
address TSO "YKSUSPND STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"FORWARD SELECT(COND)";