埋め込みの説明
@1@ : PROPERTY
例題
[C5108.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5108. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 AA. 000009 02 BB. 000010 03 PROP1 PROPERTY OCCURS 3 TIMES PIC X(8). 000011 01 CC . 000012 02 DD OCCURS 2 TIMES. 000013 03 PROP2 PIC X(8) 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 END METHOD MO1. 000022 END OBJECT. 000023 END CLASS C5108.
C5108.cob 10: JMN5108I-S PROPERTY句はOCCURS句を持つ項目またはその項目に従属する項目に指定できません.PROPERTY句は無効になります.
C5108.cob 13: JMN5108I-S PROPERTY句はOCCURS句を持つ項目またはその項目に従属する項目に指定できません.PROPERTY句は無効になります.