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

/* Display storage system information. */
SAY '';
SAY 'DKC';
SAY ' SN:' ||DEMO_STEM.LOCAL.sym_SN.SerialNum||,
',Model:' ||DEMO_STEM.LOCAL.sym_SN.Model||,
',Microcode:' ||DEMO_STEM.LOCAL.sym_SN.Microcode||,
',IFType:' ||DEMO_STEM.LOCAL.sym_SN.IFType;
/* Find first pool from POOLMap. */
val_POOLMap = VALUE("HCC.HDAKT."||k||".POOLMap");
pos_POOLID = POS('1',val_POOLMap, 1);
/*
* Display pool values in the DSK configuration file.
*/
SAY '';
SAY 'Pools';
SAY ' ID, Type,Pool Name ,Tier1,Tier2,Tier3';
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_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;
/* Find next pool from POOLMap. */
pos_POOLID = POS('1', val_POOLMap, pos_POOLID+1);
END;
SAY '';
SAY 'Volumes';
SAY ' Devn,Volser,STORGRP ,CU,SSID,CCA,POOLID, Cylinders,Ext';
/* Find first cu from CUMap. */
val_CUMap = VALUE("HCC.HDAKT."||k||".CUMap");
pos_CU = POS('1',val_CUMap, 1);
DO WHILE(pos_CU /= 0);
Sample scripts 248