you can do
Exec sql
Values Current Server Into : Server
it retrieves the same value
RTVNETA does in CL
or you can do
SELECT LOCAL_HOST_NAME FROM QSYS2.TCPIP_INFO
________________________________
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of Mark Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>
Sent: Wednesday, January 24, 2024 3:02 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Is there a system value that will give me the system name?
Just call the API ...
https://www.ibm.com/docs/en/i/7.3?topic=ssw_ibm_i_73/apis/qwcrneta.html
On Wednesday, January 24, 2024 at 02:35:00 PM EST, 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.
midrange.com
