HP XP P9500 Reference Manual page 275

/*
* 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
then do
call printErrorMessage;
/*
* Close the EMCS console interface that was opened by
* the previous YKCONMSG OP(OPEN) call. Note that the
* return code for YKCONMSG with OP(CLOSE) parameter is
* 6 if it completed successfully.
*/
address TSO "YKCONMSG OP(CLOSE)",
*/
Command details 275