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

*/
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;
/*
* convertMediaType: This procedure converts from media type value
* (<stem>LOCAL.SNnnnnn.POOLxx.Tier.n.Media in the DSK structure)
* to media type description string.
*/
convertMediaType: procedure
ARG mediaTypeValue;
IF mediaTypeValue = '0000' THEN
mediaTypeStr = 'SSD';
ELSE IF mediaTypeValue = '0001' THEN
mediaTypeStr = 'SAS 15K';
ELSE IF mediaTypeValue = '0002' THEN
mediaTypeStr = 'SAS 10K';
ELSE IF mediaTypeValue = '0003' THEN
mediaTypeStr = 'SATA 7.2K';
ELSE IF mediaTypeValue = '0004' THEN
mediaTypeStr = 'EXTERNAL M';
ELSE IF mediaTypeValue = '0005' THEN
mediaTypeStr = 'SAS 7.2K';
ELSE IF mediaTypeValue = '0006' THEN
mediaTypeStr = 'MIXED MEDIA';
ELSE IF mediaTypeValue = '0007' THEN
mediaTypeStr = 'EXTERNAL H';
ELSE IF mediaTypeValue = '0008' THEN
mediaTypeStr = 'EXTERNAL L';
ELSE
mediaTypeStr = '';
mediaTypeStr = '"'mediaTypeStr'"';
RETURN mediaTypeStr;
KTDEMO05 (Change the tiering policy of a volume back to the default)
/* REXX */
/**********************************************************************/
/* */
/* All Rights Reserved. Copyright (C) 2013, Hitachi, Ltd. */
/* */
/**********************************************************************/
/* */
/* KTDEMO05 - A sample demonstration script that */
/* resets tiering policy of the target volume. */
/* */
/* This sample script uses the following CLI commands. */
/* - KTDCTDEV */
/* */
/* This sample script assumes the following settings. */
Sample scripts 256