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