D STRUCT DS DIM(50) qualified
D ERKZ 2a DIM(50)

aber wie fülle ich dieses Felder? Mache ein READE auf eine Datei und er soll mir dann zwei Felder in diese Struktur schreiben.
Und weiter und weiter.... bis For- Schleife zu ende ist.

IF *IN98=*OFF
MOVE Feld1 VERS(ZAHL)
MOVE Feld2 ERKU(ZAHL)

EVAL Zahl = Zahl +1
ENDIF