埋め込みの説明
@1@ : _ (アンダースコア)
例題
[C1771.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1771. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DATA-1 PIC X(4). 000007 PROCEDURE DIVISION. 000008 METHOD-ID. SET PROPERTY _DATA. 000009 DATA DIVISION. 000010 LINKAGE SECTION. 000011 01 P1 PIC X(4). 000012 PROCEDURE DIVISION USING P1. 000013 MOVE P1 TO DATA-1. 000014 END METHOD. 000015 END OBJECT. 000016 END CLASS C1771.
C1771.cob 8: JMN1771I-S プロパティ名の先頭文字は,'_'であってはなりません.PROPERTY指定は無効になります.