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

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

　実行するオブジェクトをネーミングサービスから検索するために、ネーミングサービスのオブジェクトリファレンスが必要となります。CORBAインタフェースのオブジェクトリファレンスの取出しメソッドCORBA-ORB-RESOLVE_INITIAL_REFERENCESによりネーミングサービスのオブジェクトリファレンスを取り出します。このとき、CORBA-ORB-OBJECTID_NAMESERVICE（値は"NameService"）をメソッドのパラメタとして指定します。

   DATA DIVISION.
   WORKING-STORAGE        SECTION.
   01 OBJ                 OBJECT REFERENCE CORBA-OBJECT.
   01 NAMING-CONTEXT      OBJECT REFERENCE COSNAMING-NAMINGCONTEXT.

  PROCEDURE DIVISION.
     INVOKE ORB "RESOLVE_INITIAL_REFERENCES" USING     CORBA-ORB-OBJECTID_NAMESERVICE
                                             RETURNING OBJ.
*
     INVOKE COSNAMING-NAMINGCONTEXT "NARROW" USING     OBJ
                                             RETURNING NAMING-CONTEXT.