例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5712.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS SYSSTR AS "System.String".
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 WSTR OBJECT REFERENCE SYSSTR.
000010 PROCEDURE DIVISION.
000011 INVOKE EXCEPTION-OBJECT "ToString"
000012 RETURNING WSTR.
000013 END PROGRAM P5712.
P5712.cob (11) : JMN5712I-S 定義済みオブジェクト一意名EXCEPTION-OBJECTは,クラス名指定のUSE文に関連付けられた宣言部分だけで使用できます.
詳細な説明
定義済みオブジェクト一意名EXCEPTION-OBJECTは,クラス名指定のUSE文で捕らえられた例外を発生されたオブジェクト参照項目を参照するための特別の指定方法です.
このため,クラス名指定のUSE文に対して実行される手続き内でしか使用できません.