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

SAY 'Pool';
SAY ' ID, Type,Pool Name ,'||,
'Media(Tier1,Tier2,Tier3)';
/* Get pool information. */
sym_POOLID = 'POOL'||D2X(val_POOLID,2);
val_Name = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.NAME;
val_Type = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Type;
val_PageSize = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.PageSize;
val_Media = '';
TierCt = DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.0;
IF DATATYPE(TierCt) /= 'NUM' THEN
TierCt = 0;
DO t=1 to TierCt;
/* Get pool's drive media information. */
IF val_Media = '' THEN
val_Media = convertMediaType(,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Media);
ELSE
val_Media = val_Media','convertMediaType(,
DEMO_STEM.LOCAL.sym_SN.sym_POOLID.Tier.t.Media);
END;
/* Display pool information. */
SAY ' 'RIGHT(val_POOLID,3)','RIGHT(val_Type,5)||,
','LEFT(val_Name,32)','val_Media;
END;
SAY '';
SAY 'Volume';
SAY ' Devn,Volser,CU,SSID,CCA,POOLID,TLv, Entry,Reloc';
/*
* Get information values about the volume
* from DSK structure REXX variables.
*/
val_Devn = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.Devn;
val_Volser = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.Volser;
val_SSID = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.SSID;
val_POOLID = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.POOLID;
val_TierLevel = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.TierLevel;
val_Entry = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.Entry;
val_TierRelocation = ,
DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.TierRelocation;
/*
* Display volume information in the TPG.
*/
SAY ' 'RIGHT(val_Devn,4)','LEFT(val_Volser,6)||,
','val_CU','val_SSID', 'val_CCA','RIGHT(val_POOLID,6)||,
','RIGHT(val_TierLevel,3)||,
','RIGHT(val_Entry,6)','RIGHT(val_TierRelocation,5);
SAY "#-- END KTDEMO04."; /* The sample script completed. */
EXIT 0;
/*
* printErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
User Guide 255