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

...

... zurück