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

Actually you don't need to use a flag. Try this.
if not %open(file);
open file;
endif;

// do stuff

if %open(file);
close file;
endif;


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/22/2008 11:08:39 AM:

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.