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

8.1.4 メソッドの呼び出し

　サーバプログラムのメソッドを呼び出します。メソッド名はIDLで指定したモジュール名、インタフェース名およびメソッド名を2つのコロン("::")でつなげた形式で指定します。この例では、ODdemo,Calculator,calculateがそれにあたります。なお、メソッド呼出し時にネーミングサービスで求めたサーバアプリケーションのオブジェクトリファレンスとサーバプログラムで例外が発生した場合に例外情報を設定してもらうためにRETURNING指定を行います。

   DATA DIVISION.
   WORKING-STORAGE        SECTION.
   01 RESULT              TYPE                   ODDEMO-CALCULATOR-RESULT.
   01 PARAM-A             TYPE                   CORBA-LONG.
   01 PARAM-B             TYPE                   CORBA-LONG.

  PROCEDURE DIVISION.
     MOVE 10 TO PARAM-A.
     MOVE 5  TO PARAM-B.
  *
     MOVE "ODdemo::Calculator::calculate(10,5)" TO API-NAME.
     INVOKE TARGET-OBJ "CALCULATE"
                        USING     PARAM-A
                                  PARAM-B
                        RETURNING RESULT.
  *
     PERFORM PRINT-RESULT.
  *
     MOVE 100 TO PARAM-A.
     MOVE 0   TO PARAM-B.
  *
     MOVE "ODdemo::Calculator::calculate(100,0)" TO API-NAME.
     INVOKE TARGET-OBJ "CALCULATE"
                        USING     PARAM-A
                                  PARAM-B
                        RETURNING RESULT.
  *
     PERFORM PRINT-RESULT.
  *
     STOP RUN.
  *
   END-MAIN.