HP XP P9500 Storage - Manual (Page 199)

/*
* Display pool tier information.
*/
SAY ' 'val_SN','RIGHT(val_POOLID,3)','RIGHT(val_Type,5)||,
','RIGHT(monitorMode,7)||,
','val_Relocating' 'RIGHT(val_RelocatePerCent,3)'%'||,
','RIGHT(val_RelocateStartTime,5)||,
','RIGHT(val_RelocateEndTime,5)||,
','RIGHT(val_ExpectedMigrationPageCt,10)||,
','RIGHT(val_MigratedPageCt,10);
END;
/* Find next pool from POOLMap. */
pos_POOLID = POS('1', val_POOLMap, pos_POOLID+1);
END;
END;
/*
* Display relocation progress status per tier of the pool.
*/
SAY '';
SAY 'Pools tier status';
SAY ' SN , ID,Tier, Used/ Capacity,EntryBuf%,RelocBuf%,Media';
DO k=1 to HCC.HDAKT.0;
val_SN = HCC.HDAKT.k.SerialNum;
sym_SN = 'SN'||val_SN;
val_POOLMap = VALUE("HCC.HDAKT."||k||".POOLMap");
pos_POOLID = POS('1',val_POOLMap, 1);
DO WHILE(pos_POOLID /= 0);
val_POOLID = pos_POOLID - 1;
sym_POOLID = 'POOL'||D2X(val_POOLID, 2);
/* get pool's tier information */
poolTierCt = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.0;
IF DATATYPE(poolTierCt) /= 'NUM' THEN DO;
pos_POOLID = POS('1', val_POOLMap, pos_POOLID+1);
ITERATE;
END;
DO t=1 to poolTierCt;
val_Capacity = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Capacity;
val_Used = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Used;
val_EntryBufferPerCent =,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.EntryBufferPerCent;
val_RelocateBufferPerCent =,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.RelocateBufferPerCent;
val_Media = convertMediaType(,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Media);
/*
* Display pool's tier information.
*/
SAY ' 'val_SN','RIGHT(val_POOLID,3)', 't||,
','RIGHT(val_Used,10)'/'RIGHT(val_Capacity,10)||,
','RIGHT(val_EntryBufferPerCent,8)||,
'%,'RIGHT(val_RelocateBufferPerCent,8)'%,'val_Media;
END;
User Guide 199