例
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修飾以外の修飾を指定できません.データ名が次のような修飾を持つ場合,この診断メッセージが出力されます.
ポインタ修飾
添字付け
部分参照