HP P9000 Business Continuity Manager Reference Guide (T5253-96058, September 2011)

/* prefix "BCM.DEMO". */
/* 2) TC-Sync copy group is used. The copy group ID is "MYTCS". */
/* 3) The route list ID is "DEMORLST". */
/* 4) The primary Device Address Domain ID is "PRIM". */
/* */
/* The details for this sample script are as follows: */
/* */
/* 1) Call YKLOAD to load a configuration definitions. */
/* 2) Check whether TC pair became inconsistent because of */
/* interrupted FlashCopy copy process, or not. */
/* *) When TC pair became inconsistent because of interrupted */
/* FlashCopy copy process, go to step 3. */
/* 3) Check the status of each pairs. */
/* *) When the status is CONSLOST, go to step 4 and 5. */
/* 4) Delete the pair of which the status is CONSLOST in MYTCS. */
/* 5) Re-make the deleted pair again. */
/* */
/**********************************************************************/
/* Sample script begins. */
Say "#-- BEGIN YKDEMO12."
Call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) GROUP(MYTCS)",
"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)"
/*
* Check the return code of YKLOAD.
*/
If result /= 0 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
/*
* Check the status of the MYTCS copy pair
* to find that TC pair became inconsistent because of interrupted
* FlashCopy copy process.
*/
Address TSO "YKQUERY STEM(DEMO_INFO.) MSG(DEMO_MSG.)"
/*
* Check the return code of YKQUERY.
*/
If rc > 8 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
/*
* When TC pair became inconsistent because of interrupted FlashCopy
* copy process, check the status of each the MYTCS copy pairs.
* 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")"
/*
298 CLI Commands