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

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