Re: Is there a system value that will give me the system name?

[Niels Liisberg <nli@xxxxxxxxxxxxxxxxx>]

The RTVNETA is one way to go. If you need a SQL ( or C / MI ) alternative
you can use this little feature from my gist:

https://gist.github.com/NielsLiisberg/badbbdac2f58c3da4c73c38f99b74a91


On Sat, Jan 27, 2024 at 6:25 PM Code 1109 via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

>  Read this, has several ways of getting the system name: Getting the
> System Name using SQL (you might want to create it as an SQL function for
> future use in your workshop) and also FYI in the comments section of that
> link has another way to get it.
>
> |
> |
> |
> |  |  |
>
>  |
>
>  |
> |
> |  |
> Getting the System Name using SQL
>
> Simon Hutchinson, RPGPGM.COM
>
> Retrieving the system name, like the RTVNETA command, using SQL
>  |
>
>  |
>
>  |
>
>
>
>
>     On Wednesday, January 24, 2024 at 01:35:04 PM CST,
> dfreinkel@xxxxxxxxxxxxxxxxx <dfreinkel@xxxxxxxxxxxxxxxxx> wrote:
>
>  I need to retrieve the system name in a RPGLE program. I do not want to
> use
> a CL program to do a RTVNETA.
>
>
>
> I do not see an option using the program status data structure.
>
>
>
> Is it available somewhere within the RPG code or is there an SQL statement
> I
> can use to get it.
>
>
>
> TIA
>
>
>
> Darryl Freinkel
>
> A4G
>
> Telephone: 770.321.8562
>
>
>
> --
> 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.
>
>
> --
> 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.