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

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

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

   DATA DIVISION.
   WORKING-STORAGE        SECTION.
   01 NAMING-CONTEXT      USAGE OBJECT REFERENCE COSNAMING-NAMINGCONTEXT.
   01 NAME                TYPE                   COSNAMING-NAME.
   01 NAME-COMPONENT      USAGE OBJECT REFERENCE COSNAMING-NAMECOMPONENT.
   01 NAME-ID             USAGE OBJECT REFERENCE CORBA-STRING.
   01 NAME-KIND           USAGE OBJECT REFERENCE CORBA-STRING.
   01 TARGET-OBJ          USAGE OBJECT REFERENCE ODDEMO-CALCULATOR.

  PROCEDURE DIVISION.
     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.