埋め込みの説明
@1@ : "オブジェクトプロパティ"
例題
[C3422.cob] 000001 CLASS-ID. C3422. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 PROP-DATA PIC 9(10) PROPERTY. 000009 01 OBJ3422 OBJECT REFERENCE C3422. 000010 PROCEDURE DIVISION. 000011 METHOD-ID. C3422-M. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 X04 PIC X(4) VALUE "ABCD". 000015 LINKAGE SECTION. 000016 PROCEDURE DIVISION. 000017 MOVE PROP-DATA OF OBJ3422 (1:4) TO X04. *> JMN3422I-S 000018 END METHOD C3422-M. 000019 END OBJECT. 000020 END CLASS C3422.
C3422.cob 17: JMN3422I-S オブジェクトプロパティは部分参照できません．
