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.

[andreaspr@aon.at]

Dann meinst du wohl mit Pointer eigentlich einen SQL Cursor!?!

Ich würde das Beispiel so schreiben:

D tab1ds    E DS          extname(Tab1)
/Free
 EXEC SQL Declare c1 Cursor For Select * From Tab1
   For Update;
 
 EXEC SQL Open Cursor;
 
 // The record gets locked with the FETCH statement 
 EXEC SQL Fetch Cursor Into :tab1ds;
  
 // Do some processing 
 
 EXEC SQL Update Tab1 set Row = (:tab1ds) Where Current of c1;

 EXEC SQL Close Cursor;
/End-Free

Dadurch braucht man bei Tabellenänderungen das Programm einfach nur neu erstellen lassen, wenn nötig. Und man ersparrt sich die angabe jeder Spalte.
Und Free ersparrt auch ein paar Zeilen

lg Andreas

[B.Hauser]

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.

Das ist doch genau das, was ich zuvor vorgeschlagen habe?!

Birgitta