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

SQL Try these.

select 'OS name = ' concat os_name
as Result_Text
FROM SYSIBMADM/ENV_SYS_INFO

select 'System Name = ' concat posnam
as Result_Text
FROM qtemp/hdwrsctmp1

select 'System Type = ' concat postyp
as Result_Text
FROM qtemp/hdwrsctmp1

select 'System Model# = ' concat posmod
as Result_Text
FROM qtemp/hdwrsctmp1

select 'System Serial# = ' concat posser
as Result_Text
FROM qtemp/hdwrsctmp1

select ' Processor feature = ' concat
cast(CURRENT_CHARACTER_VALUE as char(20))
as Result_Text
FROM qsys2.SYSTEM_VALUE_INFO
Where SYSTEM_VALUE_NAME = 'QPRCFEAT'

select 'Host (system) name = ' concat host_name
as Result_Text
FROM SYSIBMADM/ENV_SYS_INFO

On Thu, Jul 23, 2020 at 12:53 PM James H. H. Lampert <
jamesl@xxxxxxxxxxxxxxxxx> 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
--
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