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

I do not believe the RCLRSC or RCLACTGRP is running between commands.
Also this is an RPGIII program.

CWilt@xxxxxxxxxxxx wrote:

> Justin,
> 
> Hm, have you looked for a RCLRSC or RCLACTGRP command being run between the
> calls to the program?  Either would cause this problem.
> 
> Charles
> 
> 
> 
>>-----Original Message-----
>>From: Justin Houchin [mailto:justinh@xxxxxxxxxxxxx]
>>Sent: Wednesday, June 16, 2004 11:57 AM
>>To: RPG programming on the AS400 / iSeries
>>Subject: Re: I/O operation was applied to closed file...
>>
>>
>>I tried using the FEOD command, my printer file now will not ouput any
>>spool files.  I am still puzzled that the program will 
>>execute one time
>>correctly, but when you feed it another work order number, it never
>>makes it past the *ENTRY  PLIST command before sending the message to
>>QSYSOPR, it has even hit the code to OPEN or even write to the printer
>>file.  The program does just use the RETRN command and does not seton
>>the LR indicator.  And there is no *INZSR subroutine.  Any ideas?
>>
>>Thanks,
>>Justin
>>
>>CWilt@xxxxxxxxxxxx wrote:
>>
>>
>>>It might.  Assuming the problem has something to do with an error in
>>>where/how the file is being opened and/or closed.
>>>
>>>If you use FEOD you can/must get rid of the open and closes 
>>
>>along with the
>>
>>>USROPN if you are using it.
>>>
>>>Charles
>>>
>>>
>>>
>>>
>>>>-----Original Message-----
>>>>From: Justin Houchin [mailto:justinh@xxxxxxxxxxxxx]
>>>>Sent: Monday, June 14, 2004 10:29 AM
>>>>To: RPG programming on the AS400 / iSeries
>>>>Subject: 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.
>>>>>
>>>>
>>>>--
>>>>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 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.
>