Re: File opens in RPG III

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.

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