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

IF TierRangeUsed >= TierRangeCapacity - TierRangeReserved THEN
relocateStatus = 'capacity shortage ';
ELSE IF val_RelocatePerCent = 100 THEN
relocateStatus = 'relocate waiting ';
ELSE
relocateStatus = 'relocating ';
END;
SAY ' 'RIGHT(val_Devn,4)','LEFT(val_Volser,6)||,
','val_SN','val_CU', 'val_CCA||,
','RIGHT(val_POOLID,3)','RIGHT(val_TLv,3)||,
','relocateStatus','RIGHT(TierRangePageCt,11)||,
'/'RIGHT(val_pageCt,10);
END;
/*
* Display pool information.
*/
SAY '';
SAY 'Pools';
SAY ' Relocate'||,
' RelocateTime MigrationPage';
SAY ' SN , ID, Type,Monitor,active %,'||,
'Start, End,ExpectedCt,MigratedCt';
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 information values about the pool
* from DSK structure REXX variables.
*/
val_Type = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Type;
IF val_Type='DT' THEN DO;
val_Auto = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Auto;
val_RelocatePerCent = ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.RelocatePerCent;
val_RelocateStartTime = ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.RelocateStartTime;
val_RelocateEndTime = ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.RelocateEndTime;
val_Relocating = ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Relocating;
val_MigratedPageCt = ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.MigratedPageCt;
val_ExpectedMigrationPageCt = ,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.ExpectedMigrationPageCt;
IF val_Auto = 'Y' THEN
monitorMode = 'auto';
ELSE
monitorMode = 'manual';
Sample scripts 268