DOW NOT %EOF

[BenderD]

wenn du die Prozeduren von der Gage abgezogen kriegst, dann sind deine Verträge verkehrt. Und was haben wir früher nicht alles gemacht:
'A' DOWEQ 'A' war auf der /36 ein Geheimtip. das war schneller als
DO *HIVAL

Dieter

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.