名前
CORBA-UNKNOWNUSEREXCEPTION-NARROW
形式
REPOSITORY.
    CLASS         CORBA-EXCEPTION
    CLASS         CORBA-UNKNOWNUSEREXCEPTION
    CLASS         CORBA-SYSTEMEXCEPTION
METHOD-ID.        NARROW.
DATA DIVISION.
LINKAGE SECTION.
01 ORIGIN               USAGE OBJECT REFERENCE CORBA-EXCEPTION.
01 RET                  USAGE OBJECT REFERENCE CORBA-UNKNOWNUSEREXCEPTION.
PROCEDURE DIVISION      USING          ORIGIN
                        RETURNING      RET
                        RAISING        CORBA-SYSTEMEXCEPTION機能説明
UnknownUserExceptionのオブジェクトリファレンスを作成し、ORIGINを複製して返します。
復帰値
  正常終了した場合は、UnknownUserExceptionのオブジェクトリファレンスが返されます。
  異常終了した場合は、CORBA-SYSTEMEXCEPTION例外が発生します。
システム例外発生時に設定された例外情報およびマイナーコードの意味については、“メッセージ集”の“CORBAサービスから通知される例外情報/マイナーコード”を参照してください。