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

8.1.2 ネーミングサービスのオブジェクトリファレンスの獲得

　実行するオブジェクトをネーミングサービスから検索するために、ネーミングサービスのオブジェクトリファレンスが必要となります。CORBAインタフェースのオブジェクトリファレンスの取出しメソッドCORBA-ORB-RESOLVE_INITIAL_REFERENCESによりネーミングサービスのオブジェクトリファレンスを取り出します。このとき、CORBA-ORB-OBJECTID_NAMESERVICEをメソッドのパラメタとして指定します。なお、この定数は、各ORBベンダーが提供しているインクルードファイル等で定義されています。

    DATA DIVISION.
    WORKING-STORAGE        SECTION.
    01 OBJ                 USAGE OBJECT REFERENCE CORBA-OBJECT.

   PROCEDURE DIVISION.
      MOVE "CORBA::ORB::resolve_initial_references" TO API-NAME.
      INVOKE ORB "RESOLVE_INITIAL_REFERENCES"
                     USING     CORBA-ORB-OBJECTID_NAMESERVICE
                     RETURNING OBJ.