OCO always Ugly! :)
This is in a REXX exec that is supposed to get the current MSU's, I think, I
have not seen the REXX exec run correctly.
Here are the comments at the start:
/* REXX to Display CPU MSUs, SoftCap, WLM and Initiator Status */
/* Note: Output is subject to change. Some results may not */
/* be accurate, because values are obtained from */
/* undocumented IBM internal control blocks. */
/* */
/* Some code was copied from IPLINFO by Mark Zelden. */
/* */
cvt =C2D(STORAGE(10,4)) /* Point to CVT */
rmct =C2D(STORAGE(D2X(cvt+604),4)) /* Point to RMCT */
.
.
lcct =C2D(STORAGE(D2X(rmct+620),4)) /* Point to IraLCCT */
.
.
LcctSrvTab =C2D(STORAGE(D2X(lcct+372),4))
LcctSrvTabIx =C2D(STORAGE(D2X(lcct+378),2))
LcctSrvTabIxOff=(LcctSrvTabIx-1)*24
ServiceTableEnt=STORAGE(D2X(LcctSrvTab+LcctSrvTabIXOff),24)
^
|___ This last statement is what is currently failing with the following two
values:
LcctSrvTab=0
LcctSrvTabIXOff=-24
Al Nims
Systems Admin/Programmer 3
Information Technology
University of Florida
(352) 273-1298
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Elardus Engelbrecht
Sent: Wednesday, June 17, 2015 1:35 AM
To: [email protected]
Subject: Re: Current z/OS 1.13 Mapping for IRALCCT?
Nims,Alva John (Al) wrote:
>Running z/OS 1.13
>I have inherited a RACF routine that was pulling information from IRALCCT,
>this had been working until some recent service, we suspect Z13 support
>service moved things around in IRALCCT.
>My question is, does anyone have the latest offset mapping for IRALCCT? For
>the life of me I am unable to find it.
Jim Mulder said it is OCO, hmmm, is it good/bad/ugly? ;-)
Ok, let us see where IBM-MAIN can help you. What information do you need in
that IRALCCT? Perhaps there are other memory areas which could cover that info?
Alternatively, what RACF routine is running? Exit, subprogram? Anything else?
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
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
