埋め込みの説明
@1@ : RAISE.
例題
[C5500.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5500. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID M5500. 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 AAA PIC X(4). 000011 PROCEDURE DIVISION. 000012 RAISE AAA 000013 END METHOD M5500. 000014 END OBJECT. 000015 END CLASS C5500.
C5500.cob 12: JMN5500I-S RAISE文の一意名にはオブジェクト参照一意名を指定しなければなりません.