HP XP P9500 Reference Manual page 265

exit;
end;
else
nop;
/*
* Wait until all copy pairs in MYTCS copy group become DUPLEX.
*/
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;
call printCopyGroupStatus;
/*
* Dissolve all copy pairs in MYTCS copy group, putting them back to
* SIMPLEX status.
*/
address TSO "YKDELETE 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;
/*
* Wait until all copy pairs in TCS copy group get fully dissolved.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(SIMPLEX)",
"TIMEOUT(30)";
/*
* Check to see if the return code is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
call printCopyGroupStatus;
say "#-- END YKDEMO01."; /* The sample script completed.
exit;
*/
Command details 265