Re: RNF7701 Error on a DS Write

On 2015-02-20 08:57, RPG List wrote:

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

A suggestion if you are on 7.1+ and you have these PTFs:
http://ibm.biz/rpg_full_alias_and_easier_ds_io

Since the files are actually the same file in different libraries, define the second file LIKEFILE the first one. Then you can define just one likerec data structure with no type and use it for all the I/O opcodes for both files.

FtpoDtl1 if a e Disk Qualified
F Extdesc('PODTL')
FpoDtl Likefile(tpoDtl1)

D ds ds Likerec(tpoDtl1)

Read tPoDtl1 ds;
...
Write poDtl.rPoDtl ds;

It would be a bit more complicated if one file was input and the other was output. In that case, you couldn't use LIKEFILE, so you'd have to use a *ALL externally-described data structure rather than LIKEREC.

FtpoDtl1 if a e Disk Qualified
F Extdesc('PODTL')
FpoDtl o e Disk Qualified
F Extdesc('PODTL')
D ds e ds Extname('PODTL':*ALL)

Read tPoDtl1 ds;
...
Write poDtl.rPoDtl ds;