Yes, that works
(with minor exception to the StorageCO function, but I managed it).

Thank you all who helped!



--
Radoslaw Skorupka
Lodz, Poland




W dniu 20.09.2023 o 21:28, Charles Mills pisze:
Does this help?

     /* Point to the RMF data */
     CVT_addr = Storage('10', 4)
     RMCT_addr = StorageCO(CVT_addr, 604, 4)
     RCT_addr = StorageCO(RMCT_addr, 228, 4)

MSUString:
     /* Return either "(R4HA=nn, CAPPED!)" or "(R4HA=nn, not capped)" */
     RCTIMGWU = C2D(StorageCO(RCT_addr, 28, 4))
     RCTLACS = C2D(StorageCO(RCT_addr, 196, 4))

     RetData = "(R4HA=" || RCTLACS || ", "
     If RCTLACS >= RCTIMGWU Then RetData = RetData || "CAPPED!)"
     Else RetData = RetData || "not capped)"
     Return RetData

Charles

On Wed, 20 Sep 2023 20:53:11 +0200, Radoslaw Skorupka <r.skoru...@hotmail.com> 
wrote:

I'm looking how to find out (programatically) the LPAR is being softcapped.
AFAIK it was quite easy in CMF, however RMF does not show it explicitly.
I also tried BCPii with no result.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to