NAM E: SUPER M A N N
D E PA R TM E N T? M A IN T E N A N C E
D ATE HIRED? 08/16/78
NAM E? etc.
Zugriff zu einer sequentiellen Datei —
Programm 2 greift auf die Datei " D A T A " zu, die in Programm 1
erstellt wurde, und zeigt die Namen sämtlicher im Jahre 1980
neu eingestellten Mitarbeiter an.
Programm 2 ----- Zugriff zu einer sequentiellen Datei
10 OPEN " I "
20 IN PU T# 1, NS, DS, HS
30 IF R IG H T £ (H £ ,2 )= " 78" TH E N P R IN T N$
40 GOTO 20
R UN
EBENEEZER SCROOGE
SUPER M AN N
Input past end in 20
O K
Programm 2 liest sequentiell jedes Element in der Datei. Nach
dem sämtliche Daten gelesen wurden, führt Zeile 20 zu einer
Fehlermeldung " Input past end" . Um diese Fehlermeldung zu
vermeiden, muß Zeile 15 eingefügt werden, die die EOF-Funktion
benutzt, um eine Überprüfung auf das Dateiende vorzunehmen.
15 IF E O F (l) TH E N END
Dann wird Zeile 40 in GOTO 15 geändert.
Hinzufügen von Daten zu einer sequentiellen Datei
Steht eine sequentielle Datei auf Diskette und sollen weitere Da
ten an das Ende der Datei angefügt werden, so kann die Datei
nicht einfach im " 0" -Modus eröffnet und mit dem Schreiben von
Daten begonnen werden. Sobald eine sequentielle Datei im " 0 " -
Modus eröffnet wird, wird ihr aktueller Inhalt zerstört. Stattdes
sen wird die OPEN-Anweisung mit dem APPEND-Modus benutzt,
wie in Kapitel 2 " Unterschiede der MS-BASIC-Sprache bei MS-
DOS" beschrieben.
4-6
, # , 1," D A T A "