× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



/* 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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.