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

8.5 サーバアプリケーションの例外処理

(1)例外情報の設定

　例外情報を設定するためには、まずNEWメソッドで例外情報を設定する領域を獲得します。続いて、EXIT METHOD文にRAISING指定を行うことにより、例外情報を設定します。

   CLASS-ID.              ODDEMO-CALCULATOR-IMPL
  *
   OBJECT.
  *
    PROCEDURE             DIVISION.
  *
     METHOD-ID.           CALCULATE OVERRIDE.
     DATA                 DIVISION.
     WORKING-STORAGE      SECTION.
     01 EXC               USAGE OBJECT REFERENCE ODDEMO-CALCULATOR-ZEROPARAM.
     LINKAGE              SECTION.
     01 A                 TYPE                   CORBA-LONG.
     01 B                 TYPE                   CORBA-LONG.
     01 RESULT            TYPE                   ODDEMO-CALCULATOR-RESULT.
  *
     PROCEDURE            DIVISION
                          USING     A
                                    B
                          RETURNING RESULT
                          RAISING   CORBA-SYSTEMEXCEPTION
                                    ODDEMO-CALCULATOR-ZEROPARAM.
  *
       IF B = 0
         INVOKE ODDEMO-CALCULATOR-ZEROPARAM "NEW" RETURNING EXC
         EXIT METHOD RAISING EXC
       END-IF.
  *
       COMPUTE ADD_RESULT OF RESULT = A + B.
       COMPUTE SUBTRACT_RESULT OF RESULT = A - B.
       COMPUTE MULTIPLE_RESULT OF RESULT = A * B.
       COMPUTE DIVIDE_RESULT OF RESULT = A / B.
  *
     END METHOD CALCULATE.
  *
   END OBJECT.
  *
   END CLASS ODDEMO-CALCULATOR-IMPL.

(2)例外情報の獲得

　サーバアプリケーションで例外を獲得する方法は、クライアントアプリケーションの例外処理と同様です。詳細については、“クライアントアプリケーションの例外処理”を参照してください。