See if this will help in your efforts:
/* Rexx -------------------------------------------------------------*/
/* Call the Query Virtual Server service provided by WLM to get */
/* CEC and Image capacity, as well as other hardware identification. */
/* "IRAQVS" maps the returned data. */
/*-------------------------------------------------------------------*/
QVSLEN = 97 /* Set output area length */
QVSLENX = RIGHT(X2C(D2X(QVSLEN)),, /* Set area length as char */
4,, /* Pad to fullword */
D2C(0)) /* Pad with '00'x */
/*----------------------------*/
QVSOUT = QVSLENX , /* Output area with length */
|| COPIES('00'X,QVSLEN-4) /* Pad remainder with '00'x */
/*----------------------------*/
ADDRESS LINKPGM 'IWMQVS QVSOUT' /* Call Query Virtual Server */
/*----------------------------*/
IF RC > 0 , /* Something didn't work */
THEN DO /* Perform the following */
SAY "IWMQVS ERROR. RC =" RC /* Provide some diagnostics */
EXIT /* Nothing more to do */
END /* End program error */
/*----------------------------*/
QVSVER = C2D(SUBSTR(QVSOUT,5,1)) /* QVS version */
QVSFLAGS = C2X(SUBSTR(QVSOUT,6,1)) /* Isolate returned flags */
CECVALID = SUBSTR(X2B(QVSFLAGS),1,1) /* CEC information found? */
IMGVALID = SUBSTR(X2B(QVSFLAGS),2,1) /* Image information found? */
/*----------------------------*/
IF QVSVER = 2 , /* QVS extended information */
THEN /* Perform the following */
VER2 = X2B(C2X(SUBSTR(QVSOUT,97,1))) /* Get the bits I guess (TBD) */
/*----------------------------*/
IF CECVALID , /* CEC information found */
THEN DO /* Perform the following */
CECSTAT = C2D(SUBSTR(QVSOUT,8,1)) /* Nominal/reduced capacity? */
CECTYPE = SUBSTR(QVSOUT,9,4) /* Machine type */
CECMODEL = SUBSTR(QVSOUT,13,3) /* Machine model */
CECMSUS = C2D(SUBSTR(QVSOUT,65,4)) /* Machine MSU capacity */
END /* End CEC information found */
/*----------------------------*/
IF IMGVALID , /* MVS running in a partition */
THEN DO /* Perform the following */
LPARNAME = SUBSTR(QVSOUT,69,8) /* Get LPAR name */
LPARID = C2D(SUBSTR(QVSOUT,77,2)) /* Get LPAR numeric identifier*/
LPARMSUS = C2D(SUBSTR(QVSOUT,81,4)) /* Get LPAR MSU capacity */
END /* End running in a partition */
The rest is NetView stuff to return the requested information back to the
caller, so I'll leave that to you!
On Fri, Nov 19, 2021 at 3:44 PM Charles Mills <[email protected]> wrote:
> I am seeing the same value in both fields. IMGWU definitely appears to be
> the MSU cap. I am guessing that LACS being equal means we are capped at
> that value (despite what the doc says).
>
> Charles
>
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Charles Mills
> Sent: Friday, November 19, 2021 12:45 PM
> To: [email protected]
> Subject: Re: Is there a field that would reflect LPAR soft-capping?
>
> I will build a quick and dirty Rexx to display those two fields on demand
> and see what I learn.
>
> Thanks again!
>
> Charles
>
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of Carmen Vitullo
> Sent: Friday, November 19, 2021 11:56 AM
> To: [email protected]
> Subject: Re: Is there a field that would reflect LPAR soft-capping?
>
> Charles I think the RCTIMGWU field is what you are looking for, in short
> it's defined as
>
> Image defined MSU's - as the softcap is changed that value is updated,
> I'm not 100% sure that's what your asking, if not sorry.
>
> Mark's Rexx performs some calculations to report on used MSU's on a
> rolling 4hr average and the unused MSU for the 4hr average
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
