埋め込みの説明
@1@ : PROPERTY
例題
[C5119.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5119. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 BB. 000009 02 PROP1 PIC X(8) PROPERTY. 000010 01 AA. 000011 02 PROP1 PIC X(8) 000012 PROPERTY. 000013 01 PROP1 PIC S9(8) BINARY PROPERTY. 000014 PROCEDURE DIVISION. 000015 IDENTIFICATION DIVISION. 000016 METHOD-ID. MO1. 000017 DATA DIVISION. 000018 WORKING-STORAGE SECTION. 000019 01 OBR1 USAGE OBJECT REFERENCE. 000020 PROCEDURE DIVISION. 000021 DISPLAY PROP1 OF OBR1. 000022 END METHOD MO1. 000023 END OBJECT. 000024 END CLASS C5119.
C5119.cob 9: JMN5119I-S PROPERTY句は修飾なしで一意に参照可能な項目にだけ指定できます.PROPERTY句は無効になります.
C5119.cob 12: JMN5119I-S PROPERTY句は修飾なしで一意に参照可能な項目にだけ指定できます.PROPERTY句は無効になります.
C5119.cob 13: JMN5119I-S PROPERTY句は修飾なしで一意に参照可能な項目にだけ指定できます.PROPERTY句は無効になります.
C5119.cob 21: JMN5543I-S オブジェクトプロパティに指定する一意名は,リポジトリ段落に指定されたクラスを参照するオブジェクト参照でなければなりません.