RE: Free format read and write in subprocedure

[Gary Thompson <gthompson@xxxxxxxxxxx>]

Alan, forgot to mention, no argument on the SQL recommend,
	just being stubborn here.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Thursday, March 15, 2012 4:41 PM
To: RPG programming on the IBM i / System i
Subject: 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.
--
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.