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

7.1.3 サーバアプリケーションのオブジェクトリファレンスの獲得

　ネーミングサービスのCOSNAMING-NAMINGCONTEXT-RESOLVEメソッドにより、これから実行したいサーバアプリケーションのオブジェクトリファレンスを取り出します。検索したいオブジェクト名を当メソッドのパラメタとして指定します。

     INVOKE COSNAMING-NAMINGCONTEXT "NARROW"
                        USING     OBJ
                        RETURNING NAMING-CONTEXT.
  *
     INVOKE CORBA-STRING "NEW-WITH-VALUE"
                        USING     "ODdemo::calculator"
                        RETURNING NAME-ID.
  *
     INVOKE CORBA-STRING "NEW-WITH-VALUE"
                        USING     " "
                        RETURNING NAME-KIND.
  *
     INVOKE COSNAMING-NAMECOMPONENT "NEW"
                        RETURNING NAME-COMPONENT.
  *
     SET IDL-ID OF NAME-COMPONENT TO NAME-ID.
     SET KIND   OF NAME-COMPONENT TO NAME-KIND.
  *
     INVOKE SEQUENCE-NAMECOMPONENT-001 "NEW-WITH-LENGTH"
                        USING     1
                        RETURNING NAME.
  *
     INVOKE NAME "SET-VALUE"
                        USING     1
                                  NAME-COMPONENT.
  *
     MOVE "CosNaming::NamingContext::resolve" TO API-NAME.
     INVOKE NAMING-CONTEXT "RESOLVE"
                        USING     NAME
                        RETURNING OBJ.
  *
     INVOKE ODDEMO-CALCULATOR "NARROW"
                        USING     OBJ
                        RETURNING TARGET-OBJ.