Re: File opens in RPG III

John -

Compile the program with CRTRPGPGM PGM(YOURPGM) with either OPTION(*SRCDBG) or OPTION(*LSTDBG).

Verify that the attribute of the production libraries is PROD and the test libraries is TEST.

Then
1) STRDBG PGM(YOURPGM) UPDPROD(*NO) OPMSRC(*YES),
2) Set a breakpoint on the statement where it updates/writes the record to the file, and
3) Call the program and check the file overrrides for the job at the breakpoint.

-sjl

"John McKee" wrote in message news:mailman.8211.1379426431.9013.rpg400-l@xxxxxxxxxxxx...

Yes, it does. I am not sure I understand why this is messed up, but here
goes:

The program references to all the multitude of other programs use *LIBL.
Same thing for the multiple data areas.

All the files are referencing a specific library - the production library.
The program I started with which has a display file mostly references files
in the test environment.

Why would either program work correctly? The program requiring operator
intervention has no OVRDBFs, and neither does mine. I have not checked all
the files. But, I have checked a couple, and they exist in both
environments.

Or, does DSPPGMREF only show how program was compiled?

John McKee


On Mon, Sep 16, 2013 at 11:13 PM, Roger Harman <roger_harman@xxxxxxxxxxx>wrote:

Does DSPPGMREF shed any light?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of John McKee
Sent: Monday, September 16, 2013 8:27 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: File opens in RPG III

Thanks for reassurance. No UC. No OVRDBF. Maybe something will make
sense
tomorrow.

John McKee


On Mon, Sep 16, 2013 at 9:59 PM, Glenn Gundermann <ggundermann@xxxxxx
>wrote:

> Hi John,
>
> The library list is used provided there is no override and the F-spec
> doesn't specify a library.
>
> A file override doesn't necessarily have to take place in the calling
> CL program. The RPG could do the override using QCMDEXC (or similar)
> or it could call another program that does an override before it opens
the
file.
>
> Is there a command involved that calls the CL? DSPCMD <command-name>
> will show a Current Library and a Product Library.
>
> Could your file(s) in question have a trigger program?
>
> I can't think of anything else at the moment.
>
> Hope this helps.
>
> Glenn Gundermann
>
>
> Subject: File opens in RPG III
> From: "John McKee" <jmmckee@xxxxxxxxxxxxxx>
> Date: Mon, September 16, 2013 8:27 pm
> To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
> Priority: Normal
>
>
> > I have spent a lot of time trying to modify this vendor program. It
> > is used to set flags and submit an end-of-day job. We never modify
> > the parameters it presents on screens. So, purpose is to just have
> > this
> thing
> > get fired off by the job scheduler for an unattended end-of-day. It
> > does a lot of questionable stuff, and I am not convinced I have
> > found all the weirdness buried in this thing.
> >
> > A CL calls it. I have specifically added libraries to the library
list.
> > If it is a test run, I add test libraries in front of anything else.
> > I also change the current library for either production or test.
> >
> > Testing it today, using the test libraries, and I verified the
> > library list is correct, the RPG program updated a file in the
> > production environment, despite that same file existing higher in
> > the library list (lower number).
> >
> > I thought that the library list was used when RPG opens files. The
> > original CL has no OVRDBF commands to change anything. Yet, here I
> > have
> a
> > production file getting changed.
> >
> > I have to ask a really stupid question: Am I correct that the
> > library list is used to locate files when RPG opens them? There is
> > no ILE in this thing.
> >
> > Thanks for any assistance.
> >
> > John McKee
>
>
> --
> 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.


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