HP StorageWorks P9000 Reference Manual page 281

"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)";
/*
* Check the return code of YKLOAD to see if it is 0 or not.
*/
if result /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Call YKQUERY to refresh the information in the Copy Group structure
* of MYTCA copy group 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 MYTCA 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;
/*
* Call YKQUERY to fully update the information in the Copy Group
* structure of MYTCA copy group.
* YKEWAIT with TIMEOUT(0) as demonstrated in YKDEMO01 should not be
* used because it only partially updates the information.
*/
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;
Command details 281