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

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

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

     MOVE 1 TO NAME-LEN.
     INVOKE SEQUENCE-NAMECOMPONENT-001 "NEW-WITH-LENGTH" USING     NAME-LEN
                                                         RETURNING NAME.
     INVOKE COSNAMING-NAMECOMPONENT "NEW" RETURNING NAME-COMPONENT.
     INVOKE CORBA-STRING "NEW-WITH-VALUE" USING     NAME-ID-VALUE   *> オブジェクト名
                                          RETURNING NAME-ID.
     INVOKE CORBA-STRING "NEW-WITH-VALUE" USING     NAME-KIND-VALUE  *> オブジェクトタイプ
                                          RETURNING NAME-KIND.
     SET IDL-ID OF NAME-COMPONENT TO NAME-ID.
     SET KIND OF NAME-COMPONENT TO NAME-KIND.
     INVOKE NAME "SET-VALUE" USING NAME-LEN NAME-COMPONENT.
     INVOKE NAME "SET-VALUE" USING NAME-LEN
                                   NAME-COMPONENT.
* NamingServiceのresolveメソッドを発行
      INVOKE NAMING-CONTEXT "RESOLVE" USING NAME RETURNING OBJ.