Re: Update on Closed File Error... I don't think so!

I think I need more caffeine... or more sleep. I found the bug. Thanks
David.

--
Mike Wills
Midrange Programmer/Analyst

Sick of corporate radio and hungry for something new?
http://thenextgenerationofradio.com
Stalking me? http://twitter.com/MikeWills | http://friendfeed.com/mikewills

On Tue, Jul 22, 2008 at 10:08 AM, David Gibbs wrote:

Mike wrote:

I am having a strange problem. I have a subprocedure that is giving me a
"I/O operation was applied to closed file ARINVHP." I am not seeing why I
would be getting that error. Does anyone see anything glaring that I am
missing? The statement in question is the first "update ARINVHR;".

Any possibility that any of the procedures you are calling closes, or calls
something that closes, the file in question?

I always like to only open a file if it's not already closed ... and set a
flag indicating that I did so ... so I can conditionally close the file when
I'm done.

Something like this ...

----------

if not %open(file);
open file;
fileOpen = *on;
endif;

// do stuff

if fileOpen;
close file;
endif;

----------
david



--
IBM i on Power - For when you can't afford to be out of business
--
This is the RPG programming on the AS400 / 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 AS400 / 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.