RE: I: PSDS source informations availability [PRIVATE REPLY]

Interesting way to do a private reply off list - just say it in the message.
Huh??

HTH,
TIA,
Thanks,
Whichever applies

Dave B

Sometimes I get the feeling the whole world is against me, but deep down I know that's not true. Some of the smaller countries are neutral. -- Robert Orben (comedy writer)
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark S Waterbury
Sent: Friday, January 17, 2014 12:04 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: I: PSDS source informations availability [PRIVATE REPLY]
Importance: High

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.

--
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.