Zitat:
Original erstellt von B.Hauser:
Hallo,

Ich gehe davon aus, dass du eine logische Datei, die nach Artikel-Name sortiert ist, hast.

In diesem Fall setzt Du mit dem eingegebenen Feld auf und liest alle folgenden Sätze.


Ich danke vielmals

Speedy
C Feld6 SetLL FileFmt
C DoU %EOF(FileName)
C Read FileFmt
C if %EOF
C leave
C endif
C Verarbeitung
C Enddo

Solltest Du noch mit RPGIII (RPG/400) arbeiten funktioniert das Ganze genau so.

Alternativ könnte man das Problem mit Embedded SQL lösen.

Birgitta[/quote]