Error 3450: Descriptor is not valid on write to IFS

I am writing a program to output information to the IFS. The first step is to copy static data from an existing IFS file into the new one. After that add the dynamic data. So far I just have the piece to copy the static data.

The code was cloned from an existing production program and is used anywhere we want to access the IFS from RPG. The code looks the same in both programs. I'm missing something though. I have searched the archives and InfoCenter but haven't seen anything yet that doesn't look right. In one of the archive posts Scott Klement asked about the file description changing before the write. The descriptor does change between the first open and the second open of the output file but not between that point and the write. The files involved only exist for the process I am building so someone else modifying them is not a concern at this point.

The program code can be seen here http://code.midrange.com/11f767043f.html. Any help would be greatly appreciated.

Rick Chevalier




Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.