HP P9000, Справочное руководство

Страница: 276 / 399

/*
* 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;
YKDEMO04
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO04 - A sample demonstration script that illustrates how to */
/* use the Business Continuity Manager's REXX CLI commands for */
/* using Extended C/T Group feature of TrueCopy Synchronous. */
/* This script will continue monitoring for IEA494I message for */
/* a suspended copy pair in the given TC-Sync copy group for 120 */
/* seconds. */
/* */
/* This sample script uses the following CLI commands. */
/* - YKLOAD */
/* - YKEWAIT */
/* - YKCONMSG */
/* - YKFREEZE */
/* - YKSUSPND */
/* - YKRUN */
/* */
/* 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". */
/* */
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO04.";
address TSO "YKENV"
/*
* YKLOAD should be called before manipulating MYTCS to make definition
* information of MYTCS available on the REXX environment.
*/
call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) GROUP(MYTCS)",
"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)";
/*
* Check the return code of YKLOAD to see if it is 0 or not.
*/
if result /= 0
then do
call printErrorMessage;
276 CLI Commands