HP XP P9000 for Business Continuity Manager Software Reference Guide

/* 3) Delete the MYUR1 copy pair. */
/* 4) Make the MYUR1 copy pair, exit this sample script, and then */
/* re-execute this sample script again. */
/* 5) Suspend the MYUR2 copy pair. */
/* 6) Execute a DeltaResync on the MYUR1 copy pair. */
/* *) After using this sample script, resync MYTCHS. */
/* */
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO09."
address TSO "YKENV"
call "YKLOAD" "STEM(DEMO_INFO.MYTCHS.) PREFIX(BCM.DEMO) GROUP(MYTCHS)",
"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)"
/*
* Check the return code of YKLOAD.
*/
if result /= 0
then do
call printErrorMessage
exit
end
else
nop
call "YKLOAD" "STEM(DEMO_INFO.MYUR1.) PREFIX(BCM.DEMO) GROUP(MYUR1)",
"DAD(PRIM) MSG(DEMO_MSG.)"
/*
* Check the return code of YKLOAD.
*/
if result /= 0
then do
call printErrorMessage
exit
end
else
nop
call "YKLOAD" "STEM(DEMO_INFO.MYUR2.) PREFIX(BCM.DEMO) GROUP(MYUR2)",
"DAD(PRIM) MSG(DEMO_MSG.)"
/*
* Check the return code of YKLOAD.
*/
if result /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Check the status of the MYUR1 copy pair
* to find the cause of a HyperSwap.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
"GOTO(HOLD) TIMEOUT(0) NOINVALIDCHECK"
/*
Command details 293