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