Interstage Application Server アプリケーション作成ガイド (コンポーネントトランザクションサービス編)

3.2.2.1 アプリケーションの構成

　グローバルトランザクション運用を行うためには、CORBAのクライアントアプリケーションの処理に加えて、CosTransactions::Current::commitメソッドなどのCurrentインタフェースを呼び出して、データベース連携サービスにトランザクション処理を依頼します。
　これらの処理を考慮したクライアントアプリケーションの構成について以下に示します。

初期化処理部

　クライアントアプリケーションをCORBAサービスに登録、およびトランザクションサービスの初期化を行います。

アプリケーション固有部

　アプリケーション固有の処理部。トランザクションの開始から終了までの流れを記述します。

トランザクション用ライブラリ

　データベース連携サービスが提供するクライアントアプリケーション用ライブラリを結合します。

　以下にクライアントアプリケーションの基本形を示します。

                       　:
 static  CORBA::ORB_ptr               orb;
 static  CosTransactions::Current_ptr Current;
 static  CosNaming::NamingContext_ptr obj;
 static  CosNaming::NamingContext_ptr naming_obj;
                       　:
  /* 初期化処理  */
  orb = CORBA::ORB_init(argc, argv, FJ_OM_ORBid, *env);
                        :
  naming_obj = NamingContext_obj->resolve(*name, *env);     … 1
                        :
  /* トランザクション依頼処理  */
  obj = orb->resolve_initial_references
     (CORBA_ORB_ObjectId_TransactionCurrent, *env);         … 2
  Current = CosTransactions::Current::narrow(obj);

  Current->begin(*env);                                     … 3
                        :
  srvobj->ope1(para, *env                                   … 4
                        :
  if (env->exception())                                     … 5
  Current->rollback(*env);
  else
  Current->commit(CORBA_TRUE, *env);

1. ネーミングサービスからサーバアプリケーションのオブジェクトリファレンスを獲得します。
2. Currentインタフェースのオブジェクトリファレンスを獲得します。
3. CosTransactions::Current::beginメソッドでトランザクションの開始を宣言します。
4. サーバアプリケーションを呼び出します。
5. サーバアプリケーションの復帰状態を確認して、トランザクションの状態を決定します。トランザクションを正常終了させる場合はCosTransactions::Current::commitメソッドでトランザクションをコミットさせます。トランザクションを異常終了させる場合はCosTransactions::Current::rollbackメソッドでトランザクションをロールバックさせます。