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

[Peter Dow <petercdow@xxxxxxxxx>]

Hi Darryl,

The fastest method is, as Jack Prucha mentioned, the program status data 
structure.  However, you have to be on v7r4 or have a PTF to make it 
available on v7r3.  From the What's New section of the RPG ILE Reference 
manual for v7r4:

New PSDS subfields
The following new subfields are added to the Program Status Data Structure:
• Internal job ID, in positions 380 to 395.
• System name, in positions 396 - 403.
See “Program Status Data Structure” on page 161
This enhancement is also available in 7.3 with a PTF.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx
pdow@xxxxxxxxxxxxxx t/

On 1/24/2024 11:38 AM, 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
>
>