例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5767.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 PROCEDURE DIVISION.
000007 TRY
000008 RAISE
000009 CATCH
000010 RAISE
000011 END-TRY
000012*
000013 RAISE
000014 END PROGRAM P5767.
P5767.cob (8) : JMN5767I-S オブジェクト参照一意名を指定しないRAISE文は，TRY文のCATCHブロックにのみ指定できます．
P5767.cob (13) : JMN5767I-S オブジェクト参照一意名を指定しないRAISE文は，TRY文のCATCHブロックにのみ指定できます．
詳細な説明
通常，RAISE文には例外オブジェクトを参照するデータ名を指定しなければなりません．RAISE文をCATCH指定に記述する場合のみ，このデータ名は省略可能となります．
CATCH指定以外の場所では，例外オブジェクトを参照するデータ名を指定してください．