サーバプログラムのメソッドを呼び出します。メソッド名は、IDLで指定したモジュール名、インタフェース名、およびメソッド名を、ハイフン(-)でつなげた形式で指定します。この例では、ODDEMO、CALCULATOR、CALCULATEがそれにあたります。メソッド呼出し時にネーミングサービスで求めたサーバアプリケーションのオブジェクトリファレンスとサーバプログラムで例外が発生した場合に、例外情報を設定してもらうためにCORBA-ENVIRONMENT構造体を指定します。
なお、アプリケーションで使用可能なCORBAのデータ型については、“6.8 データ型に対するマッピング”を参照してください。
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.