HP StorageWorks P9000 - Page 282

end;
else
nop;
/*
* Call YKSTATS to obtain performance information of MYTCA.
* Note that the Usage Monitor must be running for YKSTATS to obtain
* performance information.
*/
address TSO "YKSTATS STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Few of the information items that you can acquire by YKQUERY and
* 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;
282 CLI Commands