× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Mike

It's helpful if you tell us how you solved it - unless it is too embarrassing!!

Vern

-------------- Original message --------------
From: Mike <koldark@xxxxxxxxx>

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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.