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
...