× 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.



There are PTFs that provide the system name in the PSDS area

https://www.ibm.com/support/pages/node/1396743

R720 SI69697 9297
R730 SI69573 9311

Bryan

On Jul 23, 2020, at 1:59 PM, Javier Sanchez <javiersanchezbarquero@xxxxxxxxx> wrote:

At least for the system name, I have used a CL module in which there's the
RTVNETA command. It requires a parameter, SYSNAME as CHAR(8).

PGM PARM(&SYSNAME)
DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(8)
RTVNETA SYSNAME(&SYSNAME)
ENDPGM

In my RPG I prototype it like:

DCL-PR GETSYSNAME;
parm_systemName CHAR(8);
END-PR;

DCL-S systemName CHAR(8);

GETSYSNAME(systemName);

But it seems pretty easier with SQL, and you avoid the static binding with
a module, especially if you'll need the other attributes.

JS



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


--
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 ...

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.