埋め込みの説明
@1@ : VALUE,REDEFINES,,OCCURS DEPENDING ONまたはSELF指定を持つUSAGE OBJECT REFERENCE
例題
[P5153.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5153. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 STY1 TYPEDEF STRONG. 000007 02 ITEM11 PIC X(20) VALUE SPACE. 000008 02 ITEM12 PIC S9(9) BINARY. 000009 01 DATA1 TYPE STY2 VALUE SPACE. 000010 01 STY2 TYPEDEF STRONG. 000011 02 ITEM2 PIC X(20). 000012 01 STY3 TYPEDEF STRONG. 000013 02 ITEM3 PIC X(20). 000014 02 ITEM3R REDEFINES ITEM3. 000015 03 ITEM31 PIC X(10). 000016 03 ITEM32 TYPE STY2 VALUE SPACE. 000017 PROCEDURE DIVISION. 000018 END PROGRAM P5153.
P5153.cob 7: JMN5153I-S STRONG指定を持つ型宣言あるいは強く型付けされた項目はVALUE句を含んではなりません.
P5153.cob 9: JMN5153I-S STRONG指定を持つ型宣言あるいは強く型付けされた項目はVALUE句を含んではなりません.
P5153.cob 14: JMN5153I-S STRONG指定を持つ型宣言あるいは強く型付けされた項目はREDEFINES句を含んではなりません.
P5153.cob 16: JMN5153I-S STRONG指定を持つ型宣言あるいは強く型付けされた項目はVALUE句を含んではなりません.
詳細な説明
強く型付けされた項目とは,STRONG指定を持つ型宣言(TYPEDEF)を参照するTYPE句を指定したデータ記述項です.