Run - NCR GW-BASIC Betriebsanleitung

NAME? SUPER MAN
ABTEILUNG? WARTUNG
BESCHÄFTIGT SEIT? 08/16/78
NAME? DONE
Lesen einer Datei mit sequentiellem Zugriff:
Folgendes Programm liest die Datei mit sequentiellem Zugriff, die im
vorausgegangenen Abschnitt erstellt wurde und die Namen aller
Beschäftigten von 1978 ausgibt.
10 OPEN'T # l, "DATA"
20 INPUT# 1 ,N$,D$,H$
30 IF RIGHT$(H$,2)= " 7 8"THEN PRINT N$
40 GOTO 20

RUN

EBENEEZER SCROOGE
SUPERMAN
Eintrag nach dem Ende in 20
Ok
Wenn das Programm versucht, über das Ende der Datei hinaus einzuge­
ben (INPUT$), tritt ein sog. Eingabefehler (Eingabe nach dem Ende der
Datei) ein. Um das Programm zu einem ordentlichen Abschluß zu brin­
gen, fügen Sie folgende Programmzeüe hinzu:
15 IF EOF(l) THEN PRINT "Dateisuche abgeschlossen":END
und ändern Sie Zeile 40 in
40 GOTO 15
Die Prüfung einer Datei auf ihr Ende sollte stets vor dem Lesen eines
Datensatzes erfolgen. Somit läßt sich leicht erkennen, ob sich überhaupt
Datensätze in der Datei befinden.
Fortsetzen einer Datei mit sequentiellem Zugriff:
Obgleich das Hinzufugen von Daten an eine Datei im wesentlichen eine
Ausgabeoperation ist, brauchen Sie „O" bzw. OUTPUT beim Eröffnen
einer Datei nicht angeben, andernfalls wird die vorhandene Datei zer­
stört. Stattdessen sollten Sie die Datei für APPEND (Anhängen) öffnen,
nachträglich in die Datei eingeschriebene Einträge werden dann an die
vorhandenen Einträge hinzugefügt.
GW-BASIC
DATEIEN UND GERÄTE
5-9