Ykdemo02 - HP XP P9500 Reference Manual

/*
* 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
say "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 "
say "
say "
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";
do i = 1 to 10 while (outFlag == "INLOOP")
/*
* Use YKFCSTAT command to view the current status of the
* FlashCopy processing. You may choose a volume from which
* the status information of the current FlashCopy processing
* is retrieved by specifying a device number of a volume with
* "DEVN" parameter, such as "DEVN(12AB)".
266 CLI Commands
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
Simplex pairs = " || DEMO_INFO.SimplexCt;
Duplex pairs = " || DEMO_INFO.DuplexCt;
Suspend pairs = " || DEMO_INFO.SuspendOpCt;
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/
*/