[ABAP] Datensatz sperren (lock / unlock)

DATA: lv_ds TYPE sflight.

* Lock für Datensatz setzen
SELECT SINGLE FOR UPDATE * FROM sflight INTO @lv_ds
  WHERE carrid = 'AA'
    AND connid = '0017'
    AND fldate = '20050928'.

IF sy-subrc = 0.
* Wenn Lock gesetzt, dann
*  UPDATE sflight SET ...
  IF sy-subrc = 0.
    COMMIT WORK.
  ELSE.
    ROLLBACK WORK.
  ENDIF.
ELSE.
  WRITE: / 'Lock konnte nicht gesetzt werden.'.
ENDIF.