end
else
nop
/*
* Suspend the MYUR1 copy pair to change the status of
* MYUR1 into one where a DeltaResync can be performed.
*/
address TSO "YKSUSPND STEM(DEMO_INFO.MYUR1.)",
" MSG(DEMO_MSG.) FLUSH"
/*
* Confirm that the status of MYUR1 copy pair is in a
* status where a DeltaResync can be performed.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.)",
"MSG(DEMO_MSG.) GOTO(SUSPEND) TIMEOUT(10)"
end
else do
/*
* Confirm that the MYTCHS copy pair is in a status
* where a DeltaResync can be performed.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYTCHS.)",
" MSG(DEMO_MSG.) GOTO(SWAPPING)",
" TIMEOUT(0)"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
leave /* Exit the loop. */
end
else
nop
/*
* Suspend the MYUR1 copy pair to change the status of
* MYUR1 into one where a DeltaResync can be performed.
*/
address TSO "YKSUSPND STEM(DEMO_INFO.MYUR1.)",
" MSG(DEMO_MSG.) FLUSH"
/*
* Check the return code of YKSUSPND.
*/
if rc /= 0
then do
call printErrorMessage
leave /* Exit the loop. */
end
else
nop
/*
* Confirm that the MYUR1 copy pair is in a status
* where a DeltaResync can be performed.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) ",
"MSG(DEMO_MSG.) GOTO(SUSPEND) TIMEOUT(10)"
/*
Command details
291
Содержание P9000
Страница 302: ...YKDEMO12 302 CLI Commands ...