Re: PSDS source informations availability

Marco,
It *is* possible to get the information from SQLRPGLE programs, but that
requires that you specify the To source file on your CRTSQLRPGI command.
Using that parameter will place the expanded source in the source file and
library of your choice and then compiled from there.

Jeff Young
Sr. Programmer Analyst


On Fri, Jan 17, 2014 at 11: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.