Re: File opens in RPG III

["TheBorg" <sjl_abc@xxxxxxxxxxx>]

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.