埋め込みの説明
@1@ : ADD/SUBTRACT/MULTIPLY/DIVIDE
@2@ : 一意名の名標
例題
[C3063.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3063. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 9(4). 000007 01 B PIC 9(4). 000008 01 C PIC X(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 ADD A TO B GIVING C. 000012 SUBTRACT A FROM B GIVING C. 000013 MULTIPLY A BY B GIVING C. 000014 DIVIDE A INTO B GIVING C. 000015 STOP RUN.
C3063.cob 11: JMN3063I-S ADD文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.
C3063.cob 12: JMN3063I-S SUBTRACT文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.
C3063.cob 13: JMN3063I-S MULTIPLY文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.
C3063.cob 14: JMN3063I-S DIVIDE文のGIVING指定の作用対象'C'は,数字項目または数字編集項目でなければなりません.