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

8.3.1 静的起動インタフェース例外

　静的起動インタフェース例外情報を獲得する例を以下に示します。

  WORKING-STORAGE SECTION.
  01  API-NAME            PIC   X(50)
  01  EXCEPTION-ID        USAGE OBJECT REFERENCE CORBA-STRING.
  01  EXCEPTION-ID-VALUE  PIC   X(50).
  01  OUT-MINOR           TYPE  CORBA-UNSIGNED-LONG.

  DECLARATIVES.
  *
  ZEROPARAM-ERR SECTION.
       USE EXCEPTION ODDEMO-CALCULATOR-ZEROPARAM.
       DISPLAY "ZEROPARAM Exception: " API-NAME.
       EXIT PROGRAM.
  END-ZEROPARAM-ERR.
  *
  OTHER-ERROR SECTION.
       USE EXCEPTION CORBA-EXCEPTION.
       DISPLAY "CORBA::UserException: " API-NAME.
       SET EXCEPTION-ID TO IDL-ID OF EXCEPTION-OBJECT AS CORBA-EXCEPTION.
       INVOKE EXCEPTION-ID "GET-VALUE" RETURNING EXCEPTION-ID-VALUE.
       DISPLAY "   Exception-id: " EXCEPTION-ID-VALUE.
       EXIT PROGRAM.
  END-OTHER-ERR.
  * マイナーコード取得処理
  MINOR-ERROR SECTION.
       USE EXCEPTION CORBA-SYSTEMEXCEPTION.
       MOVE MINOR OF EXCEPTION-OBJECT AS CORBA-SYSTEMEXCEPTION TO OUT-MINOR.
       DISPLAY "   Exception-minor: " OUT-MINOR.
  END-MINOR-ERROR.

  END DECLARATIVES.