HP XP P9000 for Business Continuity Manager Software Reference Guide

Exit
End
Else
Nop
End
Else
Nop
End
End
Else
Nop
Say "#-- END YKDEMO12."
Exit
/*
* 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
YKDEMO13
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2012, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO13 - A demo script of Business Continuity Manager REXX CLI */
/* commands used for obtaining EXCTG information. */
/* */
/* This sample script uses the following CLI commands. */
/* - YKLOAD */
/* - YKEWAIT */
/* - YKQEXCTG */
/* - YKSLEEP */
/* */
/* This sample script assumes the following settings. */
/* */
/* 1) The definition files are stored in the dataset with the */
/* prefix "BCM.DEMO". */
/* 2) UR 4X4 copy group container is used. The copy group ID is */
/* "MYUR4X4". */
/* 3) The route list ID is "DEMORLST". */
/* 4) The primary Device Address Domain ID is "PRIM". */
/* */
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO13.";
address TSO "YKENV"
/*
* YKLOAD should be called before manipulating MYUR4X4 to make
* definition information of MYUR4X4 available on the REXX environment.
*/
call "YKLOAD" "STEM(DEMO_INFO.) PREFIX(BCM.DEMO) GROUP(MYUR4X4)",
"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;
302 CLI Commands