Sequentielles Einlesen

01 Tab
	05 Element OCCURS 100.
		10 F1 PIC 9(6).
		10 F2 PIC x(30).
77 i , n PIC 999.
77 EOF, FKZ PIC 9.

Öffnen Eingabe: Datei
# Datei lesen
n:=0 ; FKZ:=0
bis EOF=1
	Ja          R<100           nein
	n=n+1	EOF:=1 FKZ:=1
	Satz->Element(n)
	# Datei lesen

#  = Unterprogrammaufruf

...