Musterprogramm Für Direkten Zugriff - NCR GW-BASIC Betriebsanleitung

OPEN "FILE" AS #1, LEN=32
2. Führen Sie einen FIELD-Befehl aus, um den Variablen, die aus der
Datei gelesen werden, im Puffer Speicherplatz zuzuweisen.
FTELD#1,20 AS N$,4 AS A$,8 AS P$
Sie können jetzt jeden Datensatz in den Dateipuffer eingeben und dann
mit Hilfe der FTELD-Variablen den Inhalt des Pufferspeichers auswer­
ten:
3. Verwenden Sie den GET Befehl, um den gewünschten Datensatz in
den Puffer mit direktem Zugriff zu befördern.
GET# 1 ,RECORD%
4. Nun hat das Programm Zugang zu den Daten im Puffer. Numerische
Werte müssen wieder in Zahlen mit Hilfe von „Umrechnungs"-
Funktionen verwandelt werden. CVT rechnet die Zahlenwerte in
ganz-zahlige Werte, CVS rechnet numerische Werte in Werte mit
einfacher Genauigkeit um und CVD verwandelt die numerischen
Werte in solche mit doppelter Genauigkeit.
PRINT N$
PRINT CVS(A$)
Das folgende Programm ermöglicht den Zugang zu den Daten, die in die
Plattendatei im Beispiel des Abschnittes „Erstellung einer Datei mit
direktem Zugriff" eingegeben wurden. Alles was Sie tun müssen, ist die
Datensatznummer, die am Bildschirm erscheinen soll, einzugeben.
Dabei brauchen Sie nicht die jeweiligen Dateieinträge nacheinander von
Anfang an lesen, wie z.B. bei einer Datei mit sequentiellem Zugriff.
10 OPEN"R",# l,"FILE",32
20 FIELD#1, 20 AS N$,4 AS A$,8 AS P$ 30 INPUT "2-ZIFFERN-
CODE" ;RECORD%
35 IF REC0RD%<1 THEN CLOSE:END
40 GET# 1 ,RECORD%
50 PRINT N$
60 PRINT USING "$ $ # # # .# # ";CVS(A$)
70 PRINT P$:PRINT 80 GOTO 30
80 GOTO 30
Musterprogramm für direkten Zugriff
Im folgenden finden Sie ein Bestandsprogramm für Dateien mit direk­
tem Zugriff. In diesem Programm wird die Datensatznummer als Teile-
GW-BASIC
DATEIEN UND GERÄTE
5-13