Re: Quick easy way to determine what LPAR you're on?

It's been a while but, the Partition ID only supported two digits IIRC. Once we hit Partition ID's above 15, it kept failing so we reexamined what was available and found the dlpar API, which was actually documented.
I think maybe we also ran into a site that had the highest security level and it didn't like us using it.

Best Regards,

Thomas Garvey

On 2/4/2021 8:36 AM, Brad Stone wrote:

Hi, Thomas.

How did you outgrow _MATMATR1? I am still using it and the logical
partition ID is defined as 10, so I don't see how that would be an issue.

I've got many customers that have double "digit" lpar IDs and it works fine.

On Wed, Feb 3, 2021 at 11:58 PM Thomas Garvey <tgarvey@xxxxxxxxxx> wrote:

Using dlpar_get_info is the only legit way to go. You can't rely on a
single digit to represent an LPAR ID, as it could now be up to 256 (I
think).
We have clients whose servers are served by a service bureau and their
LPAR ID's are up in the 30's and 40's.
We used to use the machine instruction _MATMATR1 before the dlpar API
became available and that was outgrown by the system too.

If you only need to display it from a command line, use the call to
QLZARCAPI, and press F1 on the message displayed, and then F10 to
display the joblog results.

Best Regards,

Thomas Garvey


On 2/3/2021 10:55 PM, Mark Waterbury wrote:

Hi, Paul,

Very nice detailed reply. :-)

The answer to your question about "where that procedure comes from" is

found on this page:
https://www.ibm.com/support/pages/example-using-dlpargetinfo-api-get-numerical-partition-id-logical-partition-lpar

This CL program must be "CLLE" (ILE CL), created with CRTCLMOD, and then

bound with BNDSRVPGM(*LIBL/QPMLPMGT) specified on the CRTBNDPGM command.
So, the procedure "dlpar_get_info" is contained in the *SRVPGM named
QPMLPMGT in QSYS.

You can verify this by issuing:

DSPSRVPGM QPMLPMGT

and then pressing Enter four times, until you get to "Display 5 of 10"

where you can see the names of the procedures exported by this *SRVPGM.

For more details of other information you can retrieve using

"dlpar_get_info" see:

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_71/apis/dlpar_get_info.htm

I hope that helps to clarify somewhat?

All the best,

Mark S. Waterbury


> On Wednesday, February 3, 2021, 11:31:47 PM EST, PaulMmn <

paulmmn@xxxxxxxxxxxxx> wrote:

Mark,

We've been using this little program every since we moved our
computer to LPARs at least 6 years ago-- and added a program that
uses that technique around then.

Many of our programs check to see if they're on our production or
test system. We used to retrieve the system serial number. This
fails on an LPAR-- all of the systems have the same serial number!

We modified this program to return the system serial number (7 chars)
concatenated with a single digit for LPAR ID#. Since our systems
compare the retrieved 'serial number' with a data area, changing
things for new hardware is a snap!

of course, if we ever get more than 9 iSeries LPARS, all bets are off...

One question I have-- where does this 'dlpar_get_info' come from? Is
that a system-level procedure?

--Paul E Musselman


At 7:43 PM +0000 2/3/21, Mark Waterbury wrote:

James,

If you just want to know the LPAR #, you can use this little CL program:

PGM
DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(256)
DCL VAR(&FORMAT) TYPE(*CHAR) LEN(4) VALUE(X'00000001')
DCL VAR(&SIZE) TYPE(*CHAR) LEN(4) VALUE(X'00000100')
DCL VAR(&LPARNBR) TYPE(*CHAR) LEN(10)
CALLPRC PRC('dlpar_get_info') PARM((&RECEIVER) +
(&FORMAT *BYVAL) (&SIZE *BYVAL))
CHGVAR VAR(&LPARNBR) VALUE(%BIN(&RECEIVER 41 4))
SNDPGMMSG MSG(&LPARNBR) TOPGMQ(*EXT)
ENDPGM


Hope that helps,

Mark S. Waterbury

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com