次のトランザクション例は、ロックオブジェクトを使ってデータベースエントリのロックとロック解除を行う方法を示します。このトランザクションでは、（画面 100 で）、指定のフライトを要求し、（画面 200 で）それを照会し更新することができます。ユーザが 変更を選択すると、テーブルエントリがロックされます。照会を選択すると、ロックされません。

この例はロックオブジェクト ESFLIGHT 、およびその汎用モジュール ENQUEUE_ESFLIGHT と DEQUEUE_ESFLIGHT を使ってオブジェクトのロックとロック解除を行っています。

ロックオブジェクトと、該当する汎用モジュールの詳細については、 ABAP ディクショナリ文書のロックオブジェクトのセクションを参照してください。

このトランザクションの画面 100 の PAI 処理はユーザ入力を処理し、要求されたアクション（ 変更または照会）の準備を行います。変更が要求された場合には、プログラムにより関連 ENQUEUE 機能が呼び出され、関連データベースオブジェクトがロックされます。

ENQUEUE 汎用モジュールは以下の例外を開始することができます。

FOREIGN_LOCK は衝突するロックがすでに存在するかどうかを判断します。システム変数 SY-MSGV1 はロックを所有するユーザの名称を格納します。

エンキューサーバが技術的理由からロックを設定できない場合、例外 SYSTEM_FAILURE が開始されます。

トランザクションの最後に、自動的にロックが解除されます。しかし、トランザクションの内部で更新ルーチンを呼び出している場合は、例外が発生します。対応する DEQUEUE モジュールを呼び出すことで、ロックを明示的に解除することができます。プログラマは、ロックを解除するための最適なポイント（たとえば、データを他のトランザクションが使用できるようにする）を自分で決定しなければなりません。

プログラムで DEQUEUE 汎用モジュールコールを何回も使用する必要があるときは、サブルーチンにそのコールを記述し、必要に応じてそれを呼び出すのが良い方法です。

サブルーチン UNLOCK_FLIGHT はロックオブジェクト ESFLIGHT に対して DEQUEUE 汎用モジュールを呼び出します。

これはこのトランザクション例の画面 200 に対する PAI モジュールで BACK と EXIT 機能に使用することを想定したものです。プログラムでは、ユーザが変更を保存せずに画面を終了したかどうかがチェックされます。それに該当する場合、 PROMPT_AND_SAVE ルーチンが督促を送信し、変更を保存する機会をユーザに与えます。 UNLOCK_FLIGHT サブルーチンを呼び出すことで、フライトをロック解除することができます。