Thanks. IRAQVS seems to have a bunch of useful stuff in it. Charles
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Steve Horein Sent: Friday, November 19, 2021 3:44 PM To: [email protected] Subject: Re: Is there a field that would reflect LPAR soft-capping? 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
