Funktion
Themenkomplex Tabellen-Funktionen
Funktion editon()
Kurz Satzsperre einrichten
Syntax EDITON(db : INTEGER) : INTEGER
Parameter db : Tabellenhandle
Ergebnis 1 : Sperre ist eingerichtet
0 : Sperre ist nicht eingerichtet
Siehe auch:
editoff()
Beschreibung

Versucht eine Satzsperre auf den aktuellen Datensatz der Tabelle einzurichten. Falls die Satzsperre eingerichtet werden konnte, muss anschließend die Funktion EditOff aufgerufen werden.

Die Funktion scheitert dann, wenn ein anderes prg den Satz schon gesperrt hat.


Beispiel 1: EditOn



PROCEDURE Mutation
	VAR BUCHUNG : INTEGER
	BUCHUNG:=OpenDB('buchung.dat')
	REPEAT
		IF EditOn(BUCHUNG)
			SetRField(BUCHUNG,'gebucht',JA)
			WriteRec(BUCHUNG,RecNo(BUCHUNG))
			EditOff(BUCHUNG)
			RETURN
		ELSE
			.. In Sperrungsschleifen immer warten, sonst eventuell Blockade!
			Pause(10)
		END
	UNTIL 0
ENDPROC