/* The details for this sample script are as follows: */
/* */
/* *) When the cause of a HyperSwap is a DKC failure, execute this */
/* sample script twice. */
/* When execution for a DKC maintenance or second execution for */
/* a DKC failure, before using this sample script, change the */
/* status of the MYTCHS copy pair to Swapping that direction */
/* is the primary site to the secondary site. */
/* 1) Call YKLOAD to load a configuration definitions. */
/* 2) Check whether the cause of a HyperSwap was a DKC maintenance */
/* or a failure. */
/* *) When first execution for a DKC failure, go to steps 3 and 4. */
/* When execution for a DKC maintenance or second execution for */
/* a DKC failure, go to steps 5 and 6. */
/* 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
294 CLI Commands
Содержание P9000
Страница 302: ...YKDEMO12 302 CLI Commands ...