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

7.1.4 メソッドの呼び出し

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

     DATA DIVISION.
     WORKING-STORAGE SECTION.
     01 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARAM1.
     01 COPY LONG IN CORBA REPLACING CORBA-LONG BY PARAM2.
     01 A-RESULT.
        02 COPY LONG IN CORBA REPLACING CORBA-LONG BY ADD-RESULT.
        02 COPY LONG IN CORBA REPLACING CORBA-LONG BY SUBTRACT-RESULT.
        02 COPY LONG IN CORBA REPLACING CORBA-LONG BY MULTIPLE-RESULT.
        02 COPY FLOAT IN CORBA REPLACING CORBA-FLOAT BY DEVIDE-RESULT.

    PROCEDURE DIVISION. 
     MOVE 100 TO PARAM1. 
     MOVE  20 TO PARAM2. 

     CALL "ODDEMO-CALCULATOR-CALCULATE" USING
           OBJ
           PARAM1
           PARAM2
           ENV
           A-RESULT. 
     MOVE "ODdemo_calculator_calculate" TO MESS.
     PERFORM ENV-CHECK.