<< Inhaltsverzeichnis Suchen >>

STARTS

Anweisung

Syntax:

STARTS(<SEKKEY>) <INDEXDATEI>
ON ERROR ...
ANWEISUNGEN ... END

Bedeutung:

Es wird derjenige Satz aus der angegebenen Indexdatei gesucht und gelesen, dessen Neben-Schlüssel gleich dem aktuellen Wert der Neben-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 READS, 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 READS-NEXT-Anweisung gelesen werden. Man beachte, daß dies hier nicht nötig ist.

 

 

Beispiel:

KUNDEN.NAME$=HILF_NAME$
STARTS(1) KUNDEN
                ON ERROR
                      ERRORMES="KUNDE NICHT VORHANDEN"
                      REPEAT
               END

siehe auch:

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