HP XP P9000 for Business Continuity Manager Software Reference Guide

else
nop;
call printCopyGroupStatus;
say "#-- END YKDEMO01."; /* The sample script completed. */
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;
/*
* printCopyGroupStatus: This procedure prints the status information
* of copy pairs in the copy group "MYTCS".
*/
printCopyGroupStatus: procedure expose DEMO_INFO.
say DEMO_INFO.ID || " -- status information."
say " Simplex pairs = " || DEMO_INFO.SimplexCt;
say " Duplex pairs = " || DEMO_INFO.DuplexCt;
say " Suspend pairs = " || DEMO_INFO.SuspendOpCt;
return 0;
YKDEMO02
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* YKDEMO02 - A sample demonstration script that illustrates how to */
/* use the Business Continuity Manager's REXX CLI commands for */
/* linkage with FlashCopy. */
/* */
/* This sample script uses the following CLI commands. */
/* - YKFCSTAT */
/* - YKSLEEP */
/* */
/**********************************************************************/
/* Sample script begins. */
say "#-- BEGIN YKDEMO02.";
address TSO "YKENV"
/*
* The following piece of code attempts to detect completion of
* the copy process of FlashCopy pair by using YKFCSTAT.
* If the copy process has not completed yet, the value of "STATE0"
* remains non-zero, so it waits for certain amount of time (in this
* example, 1 minute) and re-attempt to detect completion of the
* copy process. This cycle will continue for 10 times unless
* completion of the copy process is detected.
*/
outFlag = "INLOOP";
268 CLI Commands