Re: I/O operation was applied to closed file...

Is this going to fix my problem?

CWilt@xxxxxxxxxxxx wrote:

> Justin,
> 
> Why close the file?
> 
> Try using the FEOD op-code to end the current printer file and start a new
> one.
> 
> It will be easier and perform better.
> 
> HTH,
> Charles
> 
> 
>>-----Original Message-----
>>From: Justin Houchin [mailto:justinh@xxxxxxxxxxxxx]
>>Sent: Monday, June 14, 2004 8:59 AM
>>To: rpg400-l@xxxxxxxxxxxx
>>Subject: I/O operation was applied to closed file...
>>
>>
>>Hi Everyone,
>>      I have a program that writes to two printer files.  The 
>>first file 
>>QSYSPRT gets opened, written, and closed.  The second printer file 
>>TICKET, gets opened, written, and closed after the QSYSPRT file.  The 
>>program this code runs in is a asynchronous job that reads a message 
>>queue, so the job never ends.  History: The program will 
>>receive a work 
>>order number from the message queue and print some paperwork using 
>>QSYSPRT and TICKET printer files. The problem: When I first start the 
>>job and send a work order number to the message queue, the 
>>program picks 
>>up the number and prints the paperwork perfectly, if I send 
>>another work 
>>order number to the message queue the program sends a message to the 
>>QSYSOPR message queue that the program tried to write to a 
>>closed file 
>>TICKET.  I have double checked the code and I feel the TICKET file is 
>>being closed after the first work order is printed.  I 
>>created a debug 
>>breakpoint at the start of the program.  The program breaks at the 
>>beginning of the program when the first work order is read.  But when 
>>the second work order is read, the program does not break and 
>>a message 
>>is sent to QSYSOPR.  I am stumped. Any help would highly be 
>>appreciated.
>>
>>Justin
>>--
>>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.
>