How about this as a Q&D solution:
/* REXX */
rct = c2d(storage(d2x(c2d(storage(d2x(c2d(storage(10, 4))+604), ,
4))+228), 4))
say 'CEC MSU capacity='c2d(storage(d2x(rct+32), 4))';' ,
'defined LPAR MSU capacity='c2d(storage(d2x(rct+28), 4))
--
...phsiii
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
