HP P9000, Reference Manual

Page: 265 / 399

/* */
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO01 - A sample demonstration script that illustrates how to */
/* use the Business Continuity Manager's REXX CLI commands for */
/* manipulation of a copy group. */
/* */
/* This sample script uses the following CLI commands. */
/* - YKLOAD */
/* - YKMAKE */
/* - YKSUSPND */
/* - YKRESYNC */
/* - YKDELETE */
/* - YKQUERY */
/* - YKEWAIT */
/* */
/* 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 YKDEMO01.";
address TSO "YKENV"
/*
* YKLOAD should always be called to make information about a copy
* group available from the REXX environment. In this YKLOAD calling,
* the information about "MYTCS" in "BCM.DEMO" is loaded and stored
* into the REXX variable structure beginning with "DEMO_INFO.".
* One or more error messages that may be generated during execution
* of a CLI command will be stored in the message structure with the
* prefix that is specified by the MSG parameter. In this example,
* the message structure is assumed to have the prefix "DEMO_MSG.".
* Notice that YKLOAD is called with "call" instruction because it is
* a REXX subroutine, not TSO/E command.
*/
call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) GROUP(MYTCS)",
"DAD(PRIM) MSG(DEMO_MSG.) ROUTE(DEMORLST)";
/*
* Make sure that YKLOAD completed successfully. If YKLOAD failed,
* the return value "result" is non-zero.
*/
if result /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* You should always refresh the information in the Copy Group
* structure before calling any copy group-manipulation command such
* as YKMAKE, YKSUSPND and so on.
* To refresh the information, use YKQUERY.
*/
Command details 265