Guter Ansatz von Robi, aber den Read kannste knicken...

Ich würd's so machen:
setll (*loval) myFile;
if %equal();
write otherFileRec;
else;
.... return oder was immer du willst
endif;