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