例
000001 PROGRAM-ID. P5766.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 CLASS SYSEXP AS "System.Exception".
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 WEXPOBJ OBJECT REFERENCE SYSEXP.
000009 01 WPX POINTER.
000010 PROCEDURE DIVISION.
000011 TRY
000012 DISPLAY "TRY-BLOCK"
000013 CATCH WPX->WEXPOBJ
000014 DISPLAY "CATCH-BLOCK"
000015 END-TRY
000016 END PROGRAM P5766.
P5766.cob (13) : JMN5766I-S TRY文のCATCH指定のデータ名には,ポインタ修飾,添字付け,部分参照は指定できません.データ名のみが指定されたものと見なします.
詳細な説明
CATCH指定に指定するデータ名は,OF/IN修飾以外の修飾を指定できません.データ名が次のような修飾を持つ場合,この診断メッセージが出力されます.
ポインタ修飾
添字付け
部分参照