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

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

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

  * オブジェクト名
       MOVE FUNCTION LENG (STR-BUF) TO STRING-LENGTH. 
       MOVE "ODdemo::calculator" TO STR-BUF. 
       CALL "CORBA-STRING-SET" USING
             IDL-ID OF NAME-COMPONENT
             STRING-LENGTH
             STR-BUF. 
  * オブジェクトのタイプ
       MOVE " " TO STR-BUF. 
       CALL "CORBA-STRING-SET" USING
             KIND OF NAME-COMPONENT
             STRING-LENGTH
             STR-BUF. 
  * オブジェクト名の数
       MOVE 1 TO SEQ-LENGTH OF NAME. 
       MOVE 1 TO SEQ-MAXIMUM OF NAME. 
  * Sequenceの要素数
       MOVE 1 TO NUM. 
  *  CosNamingのアクセス情報格納用のSequence領域獲得
       CALL "CORBA-SEQUENCE-COSNAMING-NAMECOMPONENT-ALLOCBUF" USING
             SEQ-MAXIMUM OF NAME
             SEQ-BUFFER OF NAME. 
       MOVE FUNCTION ADDR ( NAME ) TO NAME-A. 
       MOVE FUNCTION ADDR ( NAME-COMPONENT ) TO NAME-COMPONENT-A. 
  * CosNamingの要素設定
       CALL "CORBA-SEQUENCE-ELEMENT-SET" USING
             NAME-A
             NUM
             NAME-COMPONENT-A. 
  *  サーバアプリケーションのオブジェクトリファレンスを獲得 
       CALL "COSNAMING-NAMINGCONTEXT-RESOLVE" USING
                COS-NAMING
                NAME
                ENV
                OBJ. 
       MOVE "COSNAMING-NAMINGCONTEXT-RESOLVE" TO MESS. 
       PERFORM ENV-CHECK.