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

[K Crawford <kscx3ksc@xxxxxxxxx>]

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