HP P9000, Reference Manual

Page: 303 / 399

/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2011, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO12 is an example script that demonstrates recovery of TC */
/* pairs that became inconsistent because of interrupted FlashCopy */
/* copy process. This script discovers CONSLOST copy pairs in the TC */
/* group, deletes them, and then re-creates them. */
/* */
/* This sample script assumes the following settings. */
/* */
/* 1) The definition files are stored in the dataset with the */
/* 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.
Command details 303