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

/* */
/* YKDEMO06 - A sample demonstration script that illustrates how to */
/* use the Business Continuity Manager's YKWATCH command. */
/* */
/* 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 YKDEMO06.";
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;
exit;
end;
else
nop;
/*
* Update the Copy Group structure for MYTCS before YKMAKE. You may
* also use YKEWAIT with TIMEOUT(0) for faster update.
*/
address TSO "YKQUERY STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is bigger than 8.
*/
if rc > 8
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Establish all copy pairs in MYTCS copy group into DUPLEX. This is
* for demonstration purpose only. In reality you may already have a
* copy group up and running so that you do not have to use YKMAKE
* before YKWATCH.
*/
address TSO "YKMAKE STEM(DEMO_INFO.) MSG(DEMO_MSG.) SELECT(COND)";
/*
* Check the return code to see if it is 0 or not.
*/
280 CLI Commands