rexx to retreive lpar name?

Duane

unread,

Oct 22, 1999, 3:00:00 AM10/22/99

to

I know i asked this long ago, but have never used it and forgotten how.

Now I have a new need to obtain the LPAR name via a rexx exec. SUrely it
is available in a control block or something.

I would also like to be able to obtain info like SMFID and SYSID.

Duane

Daniel Boulanger

unread,

Oct 22, 1999, 3:00:00 AM10/22/99

to

For your information,

Look at the URL "http://www.xephon.com/archives/m087a04.txt" and you may find
what you need.
Some tailoring might be necessary, but that was a good source for me to start
with.

Regards,

Wheaton, Matt

unread,

Oct 22, 1999, 3:00:00 AM10/22/99

to

I think this will supply most of the data you asked for and more.
SAY " JOBNAME =" MVSVAR('SYMDEF','JOBNAME')
SAY " JESNAME =" MVSVAR('SYMDEF','JESNAME')
SAY " USER ID =" UserID()
SAY " PROC =" SysVar('SYSPROC')
SAY " MVS =" MVSVAR('SYSMVS')
SAY " SYSNAME =" MVSVAR('SYSNAME')
SAY " OPSYS =" MVSVAR('SYSOPSYS')
SAY " SYSPLEX =" MVSVAR('SYSPLEX')
SAY " SYSCLONE =" MVSVAR('SYSCLONE')
SAY "DFP LEVEL =" MVSVAR('SYSDFP')
SAY " SMF ID =" MVSVAR('SYSSMFID')
SAY " SMS IS =" MVSVAR('SYSSMS' )

CVT = STORAGE(10,4)
PCCAVT = C2D(STORAGE(D2X(C2D(CVT)+764),4))
DO CPU = 0 TO 15
PCCAPOINTER = C2D(STORAGE(D2X(PCCAVT+(CPU*4)),4))
IF PCCAPOINTER = 0 Then LEAVE
SERIAL = STORAGE(D2X(PCCAPOINTER+4) ,8)
CPUID = STORAGE(D2X(PCCAPOINTER+12),4)
SAY "CPU "Right(CPU,2,'0')" ID = "CPUID 'SERIAL =' SERIAL
END

> ----------
> From: Duane[SMTP:DD...@OSU.EDU]
> Sent: Friday, October 22, 1999 2:56 PM
> To: TSO-...@VM.MARIST.EDU
> Subject: rexx to retreive lpar name?

Mark Zelden

unread,

Oct 24, 1999, 3:00:00 AM10/24/99

to

"Wheaton, Matt" wrote:

If you are looking for the actual hardware LPARNAME, AFAIK it is not
available in a SYSVAR or MVSVAR. IPLINFO available on my MVS web page
(URL below) has code to extract the name from ECVTLPNM.

CVT--> ECVT --> ECVTLPNM

/* REXX */
CVT = C2d(Storage(10,4)) /* point to CVT */
CSD = C2d(Storage(D2x(CVT + 660),4)) /* point to CSD */
ECVT = C2d(Storage(D2x(CVT + 140),4)) /* point to CVTECVT */
ECVTHDNM = Storage(D2x(ECVT+336),8) /* point to hardware nam*/
ECVTLPNM = Storage(D2x(ECVT+344),8) /* point to LPAR name */
If ECVTHDNM <> ' ' & ECVTLPNM <> ' ' then do
CSDPLPN = C2d(Storage(D2x(CSD + 252),1)) /* point to LPAR # */
Say 'The Processor name is' Strip(ECVTHDNM)'.' ,
'The LPAR name is' Strip(ECVTLPNM)' (LPAR #'CSDPLPN').'
End

Check out my MVS utilities page at:
http://www.flash.net/~mzelden/mvsutil.html

Gilbert Saint-flour

unread,

Oct 24, 1999, 3:00:00 AM10/24/99

to

On 22 Oct 1999 at 15:56, Duane <DD...@OSU.EDU> said:

>Now I have a new need to obtain the LPAR name via a rexx exec. Surely

>it is available in a control block or something.

This code snippet displays the hardware, LPAR and NM names from the ECVT;
this info has been available since MVS/ESA 5.2.

ECVT=C2D(STORAGE(D2X(C2D(STORAGE(010,4))+140),4))
SAY 'CBID='STORAGE(D2X(ECVT+0),4)
SAY 'HDNM='STORAGE(D2X(ECVT+336),8)
SAY 'LPNM='STORAGE(D2X(ECVT+344),8)
SAY 'VMNM='STORAGE(D2X(ECVT+352),8)

Gilbert Saint-flour

Duane

unread,

Oct 24, 1999, 3:00:00 AM10/24/99

to

This worked for me and was exactly what we have an immediate need for.

duane

Wheaton, Matt

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

The best code is never written, it is "borrowed." I got the code you
reference from the late Rex Widmer who got it from who knows where.

In light of the borrowing policy, I have put together a single EXEC
containing most of what was contained in all the samples placed here.

<<sysdata.txt>>

> ----------
> From: Stephen E. Bacher[SMTP:s...@DRAPER.COM]
> Sent: Tuesday, October 26, 1999 8:31 AM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: rexx to retreive lpar name?
>
> ---

>
> CVT = STORAGE(10,4)
> PCCAVT = C2D(STORAGE(D2X(C2D(CVT)+764),4))
> DO CPU = 0 TO 15
> PCCAPOINTER = C2D(STORAGE(D2X(PCCAVT+(CPU*4)),4))
> IF PCCAPOINTER = 0 Then LEAVE
> SERIAL = STORAGE(D2X(PCCAPOINTER+4) ,8)
> CPUID = STORAGE(D2X(PCCAPOINTER+12),4)
> SAY "CPU "Right(CPU,2,'0')" ID = "CPUID 'SERIAL =' SERIAL
> END
>
> ---
>

> Gee, that code looks familiar... :-)
>
> - seb
>

sysdata.txt

Stephen E. Bacher

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

Stephen E. Bacher

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

>The best code is never written, it is "borrowed." I got the code you
>reference from the late Rex Widmer who got it from who knows where.

I may very well have gotten it from the same place. I know that I
wrote a CPUID REXX some time ago, but probably upgraded it with
new info I got from this list.

- seb

Gilbert Saint-flour

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

On 26 Oct 1999 at 08:46, "Wheaton, Matt" <MWH...@TWA.COM> said:

>The best code is never written, it is "borrowed."

Be the first one to borrow this then:

HID=C2D(STORAGE(D2X(C2D(STORAGE(010,4))+X2D(42C)),4))
SAY 'TYPE='STORAGE(D2X(HID+26),6),
'MODEL='STORAGE(D2X(HID+32),3),
'MANUFACTURER='STORAGE(D2X(HID+35),3),
'PLANT='STORAGE(D2X(HID+38),2),
'SEQNO='STORAGE(D2X(HID+40),12)

Isn't this a lot nicer than what you get from the PCCA ?

Gilbert Saint-flour

Kalinich, John

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

This does not display any values on our system. We have an Amdahl 5890. Does
that make a difference?

> -----Original Message-----
> From: Gilbert Saint-flour [mailto:g...@IBM.NET]
> Sent: Tuesday, October 26, 1999 9:49 AM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: rexx to retreive lpar name?
>
>

Andy Styles

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

I would imagine so - hence dangers involved in using control blocks for
specific processors...

Andy Styles

-----Original Message-----
From: Kalinich, John [mailto:kali...@ST-LOUIS-EXCH01.ARMY.MIL]
Sent: 26 October 1999 16:04
To: TSO-...@VM.MARIST.EDU
Subject: Re: rexx to retreive lpar name?

This does not display any values on our system. We have an Amdahl 5890.
Does
that make a difference?

> -----Original Message-----
> From: Gilbert Saint-flour [mailto:g...@IBM.NET]
> Sent: Tuesday, October 26, 1999 9:49 AM
> To: TSO-...@VM.MARIST.EDU
> Subject: Re: rexx to retreive lpar name?
>
>
> On 26 Oct 1999 at 08:46, "Wheaton, Matt" <MWH...@TWA.COM> said:
>
> >The best code is never written, it is "borrowed."
>
> Be the first one to borrow this then:
>
> HID=C2D(STORAGE(D2X(C2D(STORAGE(010,4))+X2D(42C)),4))
> SAY 'TYPE='STORAGE(D2X(HID+26),6),
> 'MODEL='STORAGE(D2X(HID+32),3),
> 'MANUFACTURER='STORAGE(D2X(HID+35),3),
> 'PLANT='STORAGE(D2X(HID+38),2),
> 'SEQNO='STORAGE(D2X(HID+40),12)
>
> Isn't this a lot nicer than what you get from the PCCA ?
>
> Gilbert Saint-flour
>

---------------------------------------------------------------------------
The contents of this e-mail may be privileged and are confidential. It may not be disclosed to or used by anyone other than the addressee(s), nor copied in any way. If received in error, please advise the sender, then delete it from your system.
National Westminster Bank Plc is regulated by the Personal Investment Authority and IMRO for investment business. A member of the NatWest and Gartmore Marketing Group advising on the life assurance, pensions and unit trust products only of that Marketing Group.
Registered Office: 41 Lothbury London EC2P 2BP
Registered Number: 929027 England
---------------------------------------------------------------------------

Gilbert Saint-flour

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

On 26 Oct 1999 at 10:03, "Kalinich, John"
<kali...@ST-LOUIS-EXCH01.ARMY.MIL> said:

>This does not display any values on our system. We have an Amdahl 5890.
>Does that make a difference?

I don't know about the 5890 but, AFAIK, most recent systems (including
Amdahl and Hitachi) provide the information required to fill the HID
extension. Our P/390 doesn't provide it, but I wrote a program to fake it
because some of our programs need it.

BTW, ShowMVS has displayed this info since rel 616 which came out in 1996.

Gilbert Saint-flour <g...@ibm.net>

Steven T. Francis

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

Just uploaded the code and it worked fine on my Amdahl GS755.

Rgds,

Steven T. Francis
Sr. Manager Technical Services
Bass Hotels and Resorts
770-442-7157
email: Steve....@basshotels.com

-----Original Message-----
From: Wheaton, Matt [mailto:MWH...@TWA.COM]
Sent: Tuesday, October 26, 1999 9:46 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: rexx to retreive lpar name?

The best code is never written, it is "borrowed." I got the code you
reference from the late Rex Widmer who got it from who knows where.

In light of the borrowing policy, I have put together a single EXEC

containing most of what was contained in all the samples placed here.

<<sysdata.txt>>

> ----------
> From: Stephen E. Bacher[SMTP:s...@DRAPER.COM]

> Sent: Tuesday, October 26, 1999 8:31 AM

> To: TSO-...@VM.MARIST.EDU
> Subject: Re: rexx to retreive lpar name?
>

Mark Zelden

unread,

Oct 26, 1999, 3:00:00 AM10/26/99

to

I have similar code in IPLINFO. It works on the Amdahl here, but it
is a "new" machine (Millennium 2108A). I think it works on a 5995 also.

Central Processing Complex (CPC) Node Descriptor:
CPC ND = 002000.089.AMH.00.000000000868
CPC ID = 00
Type(002000) Model(089) Manufacturer(AMH) Plant(00) Seq Num(000000000868)