HP StorageWorks P9000 - Page 286

end;
else
nop;
/*
* Establish all copy pairs in MYTCS copy group into DUPLEX. This is
* for demonstration purpose only. In reality you may already have a
* copy group up and running.
*/
address TSO "YKMAKE STEM(DEMO_INFO.) MSG(DEMO_MSG.) SELECT(COND)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Wait for MYTCS to become fully established.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(DUPLEX)",
"TIMEOUT(30)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* The line below shows how to execute YKRECVER.
* The situation in which you have to use this command is rare, but
* this command is useful when the primary site failed and a copy
* group between the primary and the secondary sites cannot be
* dissolved from the primary site. In such a case, YKRECVER should
* be used to forcibly dissolve a copy group from the secondary site.
*/
address TSO "YKRECVER STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
say "#-- END YKDEMO07.";
exit;
286 CLI Commands