Re: Software tier system value or other lookup method?

/* CRTPGM PGM(LIB/NAME) MODULE(LIB/MODULENAME) BNDSRVPGM(*LIBL/QPMLPMGT) */
/* -or- */
/* QSYS/CRTBNDCL PGM(ABSPERFTST/LPARINFO) */
/* SRCSTMF('/home/jwoehr/lparinfo.clp') */
/* TEXT('Example of Using dlpar_get_info API') */
/* */
/* Help example from IBM: */
/* Example of Using dlpar_get_info API to Get the */
/* Numerical Partition ID of a Logical Partition (LPAR) */
/* jack.woehr@xxxxxxxxxxx 2020-03-27 */

PGM

DCL VAR(&Return) TYPE(*CHAR) LEN(4)
DCL VAR(&Receiver) TYPE(*CHAR) LEN(344)
DCL VAR(&Format) TYPE(*INT) LEN(4)
DCL VAR(&Length) TYPE(*INT) LEN(4)

DCL VAR(&BIN4NBR) TYPE(*CHAR) LEN(4)
DCL VAR(&PartnID) TYPE(*INT) LEN(4)
DCL VAR(&PartnName) TYPE(*CHAR) LEN(256)
DCL VAR(&MSG1) TYPE(*CHAR) LEN(2)
DCL VAR(&MSG2) TYPE(*CHAR) LEN(30)

DCL VAR(&CVCCSID1) TYPE(*INT) LEN(4) VALUE(1208)
DCL VAR(&CVST1) TYPE(*INT) LEN(4) VALUE(1)
DCL VAR(&CVS1) TYPE(*CHAR) LEN(256)
DCL VAR(&CVL1) TYPE(*INT) LEN(4) VALUE(256)
DCL VAR(&CVCCSID2) TYPE(*INT) LEN(4) VALUE(37)
DCL VAR(&CVST2) TYPE(*INT) LEN(4) VALUE(2)
DCL VAR(&CVGCCASN) TYPE(*INT) LEN(4) VALUE(0)
DCL VAR(&CVL2) TYPE(*INT) LEN(4) VALUE(256)
DCL VAR(&CVS2) TYPE(*CHAR) LEN(256)
DCL VAR(&CVL3) TYPE(*INT) LEN(4) VALUE(256)
DCL VAR(&CVL4) TYPE(*INT) LEN(4)
DCL VAR(&CVFB) TYPE(*CHAR) LEN(12)

CHGVAR VAR(&Format) VALUE(1)
CHGVAR VAR(&Length) VALUE(344)
CALLPRC PRC('dlpar_get_info') PARM((&Receiver) +
(&Format *BYVAL) (&Length *BYVAL)) +
RTNVAL(&Return)

CHGVAR VAR(&BIN4NBR) VALUE(%SST(&Receiver 41 4))
CHGVAR VAR(&PartnID) VALUE(%BIN(&BIN4NBR))
CHGVAR VAR(&MSG1) VALUE(&PartnID)

CHGVAR VAR(&CVS1) VALUE(%SST(&Receiver 89 256))

CALL PGM(QTQCVRT) PARM(&CVCCSID1 &CVST1 &CVS1 +
&CVL1 &CVCCSID2 &CVST2 &CVGCCASN &CVL2 +
&CVS2 &CVL3 &CVL4 &CVFB)
CHGVAR VAR(&PartnName) VALUE(&CVS2)

CHGVAR VAR(&MSG2) VALUE(&CVS2)
SNDPGMMSG MSG(&MSG1 *BCAT &MSG2)

ENDPGM


Jack Woehr
Independent Consulting Programmer

[icon] 303-847-8442<tel:303-847-8442>

[icon] jack.woehr@xxxxxxxxxxx<mailto:jack.woehr@xxxxxxxxxxx>

[icon] www.procern.com<https://www.procern.com>

[icon] Stay Connected!<https://www.linkedin.com/company/procern-technology-solutions/>

[photo]
Not Just MSP, We Also MSSP.<https://procern.com/cyber-security-managed-services/>

NON-DISCLOSURE NOTICE: This communication including any and all attachments is for the intended recipient(s) only and may contain confidential and privileged information. If you are not the intended recipient of this communication, any disclosure, copying further distribution or use of this communication is prohibited. If you received this communication in error, please contact the sender and delete/destroy all copies of this communication immediately.


[__tpx__]

________________________________
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of Steve McKay <samckay1@xxxxxxxxx>
Sent: Friday, April 25, 2025 09:53
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Software tier system value or other lookup method?

Bryan (et al) -

Is there an SQL Service that will return "partition number"?

We often have vendors that need the partition number and the only place
that I know to get it is from the HMC.

Thanks,

Steve McKay
(205) 585-8424
samckay1@xxxxxxxxx



Jack Woehr
Independent Consulting Programmer

303-847-8442

jack.woehr@xxxxxxxxxxx

www.procern.com

Stay Connected!

Not Just MSP, We Also MSSP.

 NON-DISCLOSURE NOTICE: This communication including any and all attachments is for the intended recipient(s) only and may contain confidential and privileged information. If you are not the intended recipient of this communication, any disclosure, copying further distribution or use of this communication is prohibited. If you received this communication in error, please contact the sender and delete/destroy all copies of this communication immediately.