RE: RNF7701 Error on a DS Write

["RPG List" <rpglist@xxxxxxxxxxx>]

I forgot the line, its there:
Tods = Tds;

Sits in between the read and the write.




> I don't see where toDs is loaded with data
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of RPG
> List
> Sent: Friday, February 20, 2015 6:57 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RNF7701 Error on a DS Write
>
> I am baffled by this error, aside from not telling me much of anything I
> have not been able to figure out how to get around it.
>
> I have two files (one is a temp file in qtemp and the other a permanent
> table)
>
> FtpoDtl1   if a e             Disk    Qualified
>
> FpoDtl     if a e             Disk    Qualified
>
> DS's declared:
>
> D   tDs           ds                  LikeRec(tpoDtl1.rPoDtl:*Input)
> D  toDs           ds                  LikeRec(tpoDtl1.rPoDtl:*Output)
>
> Now I'm reading the qtemp file into the DS:
>      Read tPoDtl1 tDs;
>
> Write it out to the permanent file:
>    Write poDtl.rPoDtl toDs;
>
> That's all there is to this particular problem.
>
> Any help would be appreciated, even if its with the end of a Thompson
>
>
> --
> This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.