Re: Software tier system value or other lookup method?

[Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>]

Works like a charm Jack, thanks.

Side note:  Due to restrictions on using SSH I am reduced to SEU rather than VSCode.  (Yuck)   But that brought up a question, where is the world is the insert mode key on a MAC.  I just want to insert text and push existing over.
--
Jim Oberholtzer
Agile Technology Architects




> On Apr 25, 2025, at 10:59 AM, Jack Woehr via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
>
> /* 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 <mailto: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><mailto:jack.woehr@xxxxxxxxxxx>
>
> [icon] www.procern.com <http://www.procern.com/><https://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 <mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx>> on behalf of Steve McKay <samckay1@xxxxxxxxx <mailto:samckay1@xxxxxxxxx>>
> Sent: Friday, April 25, 2025 09:53
> To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx <mailto: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 <mailto:jack.woehr@xxxxxxxxxxx>
>
> www.procern.com <http://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.
> -- 
> 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.