Interstage Application Server アプリケーション作成ガイド （CORBAサービス編）

F.5.2 ゲートウェイの登録

　サーバアプリケーションが実装するゲートウェイをORBに対して通知します。このため、以下の手順で処理を行います。

　CORBA-ORB-RESOLVE_INITIAL_REFERENCESメソッドによりインプリメンテーションリポジトリのオブジェクトリファレンスを取り出します。メソッドのパラメタとしてCORBA-OBJECTID_IMPLEMENTAT-001（値は"ImplementationRepository"）を指定します。

　サーバアプリケーションのImplementationRepオブジェクトのオブジェクトリファレンスを求めるため、CORBA-IMPLEMENTATIONDEF-LOOKUP_IDを発行します。

　サーバアプリケーションが実装するゲートウェイを登録するために、CORBA-BOA-SET_IMPL_DSIを発行します。

     MOVE "CORBA::ORB::resolve_initial_references" TO API-NAME. 
     INVOKE ORB "RESOLVE_INITIAL_REFERENCES" USING      CORBA-OBJECTID_IMPLEMENTAT-001
                                             RETURNING  OBJ. 
     INVOKE FJ-IMPLEMENTATIONREP "NARROW" USING      OBJ
                                          RETURNING  IMPL-REP. 
*
     MOVE "FJ::ImplementationRep::lookup_id" TO API-NAME. 
     INVOKE IMPL-REP "LOOKUP_ID" USING      REP-ID
                                 RETURNING  OBJ. 
     INVOKE CORBA-IMPLEMENTATIONDEF "NARROW" USING      OBJ
                                             RETURNING  IMPL. 
*
     INVOKE ODDEMO-CALCULATOR-IMPL "NEW"  RETURNING  L-DSIBASE. 
     INVOKE BOA "SET_IMPL_DSI" USING L-DSIBASE.