埋め込みの説明
@1@ : EXIT．
例題
[C5507.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5507. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5507. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 WERROR PIC X(20). 000011 PROCEDURE DIVISION. 000012 EXIT METHOD RAISING WERROR 000013 END METHOD M5507. 000014 END OBJECT. 000015 END CLASS C5507.
C5507.cob 12: JMN5507I-S EXIT文のRAISING指定にはオブジェクト参照一意名だけが記述できます．
