HP XP P9500 Reference Manual page 278

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;
end;
else
nop;
/*
* Call YKSTATS to obtain performance information of MYTCA.
* Note that the Usage Monitor must be running for YKSTATS to obtain
* performance information.
*/
address TSO "YKSTATS 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;
/*
* Few of the information items that you can acquire by YKQUERY and
278 CLI Commands