Record-Lock mit SQL

[camouflage]

Hier ein kleines Beispiel

C/EXEC SQL 
C+ Declare Cursor .... 
C+ For Update Of Field1, Field2, .... FieldN 
C/END-EXEC
 
C/EXEC SQL Open Cursor 
C/END-EXEC
 
C* The record gets locked with the FETCH statement 
C/EXEC SQL Fetch next From Cursor 
C/END-EXEC
 
C* Do some processing 
C* .....
 
C/EXEC SQL Update .... 
C+ Set Field1 = :X, Field2 = :Y, .... FieldN = :N 
C+ Where Current of Cursor 
C/END-EXEC
 
C/EXEC SQL Close Cursor 
C/END-EXEC 

Chain/Update ist halt schon ein bisschen einfacher, wer's mag.