say "recover to ready state for DeltaResync",
/*
* Delete the MYUR1 copy pair when a failure occurs.
*/
address TSO "YKDELETE STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)"
/*
* Check the return code of YKDELETE.
*/
if rc /= 0
then do
end
else
/*
* Confirm that the status of the MYUR1 copy pair is one where
* the copy pair can be copied.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
end
else
say "#-- MYTCHS copy pair change to DUPLEX state in TPC-R."
/*
* Confirm that the status of the MYTCHS copy pair
* has been recovered.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYTCHS.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
end
else
/*
* Execute Make(HOLD) on the MYUR1 to change
* the status of MYUR1 to one where a DeltaResync
* can be performed.
292 CLI Commands
"from failure configuration."
call printErrorMessage
nop
"GOTO(SIMPLEX) TIMEOUT(10)"
call printErrorMessage
exit
nop
"GOTO(DUPLEX) TIMEOUT(30)"
call printErrorMessage
exit
nop