HP XP P9000 for Business Continuity Manager Software Reference Guide

* 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
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)";
/*
* Resume the host I/O.
*/
address TSO "YKRUN STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Wait for the TC-Sync copy group to become fully
* suspended.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"GOTO(SUSPEND) TIMEOUT(30)";
/* Check if the TC-Sync copy group is suspended. */
if rc /= 0
Command details 277