HP XP Command View Advanced Edition Software - Manual (Page 267)

TierRangePageCt = TierRangePageCt ,
+ DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.Tier.t.Used;
END;
END;
/*
* Calculate capacity and used in the tier range.
*/
TierRangeCapacity = 0; /* total page count */
TierRangeUsed = 0; /* used pages count */
TierRangeReserved = 0; /* reserved page count for new & reallocate */
DO t=1 to poolTierCt;
IF TierRange.t = 'Y' THEN DO
ReservedPerCent = 0;
IF DATATYPE(,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.EntryBufferPerCent,
) = 'NUM' THEN DO;
ReservedPerCent = ReservedPerCent + ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.EntryBufferPerCent;
END;
IF DATATYPE(,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.RelocateBufferPerCent,
) = 'NUM' THEN DO;
ReservedPerCent = ReservedPerCent + ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.RelocateBufferPerCent;
END;
TierRangeReserved = TierRangeReserved + TRUNC(,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Capacity,
* ReservedPerCent/100);
TierRangeCapacity = TierRangeCapacity ,
+ DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Capacity;
TierRangeUsed = TierRangeUsed ,
+ DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Used;
END;
END;
/*
* Identify relocate status as shown below.
* ALL: Y=All pages are in the expected Tier(s) of the range
* capacity: expected Tier(s) capacity
* Relocate%: Pool's RelocatePerCent
*
* ALL Capacity Relocate% MultiTier relocateStatus
* Y any any N -> done
* Y any 100 Y -> done
* Y any >100 Y -> done or relocating
* N full any any -> capacity shortage
* N not full 100 any -> relocate waiting
* N not full >100 any -> relocating
*/
IF TierRangePageCt = val_pageCt THEN DO
/* All pages are in the tier. */
IF MultiTier ='N' THEN /* Tier level is not multi tier? */
relocateStatus = 'done ';
ELSE IF val_RelocatePerCent = 100 THEN
relocateStatus = 'done ';
ELSE
relocateStatus = 'done or relocating';
END;
ELSE DO;
User Guide 267