× 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, Marco:
* >>>---> private reply off-list <---<<<*

I have been following this thread, trying to understand what you are trying to do ...

I am replying "off-list" in case you may not want to provide some details I am asking for in my questions below, on a public forum like MIDRANGE-L ...

You say:

... All my programs have to call a generic program that returns some information based on the name of the source from which the program was compiled. ...

Could you please try to explain in some detail what this "generic program" does? Or describe what kind of "information" this program returns?

Why do you need the name of the source member? Why can't you just call that program with the name of the actual *PGM that is running? (That is also available in the PSDS, of course.)

The more you can describe what this "generic program" does, and why, the better I may be able to suggest some alternatives for you.

All the best,

Mark S. Waterbury

> On 1/17/2014 12:37 PM, Marco Benetti wrote:
I try to explain my goal.
All my programs have to call a generic program that returns some information based on the name of the source from which the program was compiled. So I need the source informations at runtime.
This call need to be as fastest as possibile, because it is in all my programs, so I would like to avoid using an API to retrieve the source info.
Thanks

Marco




Il Venerdì 17 Gennaio 2014 17:37, Alan Campin <alan0307d@xxxxxxxxx> ha scritto:
Could you explain what you are trying to doing? Are you trying to write a
make tool?

I have a command that loops through and extracts all the source information
for all the programs in a given library or libraries. Is that what you are
trying to do?



On Fri, Jan 17, 2014 at 9:29 AM, Marco Benetti <ulyssesmb@xxxxxxxx> wrote:

Thank you for your help.
You are right.
Source Library, File and Member in the PSDS for SQLRPGLE programs contain
the informations of the temporary interim source member.
Someone can think a way to retrieve informations about the source from
which I compiled?
I need this informations in ALL my programs.
Otherwise I could have my precompiler insert 3 constants while compiling
the program, if I have no other choice.
Thanks

Marco


On 17 gen 2014, you wrote in midrange.rpg400-l:

Do you ever use SQLRPG? I don't know if this will make a difference,
but in this case the actual object is created from a temporary interim
source member but I don't know whether or not this will be reflected
in the PSDS information.

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marco Benetti
Sent: Friday, January 17, 2014 9:50 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: PSDS source informations availability

Hi.

In a RPGLE program I need information about the source from which I
compiled. I need to know library, file source and member. I always
compile with CRTBNDRPG command. So I have an object *PGM for each
source member.

I found the needed information in the PSDS (Program Status Data
Structure):

D SRC_FILE 304 313 Source file D SRC_LIB
314 323 Source file lib D SRC_MBR
324 333 Source file mbr


My doubt is..
Are these three information ALWAYS available?
Even, for instance, in case of not observable program?

I made some test with CHGPGM RMVOBS(*ALL) and everything seems working
properly: those three fields are correctly valued. There are cases in
which these informations are not available?

Thanks in advance

Marco
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.