名前
COSTRANSACTIONS-CURRENT-GET-CONTROL
形式
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 CONTROL IN CORBA REPLACING COSTRANSACTIONS-CONTROL BY CONTROLOBJ. 01 COPY ENVIRONMENT IN CORBA REPLACING CORBA-ENVIRONMENT BY ENV. PROCEDURE DIVISION. CALL "COSTRANSACTIONS-CURRENT-GET-CONTROL" USING CURRENTOBJ ENV CONTROLOBJ.
機能説明
トランザクションコンテキストを管理するCONTROLオブジェクトを返します。
このCONTROLオブジェクトを使用してサーバアプリケーションでトランザクションを完了することもできます。
CURRENTには、CORBA-ORB-RESOLVE-INITIAL-REFERENCESメソッド(CORBA-ORB-OBJECTID-TRANCURRENT)で取得したCURRENTインタフェースのオブジェクトリファレンスを指定します。
パラメタ
CURRENTOBJ：
CORBA-ORB-RESOLVE-INITIAL-REFERENCESメソッド(CORBA-ORB-OBJECTID-TRANCURRENT)で取得したCURRENTインタフェースのオブジェクトリファレンスを指定します。
ENV：
例外情報を獲得するためにCORBA-ENVIRONMENT構造体を指定します。
復帰値
正常終了した場合は、ENV構造体のMAJORにCORBA-NO-EXCEPTIONが設定されます。復帰値にCOSTRANSACTIONS-CONTROLオブジェクトを返します。
異常終了した場合は、ENV構造体のMAJORにCORBA-SYSTEM-EXCEPTIONが設定され、ENV構造体のIDに詳細情報が設定されます。
EX-CORBA-STEXCEP-NO-RESOURCES： 資源不足が発生しました。
EX-CORBA-STEXCEP-NO-MEMORY： 動的メモリの獲得に失敗しました。 EX-CORBA-STEXCEP-INTERNAL： CORBAサービスで異常が発生しました。
