/*
* Confirm that the status of the MYTCHS copy pair
* has been recovered.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYTCHS.) MSG(DEMO_MSG.)",
"GOTO(DUPLEX) TIMEOUT(30)"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Execute Make(HOLD) on the MYUR1 to change
* the status of MYUR1 to one where a DeltaResync
* can be performed.
*/
address TSO "YKMAKE STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.) HOLD"
/*
* Check the return code of YKMAKE.
*/
if rc /= 0
then do
call printErrorMessage
end
else
nop
/*
* Confirm that the status of the MYUR1 copy pair is one where a
* DeltaResync can be performed.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
"GOTO(HOLD) TIMEOUT(10)"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
exit
end
else
do
say "recover to ready state for DeltaResync",
296 CLI Commands
Содержание P9000
Страница 302: ...YKDEMO12 302 CLI Commands ...