* If the status of pair is CONSLOST, execute recovering process.
*/
If DEMO_INFO.CopyGroup.1.ConslostCt > 0 Then
Do
Do i = 1 To DEMO_INFO.CopyGroup.1.Pair.0
If DEMO_INFO.CopyGroup.1.Pair.i.State == "CONSLOST" Then
Do
/*
* Delete the CONSLOST pair in MYTCS.
*/
P_DEVN = DEMO_INFO.CopyGroup.1.Pair.i.Pri.Devn
S_DEVN = DEMO_INFO.CopyGroup.1.Pair.i.Sec.Devn
Address TSO "YKDELETE STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"DEVN("P_DEVN","S_DEVN")"
/*
* Check the return code of YKDELETE.
*/
If rc /= 0 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
/*
* Confirm that the status of the deleted pair is one where
* the copy pair can be copied.
*/
Address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"GOTO(SIMPLEX) TIMEOUT(1) NOINVALIDCHECK",
"DEVN("P_DEVN","S_DEVN")"
/*
* Check the return code of YKEWAIT.
*/
If rc /= 0 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
/*
* Re-make the deleted pair in MYTCS.
*/
Address TSO "YKMAKE STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"DEVN("P_DEVN","S_DEVN")"
/*
* Check the return code of YKMAKE.
*/
If rc /= 0 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
/*
* Confirm that the re-maked pair has been recovered.
*/
Address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"GOTO(DUPLEX) TIMEOUT(10)",
"DEVN("P_DEVN","S_DEVN")"
/*
* Check the return code of YKEWAIT.
304 CLI Commands
Содержание P9000
Страница 302: ...YKDEMO12 302 CLI Commands ...