<< Inhaltsverzeichnis Suchen >>

START

Anweisung

Syntax:

START <INDEXDATEI>
ON ERROR ... ANWEISUNGEN ... END

Bedeutung:

Es wird derjenige Satz aus der angegebenen Indexdatei gesucht und gelesen, dessen Haupt-Schlüssel gleich dem aktuellen Wert der Haupt-Schlüssel-Felder oder größer als dieser ist. Im Fehlerfall wird der Block ON ERROR ... END ausgeführt.

Achtung: Im Gegensatz zu COBOL wird hier, wie bei der Anweisung READ, ein vollständiger Datensatz gelesen, falls kein Fehler auftritt. In COBOL setzt die START-Anweisung nur den Datei-Pointer, der Datensatz muß dort mit einer anschließenden READ-NEXT-Anweisung gelesen werden. Man beachte, daß dies hier nicht nötig ist.

 

 

Beispiel:

KUNDEN.KUNR=HILF_KUNR
START KUNDEN
   ON ERROR ERRORMES="Keine Kunden gefunden"
                        REPEAT
   END

siehe auch:

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