×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
