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

* YKSTATS are shown here. Refer to the Business Continuity Manager
* Reference Guide for the list of all information items that you can
* obtain via YKQUERY and YKSTATS.
* For C/T Delta value, this sample script shows the value from just
* one copy pair. You may view the value for as many pairs as present.
*/
do x = 1 to DEMO_INFO.CopyGroup.0
say "Copy Group Name : " ||,
DEMO_INFO.CopyGroup.x.ID;
say "Copy Type : " ||,
DEMO_INFO.CopyGroup.x.CopyType;
say "Matching Percent : " ||,
DEMO_INFO.CopyGroup.x.MatchingPerCent;
say "C/T Delta of a pair : " ||,
DEMO_INFO.CopyGroup.x.Pair.1.CTDelta;
/* Some information items such as shown below are specific to */
/* either TC-Async or UR. The following piece of code displays */
/* some of the information items for each of TC-Async and UR. */
do y = 1 to DEMO_INFO.CopyGroup.x.Stats.0
select
when DEMO_INFO.CopyGroup.x.CopyType == "TCA"
then do
say "Write Pending Rate (Primary) : " ||,
DEMO_INFO.CopyGroup.x.Stats.y.Pri_Wpr_All;
say "Write Pending Rate (Secondary): " ||,
DEMO_INFO.CopyGroup.x.Stats.y.Sec_Wpr_All;
end;
when DEMO_INFO.CopyGroup.x.CopyType == "UR"
then do
say "Primary Journal Metadata : " ||,
DEMO_INFO.CopyGroup.x.Stats.y.Pri_Jnl_Meta;
say "Secondary Journal Metadata : " ||,
DEMO_INFO.CopyGroup.x.Stats.y.Sec_Jnl_Meta;
end;
otherwise
nop;
end;
end;
end;
say "#-- END YKDEMO05.";
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;
YKDEMO06
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd. */
/* */
/**********************************************************************/
Command details 279