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

You and Help Systems. :-) Their partition number field is also 1 digit. At least they go to a after 9 but we have machines that run out of alphabet too.

At some point it probably seemed reasonable, but then my Very first project on S/34 in 1984 as a consultant was converting a file from 1 digit year (198x assumed) to 2 digit year. No, they were not interested in a four digit year.

- DrF

On 2/3/2021 11:29 PM, PaulMmn 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