例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5765.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE DIVISION.
000007 TRY
000008 DISPLAY "TRY-BLOCK"
000009 CATCH "System.Exception"
000010 DISPLAY "CATCH-EXCEPTION"
000011 END-TRY
000012 END PROGRAM P5765.
P5765.cob (9) : JMN5765I-S TRY文のCATCH指定には,データ名が1つだけ指定できます.
詳細な説明
CATCH指定にデータ名以外の語を指定した場合に,この診断メッセージが出力されます.
また,データ名が指定されていても次のような場合には,この診断メッセージが出力されます.
そのデータ名がオブジェクト参照一意名の一部である.
データ名が複数指定されている.