4.15.2 COSTRANSACTIONS-CURRENT-COMMIT

名前

COSTRANSACTIONS-CURRENT-COMMIT

形式

DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN COSTRANSACTIONS.
    COPY CONST IN CORBA.
      01 COPY CURRENT IN CORBA REPLACING COSTRANSACTIONS-CURRENT BY CURRENTOBJ
      01 COPY BOOLEAN IN CORBA REPLACING CORBA-BOOLEAN BY REPORT-HEURISTICS.
      01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV.

PROCEDURE DIVISION. 
  CALL "COSTRANSACTIONS-CURRENT-COMMIT" USING
    CURRENTOBJ
    REPORT-HEURISTICS
    ENV.

機能説明

トランザクションをCOMMITします。

パラメタ

CURRENTOBJ：

CORBA-ORB-RESOLVE-INITIAL-REFERENCESメソッド(CORBA-ORB-OBJECTID-TRANCURRENT)で取得したCURRENTインタフェースのオブジェクトリファレンスを指定します。

REPORT-HEURISTICS：

CORBA-TRUEを指定するとヒューリスティックエラーが通知されます。

ENV：

例外情報を獲得するためにCORBA-ENVIRONMENT構造体を指定します。

復帰値

正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。
異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONまたはCORBA-USER-EXCEPTIONが設定され、ENV構造体のIDに詳細情報が設定されます。IDの値と意味は以下のとおりです。

EX-COSTRANSACTIONS-NOTRANSACTI：: トランザクションが作成されていません。

EX-CORBA-STEXCEP-NO-PERMISSION：: トランザクションをcommitする権利がありません。

EX-COSTRANSACTIONS-HEURISTICMI：: トランザクションの完了状態は、いくつかがcommitされ、いくつかがrollbackされた状態です。

EX-COSTRANSACTIONS-HEURISTICHA：: トランザクションの完了状態不明です。

EX-CORBA-STEXCEP-TRANSACTION-R：: トランザクションがロールバックされています。

EX-CORBA-STEXCEP-NO-IMPLEMENT：: OTSシステム、またはリソース管理プログラムが起動されていません。

EX-CORBA-STEXCEP-COMM-FAILURE：: 通信異常が発生しました。

EX-CORBA-STEXCEP-NO-RESOURCES：: 資源不足が発生しました。

EX-CORBA-STEXCEP-NO-MEMORY：: 動的メモリの獲得に失敗しました。