<< Inhaltsverzeichnis Suchen >>

READS-NEXT

Anweisung

Syntax:

READS-NEXT(<SEKKEY>) <INDEXDATEI>
ON ERROR ... Anweisungen ... END

Bedeutung:

Liest den nächsten Satz aus der angegebenen Indexdatei in der Reihenfolge des angegebenen Neben-Schlüssels. Diese Anweisung ist nur zulässig, falls zuvor eine gültige READS-, STARTS-, READS-PREVIOUS- oder READS-NEXT-Anweisung mit demselben Neben-Schlüssel ausgeführt wurde, andernfalls tritt der Fehler Nr. 1021 auf. In jeglichem Fehlerfall wird der Block ON ERROR ... END ausgeführt.

Beispiel:

READS-NEXT(1) KUNDEN
               ON ERROR IF OK = 1051
                                   THEN GOTO ENDE
                                   ELSE GOTO FEHLER
                                   ENDIF
               END
...
ENDE: ...
...
FEHLER: ...

siehe auch:

READ, READS, READ-NEXT, READ-PREVIOUS, READS-PREVIOUS,
START
, STARTS, WRITE, DELETE, ON <EREIGNIS> MACRO,
ENABLE/DISABLE READLOCK
, OK, OK2