Re: Free format read and write in subprocedure

[Alan Campin <alan0307d@xxxxxxxxx>]

By qualified aren't you saying that you must specify the file name like
APAM01JC.APAM01JCR? The read works because you are specifying the file
name. The write doesn't work because you don't qualify the record format
with the file name or at least that is my theory.

As always my recommendation is stop using file I/O and use SQL.

On Thu, Mar 15, 2012 at 4:21 PM, Gary Thompson <gthompson@xxxxxxxxxxx>wrote:

> I am struggling to get a valid write in free fmt in an RPGLE subprocedure.
>
> The file is declared as externally described:
> FAPAM01JC  UF A E           K DISK    USROPN Qualified
>
> A read within the subprocedure works
> Read(N) APAM01JC jcds;
>
> However, the record format, in the write in the subprocedure,
> Write(E) APAM01JCR jcds;
> triggers *RNF7030.    (APAM01JCR is the record format for APAM01JC)
>
> So far, the only path seems to be to declare the file as program described,
> which maybe allows me to write to the file (need O specs ?),
> but I suspect I am missing something.
>
> --
> This is the RPG programming on the IBM i / System i (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.