Ykdemo08 - HP StorageWorks P9000 Reference Manual

/*
* 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
say "Value
end;
return 0;

YKDEMO08

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2009, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
/*
/* YKDEMO08 - A sample demonstration script that illustrates
/* how to use the Business Continuity Manager's CLI commands to
/* perform fail-over operations in a 2DC configuration with
/* HyperSwap and UR.
/* This script can be used when storage system at the primary
/* site has been stopped for a storage system maintenance or
/* because a storage system 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:
/*
/* 1) Call YKLOAD to load configuration definitions.
/* 2) Confirm the ready state for operations in 2DC configuration
/* with HyperSwap and UR.
/* 3) Watch for the occurrence of a HyperSwap.
/* 4) Suspend MYUR1.
/* 5) Execute DeltaResync MYUR2.
/*
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO08."
address TSO "YKENV"
call "YKLOAD" "STEM(DEMO_INFO.MYTCHS.) PREFIX(BCM.DEMO) GROUP(MYTCHS)",
/*
* Check the return code of YKLOAD.
*/
if result /= 0
then do
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)"
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
Command details 287