例
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指定にデータ名以外の語を指定した場合に,この診断メッセージが出力されます.
また,データ名が指定されていても次のような場合には,この診断メッセージが出力されます.
そのデータ名がオブジェクト参照一意名の一部である.
データ名が複数指定されている.