Wie bekomme ich Record-Locking mit embedded SQL hin?

[dschroeder]

Genau, das commit wäre für das gesamte Programm gültig.
Dann wäre sie Variante vom Manuel besser.
Du kannst einfach beim Deklarieren des Cursors am Ende ein "... for Update" dranhängen.
Dann ist der gelesene Satz gesperrt, bis du entweder ein Update oder ein Close Cursor machst.

Vielen Dank schon mal an euch beide. Ich habe das mal ausprobiert. Aber es scheint nicht zu klappen.

Hier mein Code:

exec sql declare csr1 cursor for  select * from bvsadres
   where ad_rec_id = 1000000065654 for update;


exec sql open csr1;


dow sqlcod = 0;
   um_msgbox('vor fetch');
   exec sql fetch next from csr1 into :ADRESSatz;
   um_msgbox('nach fetch' + ' Code ' + %char(sqlcod));
   if sqlcod <> 0;
      leave;
   endif;

enddo;


exec sql close csr1;
um_msgbox('nach close');

Wenn ich das Programm laufen lassen und z.B. vor oder nach dem Fetch mit DSPRCDLCK bvsadres die Satzsperren auf der Datei anschaue, werden keine Satzsperren angezeigt.

Muss man vielleicht noch grundsätzlich irgendetwas einstellen, damit das for update wirkt oder sehe ich die Locks mit dem Bordmitteln einfach nicht?

[Fuerchau]

Doch, das For Update klappt. Du kannst die auch i.d.R. unter DSPJOB => Sperren => Satzsperren sehen.
Du solltest jedoch Commit=*CHG verwenden, was nur bei Journlisierung klappt.

[dschroeder]

Doch, das For Update klappt. Du kannst die auch i.d.R. unter DSPJOB => Sperren => Satzsperren sehen.
Du solltest jedoch Commit=*CHG verwenden, was nur bei Journlisierung klappt.

Wir haben alle Tabellen journalisiert. Was heißt denn "Du solltest jedoch Commit=*CHG verwenden" ? Kann ich das im Code angeben oder muss ich dazu Programme mit anderen Optionen kompilieren?

[BenderD]

Wir haben alle Tabellen journalisiert. Was heißt denn "Du solltest jedoch Commit=*CHG verwenden" ? Kann ich das im Code angeben oder muss ich dazu Programme mit anderen Optionen kompilieren?

... schau dir mal den default von CRTSQLRPGI an (bevor irgendwelche Dilettanten den verändert haben), das ist eine Compile Option.
Vorsicht: *CHG setzt keine Sperre beim lesen, sondern erst beim schreiben.
doppelt Vorsicht: SQL setzt bei höherem Sperrlevel beim lesen eine shrnupd Sperre, die dann beim schreiben eskaliert wird (was zu Deadlocks führen kann), bei dem der spätere (!!!) gewinnt.
dreifach Vorsicht: Sperrelvel serializable setzt eine Sperre auf Dateiebene, was mit Rekord Löffel zu Abbrüchen führt.

D*B