I do see IRAQVS was expanded between z/OS 2.3 and 2.4:
https://www.ibm.com/docs/en/zos/2.3.0?topic=information-iraqvs-mapping
https://www.ibm.com/docs/en/zos/2.4.0?topic=information-iraqvs-mapping

However, I still get expected results when run on a 2.4 system. I get to do
some fun things in NetView like create "command synonyms", so the Rexx is
expected to return the information based on how it's called:

CMD_NAME   DATE     TIME   OPER_ID   USAGE_CNT MOD_NAME MOD_SZ D TY R E P
SE ILS F (CMD_SYNS)...(PARMS(SYNS))
JDIWMQVS 11/18/21 20:56:30 NET97PPT          8 DSICCP   002240 N R  Y Y Y
DE   . N (CECTYPE CECMODEL CECMSUS LPARNAME LPARID LPARMSUS) ()

CECMSUS
305
LPARMSUS
111
CECMODEL
411
CECTYPE
8561
LPARID
3

To me, it appears your variable names and values are not lining up, like
your CECMODEL variable reflects your CECMSUS value, etc.
Hopefully that helps?

On Sat, Nov 20, 2021 at 9:58 AM Phil Smith III <[email protected]> wrote:

> Steve Horein provided some nice Rexx that talks to WLM about this, but I
> don't quite grok the output. When I run it and just display the various
> variables, I get:
>
> QVSVER = 2
>
> QVSFLAGS = 1
>
> IMGVALID = 00000000
>
> CECSTAT = 3906
>
> CECMODEL = 10012
>
> LPARNAME = 1
>
> LPARMSUS = E0
>
> CECVALID = 1
>
> VER2 = 1
>
> CECTYPE = 785
>
> CECMSUS = ZM01
>
> LPARID = 5183
>
> FLCFACL=FBEBFFFBFEFFFF7807FCE00000000000
>
>
>
> OTOH if I run:
>
> /* REXX -- Looks at memory and displays MSU counts */
>
>    rct = c2d(storage(d2x(c2d(storage(d2x(c2d(storage(10, 4))+604), ,
>
>      4))+228), 4))
>
>    say 'CEC MSUs='c2d(storage(d2x(rct+32), 4))';',
>
>      'LPAR MSUs='c2d(storage(d2x(rct+28), 4))';'
>
>
> I get:
>
> CEC MSUs=10012; LPAR MSUs=5183;
>
> which seems more reasonable and matches IPLINFO output.
>
>
>
> I assume I'm just not understanding the output of Steve's program?
>
>
> ----------------------------------------------------------------------
> 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

Reply via email to