I use the following, which is similar to the REXX provided earlier in this 
thread (and liberally stolen from Mark Zelden).  

/*  REXX   */                                                            
                                                                         
CVT = C2D(STORAGE(10,4))                                                 
RMCT = C2D(STORAGE(D2X(CVT+604),4))                                      
RCT = C2D(STORAGE(D2X(RMCT+228),4))                                      
RCTLACS = C2D(STORAGE(D2X(RCT+196),4))                                   
RCTIMGWU = C2D(STORAGE(D2X(RCT+28),4))                                   
RCTCECWU = C2d(Storage(D2x(RCT+32),4))     
IF RCTCECWU <> 0 THEN DO                                                 
  say   'The MSU capacity for this CEC is' rctcecwu'.'                   
  say   'The defined MSU capacity for this LPAR is' rctimgwu'.'          
END                                                                      
IF RCTLACS <> 0 THEN DO                                                  
  say   'The 4 hour msu average usage is' rctlacs'.'                     
  IF RCTLACS = RCTIMGWU & RCTIMGWU <> RCTCECWU THEN ,                    
    say   ' ** LPAR may currently be "soft capped". **'                  
  IF RCTLACS > RCTIMGWU & RCTIMGWU <> RCTCECWU THEN ,                    
    say   ' ** LPAR is currently "soft capped". **'  
END                    

Regards,
Greg Shirey
Ben E. Keith Company


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of Gibney, David Allen,Jr
Sent: Monday, October 26, 2015 2:43 PM
To: [email protected]
Subject: Re: 4-hour MSU rolling average

Thank you. That is the total capacity of the CEC, 28 on my machine. For SCRT 
purposes, I cap at 16. Is there a variable which I can look at to see how far 
under this cap I am, or when I am experiencing capping?

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to