HP StorageWorks P9000 Reference Manual page 303

/* 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