In diesem Beispiel wird die Verwendung der Anweisungen Lock und Unlock demonstriert. Solange ein Datensatz bearbeitet wird, können andere Prozesse nicht auf diesen Datensatz zugreifen. In diesem Beispiel wird angenommen, daß DATEI1 eine Datei ist, die fünf Datensätze des benutzerdefinierten Typs Datensatz enthält.
Type Datensatz ' Datentyp definieren.
Kennung As Integer
Name As String * 20
End Type
Dim DSatz1 As Datensatz DSatzNummer ' Variable deklarieren.
' Beispieldatei mit wahlfreiem Zugriff öffnen.
Open "DATEI1" For Random Shared As #1 Len = Len(DSatz1)
DSatzNummer = 4 ' Datensatznummer festlegen.
Lock #1, DSatzNummer ' Datensatz sperren.
Get #1, DSatzNummer, DSatz1 ' Datensatz lesen.
DSatz1.Kennung = 234 ' Datensatz ändern.
DSatz1.Name = "Johann Schmidt"
Put #1, DSatzNummer, DSatz1 ' Geänderten Datensatz schreiben.
Unlock #1, DSatzNummer ' Aktuellen Datensatz freigeben.
Close #1 ' Datei schließen.