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

* 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_STORGRP = DEMO_STEM.LOCAL.sym_SN.sym_CU.sym_CCA.STORGRP;
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)||,
','LEFT(val_STORGRP,8)','val_SN','val_CU||,
','val_SSID', 'val_CCA','RIGHT(val_POOLID,6)||,
','RIGHT(val_TierLevel,3)||,
','RIGHT(val_Entry,6)','RIGHT(val_TierRelocation,5);
END;
SAY "#-- END KTDEMO11."; /* The sample script completed. */
EXIT 0;
/*
* printErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
*/
printErrorMessage: procedure expose DEMO_MSG.
ARG cli_name cli_result;
SAY "Command name=" || cli_name || ",result=" || cli_result;
IF DATATYPE(DEMO_MSG.0) = 'NUM' THEN
DO x = 1 to DEMO_MSG.0;
SAY "Severity = " || DEMO_MSG.x.Severity;
SAY "Text = " || DEMO_MSG.x.Text;
SAY "Value = " || DEMO_MSG.x.Value;
END;
RETURN 0;
KTDEMO12 (Check the page relocation status)
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2013, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* KTDEMO12 - A sample demonstration script that */
/* displays tier status of volume and pool in the TPG. */
/* */
/* This sample script uses the following CLI commands. */
/* - KTLOAD */
/* - KTQRYTPG */
/* */
/* This sample script assumes the following settings. */
User Guide 261