HP XP P9500 Reference Manual page 294

* Suspend the MYUR2 copy pair to change the status of MYUR2
* to one where a DeltaResync can be performed.
*/
address TSO "YKSUSPND STEM(DEMO_INFO.MYUR2.)",
/*
* Check the return code of YKSUSPND.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Confirm that the status of the MYUR2 copy pair is one where a
* DeltaResync can be performed.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR2.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Execute a DeltaResync on the MYUR1 copy pair to change
* the status of MYUR1 to DUPLEX, and to change
* the status of MYUR2 to HOLD.
*/
address TSO "YKRESYNC STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKRESYNC.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Wait for completion of copying from the primary site to
* the remote site.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
/*
294 CLI Commands
"MSG(DEMO_MSG.) FLUSH"
"GOTO(SUSPEND) TIMEOUT(10)"
"DELTAJNL"
"GOTO(DUPLEX) TIMEOUT(30)"