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 <[email protected]>
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 [email protected] with the message: INFO IBM-MAIN
