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

Vern,

He said #1 in reply to Mark Lazarus' post:

1) Could procedure GetNextWorkflowStep(ihWfId:ihStepId) be closing the file?



Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of vhamberg@xxxxxxxxxxx
Sent: Tuesday, July 22, 2008 2:04 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Update on Closed File Error... I don't think so!

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.

--
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 e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.