Re: Free format read and write in subprocedure

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.