Re: File opens in RPG III -- RPG400-L

For testing, using STRDBG UPDPROD(*NO) is a good way to quickly verify that you're not updating production files, since any attempt to update a file in a PROD library will cause the program to bomb.

-sjl

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

I thought library list was used. Did enough coding over the years to trust
that. Then, yesterday, wrong file gets updated. I even did all testing
from a separate session so whatever happened to the library list would not
be effected by other commands used for program maintenance.

Thanks for the confirmation, Charles.

John McKee

On Tue, Sep 17, 2013 at 9:09 AM, Charles Wilt <charles.wilt@xxxxxxxxx>wrote:

DSPPGMREF only shows from where the compile time file definitions were
pulled.

RPG III will open the first file of the same name it finds in the library
list. Onless an OVRDBF is used prior to the opening of the file..

Charles

On Tue, Sep 17, 2013 at 10:00 AM, John McKee <jmmckee@xxxxxxxxxxxxxx>
wrote:

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