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

* printErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
*/
printErrorMessage: procedure expose DEMO_MSG.
do x = 1 to DEMO_MSG.0
say "Severity = " || DEMO_MSG.x.Severity
say "Text = " || DEMO_MSG.x.Text
say "Value = " || DEMO_MSG.x.Value
end
return 0
YKDEMO09
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2009, 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO09 - A sample demonstration script that illustrates */
/* how to use the Business Continuity Manager's CLI commands to */
/* perform fail-back operations in a 2DC configuration with */
/* HyperSwap and UR. */
/* This script can be used when DKC at the primary site has been */
/* stopped for a DKC maintenance or because a DKC failure has */
/* occurred. */
/* */
/* This sample script assumes the following settings: */
/* */
/* 1) The definition files are stored in the dataset with the */
/* prefix "BCM.DEMO". */
/* 2) The TC copy group's copy group ID is MYTCHS. */
/* 3) The copy group ID between the primary and */
/* remote sites is MYUR1. */
/* 4) The copy group ID between the local and */
/* remote sites is MYUR2. */
/* 5) The route list ID is "DEMORLST". */
/* 6) The primary Device Address Domain ID is "PRIM". */
/* */
/* 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"
290 CLI Commands