Ykdemo06 - HP XP P9500 Reference Manual

* 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
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
say "Value
end;
return 0;

YKDEMO06

/* REXX
/**********************************************************************/
/*
/* All Rights Reserved. Copyright (C) 2007, 2010, Hitachi, Ltd.
/*
/**********************************************************************/
: " ||,
: " ||,
: " ||,
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;
= " || DEMO_MSG.x.Text;
= " || DEMO_MSG.x.Value;
: " ||,
: " ||,
Command details 279
*/
*/
*/
*/
*/
*/
*/