Re: PSDS source informations availability

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Everything done with CRTBNDRPG is created from a temporary module in QTEMP.

The values in the PSDS would have to be for the MODULE from which the 
program was created, not the program itself, which has no source, and 
that would not necessarily be for the entire program. Now it probably 
DOES work for you, since you are using a single module.

I think they will always be there - except for the case Trevor brought 
up. Now, of course, you can't create SQLRPGLE programs using CRTBNDRPG, 
so that won't be your situation - YET!!

HTH
Vern

On 1/17/2014 9:32 AM, Briggs, Trevor (TBriggs2) wrote:
> 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