HP XP P9000 for Business Continuity Manager Software Reference Guide

call printCopyGroupStatus; /* Prints the copy group status info. */
/*
* Alternatively, you can use YKEWAIT to retrieve the copy group
* status information more quickly as YKEWAIT also updates the Copy
* Group structure (but not entirely. The information items that are
* RCU-dependant such as C/T Delta and C/T Time are not updated).
* Refer to Business Continuity Manager Reference Guide to see how
* YKQUERY and YKEWAIT update the Copy Group structure.
*
* To use YKEWAIT for the purpose of simply updating the Copy Group
* structure, make sure the following parameter specification.
* - TIMEOUT parameter should have the value zero ("0") for
* immediate completion of YKEWAIT.
* - NOINVALIDCHECK parameter should be specified.
* - GOTO parameter should have the value SIMPLEX.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(SIMPLEX)",
"TIMEOUT(0) NOINVALIDCHECK";
/*
* Like YKQUERY, check the return code to see if it is bigger than 8.
* This is because the return code 8 for YKEWAIT indicates unexpected
* status transition. Either 8 or 4 (real time out) is likely to occur
* when TIMEOUT parameter is set to zero.
*/
if rc > 8
then do
call printErrorMessage;
exit;
end;
else
nop;
call printCopyGroupStatus;
/*
* Establish all copy pairs in MYTCS copy group into DUPLEX.
* It is recommended to use SELECT(COND) parameter as it lets YKMAKE
* automatically skip a copy pair that is already established.
*/
address TSO "YKMAKE STEM(DEMO_INFO.) MSG(DEMO_MSG.) SELECT(COND)";
/*
* For YKMAKE, check to see if the return code is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Use YKEWAIT to wait until "MYTCS" is fully established.
* The value for TIMEOUT is arbitrary. In this example, 30 minutes is
* used just for instance.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(DUPLEX)",
"TIMEOUT(30)";
/*
Command details 265