×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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.
midrange.com
