HP XP P9500 Reference Manual page 299
Hp p9000 for business continuity manager software reference guide
Hide thumbs
Also See for XP P9500:
- Software user's manual (608 pages) ,
- Manual (348 pages) ,
- User manual (193 pages)
Advertisement
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.
*/
If rc /= 0 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
End
Else
Nop
End
Command details 299
Advertisement
