Naja, Dieter, würde ich ja auch gerne machen.
Dies Bedeutet aber, dass ich das Lesen in ene Prozedur verlegen muss, ansonsten bietet RPG das leider nicht. Wie schön wäre ein Konstrukt á la C++/Java o.ä.:

dow %eof(reade (Key) myfile)=*OFF;
// mach was
enddo;

Also behelfe ich mir so. Ausserdem habe ich das schon in RPG klassisch gemacht:
key setll myfile
do *hival
key reade myfile 99
*99 ifeq *on
leave
endif

:
:
enddo

Zugegeben nicht schön, aber GOTO-Frei.