HP XP P9000 for Business Continuity Manager Software Reference Guide

exit;
end;
else
nop;
/*
* Call YKQUERY to refresh the information in the Copy Group structure
* of MYUR4X4 copy group container before calling YKMAKE. You may use
* YKEWAIT with TIMEOUT(0) parameter instead, as demonstrated in
* YKDEMO01.
*/
address TSO "YKQUERY STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is bigger than 8.
*/
if rc > 8
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Establish all copy pairs in MYUR4X4 copy group container 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;
/*
* Use YKEWAIT to wait until "MYUR4X4" 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)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Several copy group information items obtained by the YKLOAD command
* are displayed here.
*/
say "Copy Group ID : " ||,
DEMO_INFO.ID;
say "Description : " ||,
DEMO_INFO.Description;
Command details 303