HP XP7 Smart Manager for Mainframe User Guide (TK916-96001, May 2014)

/* Find next pool from POOLMap. */
pos_POOLID = POS('1', val_POOLMap, pos_POOLID+1);
END;
END;
SAY "#-- END KTDEMO13."; /* 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;
/*
* 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;
KTDEMO14 (Check I/O performance information)
/* REXX */
/**********************************************************************/
/* */
Sample scripts270