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

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

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

* リクエストの送信
    INVOKE REQ "INVOKE".
* 例外処理
     SET TMP-ENV TO ENV OF REQ.
     IF NOT TMP-ENV = NULL
       SET EXCEP TO IDL-EXCEPTION OF TMP-ENV
       INVOKE EXCEP AS CORBA-UNKNOWNUSEREXCEPTION "EXCEPTION" RETURNING ANY-EXC
       SET EXC-STR TO IDL-ID OF EXCEP
       INVOKE EXC-STR "GET-VALUE" RETURNING EXCEP-ID
       DISPLAY "EXCEPTION ID :  "  EXCEP-ID
       EXIT PROGRAM
      END-IF.