Re: Retrieving system name, serial, or OS version from RPG?

[Jack Woehr <jwoehr@xxxxxxxxxxxxxxxxxxxxxxxx>]

/* 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)                  */
/* jwoehr@xxxxxxxxxxxxxxxxxxxxxxxx 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

On Thu, Jul 23, 2020 at 12:03 PM <midrangel@xxxxxxxxxxxxxxxxx> wrote:

> V7R1 so most of the SQL functions won't be available.   (at least the last
> question was V7R1)
>
>
> --
> Jim Oberholtzer
> Agile Technology Architects
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Kevin
> Bucknum
> Sent: Thursday, July 23, 2020 1:00 PM
> To: rpg400-l@xxxxxxxxxxxxxxxxxx
> Subject: Re: Retrieving system name, serial, or OS version from RPG?
>
> Can you use sql?
> SELECT CURRENT_CHARACTER_VALUE FROM qsys2.system_value_info WHERE
> SYSTEM_VALUE_NAME = 'QSRLNBR'
>
>
> On Thu, 2020-07-23 at 10:52 -0700, James H. H. Lampert wrote:
>
> This may be something I used to know, but have forgotten.
>
>
> I've retrieved information to identify a box via MI, and/or via system
>
> API calls, but is there an *easy* way to retrieve at least one of the
>
> three above-mentioned pieces of information (any one of them will tell
>
> me what I need to know) from ILE RPG?
>
>
> --
>
> JHHL
>
>
>
> [https://www.medtronsoftware.com/img/MedtronMinilogo.bmp]  Kevin  Bucknum
>                    Senior Programmer Analyst
>                    MEDDATA / MEDTRON
>                    120 Innwood Drive
>                    Covington LA 70433
>                    Local: 985-893-2550
>                    Toll Free: 877-893-2550
>                  https://www.medtronsoftware.com
>
>
>
> CONFIDENTIALITY NOTICE
>
> This document and any accompanying this email transmission contain
> confidential information, belonging to the sender that is legally
> privileged.  This information is intended only for the use of the
> individual
> or entity named above.  The authorized recipient of this information is
> prohibited from disclosing this information to any other party and is
> required to destroy the information after its stated need has been
> fulfilled.  If you are not the intended recipient, or the employee of agent
> responsible to deliver it to the intended recipient, you are hereby
> notified
> that any disclosure, copying, distribution or action taken in reliance on
> the contents of these documents is STRICTLY PROHIBITED.  If you have
> received this email in error, please notify the sender immediately to
> arrange for return or destruction of these documents.
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list To post a
> message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
> change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> https://archive.midrange.com/rpg400-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
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-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