HP XP P9500 Storage - Manual (Page 195)

*/
CALL KTLOAD "STEM(DEMO_STEM.) MSG(DEMO_MSG.)",
" PREFIX("opt_prefix") TPG("opt_tpgid")";
/*
* Check the return code to see if it is 0 or not.
*/
IF RESULT /= 0 THEN DO
CALL printErrorMessage "KTLOAD" RESULT;
EXIT 8;
END;
/*
* Get tiering policy setting values of volume in the TPG and
* tier status of volumes and pools in the TPG.
*/
CALL KTQRYTPG "STEM(DEMO_STEM.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
IF RESULT /= 0 THEN DO
CALL printErrorMessage "KTQRYTPG" RESULT;
EXIT 8;
END;
/*
* Get volume/pool relocation progress status in the TPG.
*/
CALL KTQRYRLC "STEM(DEMO_STEM.) MSG(DEMO_MSG.)";
/*
* Check the return code to see if it is 0 or not.
*/
IF RESULT /= 0 THEN DO
CALL printErrorMessage "KTQRYRLC" RESULT;
EXIT 8;
END;
/*
* Display relocation progress status per volume.
*/
SAY 'Tiering Policy Group Name: '||DEMO_STEM.TPG.ID;
SAY '';
SAY 'Volumes';
SAY ' POOL';
SAY ' Devn,Volser,SN ,CU,CCA, ID,TLv,'||,
'RelocateStatus ,LocatedPage/ TotalPage';
DO i=1 to DEMO_STEM.TPG.VOL.0;
/*
* Generate symbol which is part of the DSK structure REXX variable
* name.
*/
val_SN = DEMO_STEM.TPG.VOL.i.SerialNum;
val_CU = DEMO_STEM.TPG.VOL.i.CUNum;
val_CCA = DEMO_STEM.TPG.VOL.i.CCA;
sym_SN = 'SN' ||val_SN;
sym_CU = 'CU' ||val_CU;
sym_CCA = 'CCA'||val_CCA;
/*
* Get information values about the volume
* from DSK structure REXX variables.
User Guide 195