埋め込みの説明
@1@ : MOVE文,ADD文,またはSUBTRACT文
@2@ : 一意名
例題
[C3051.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3051. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 AA. 000008 02 CC-1 PIC 9(4). 000009 02 CC-2 PIC 9(8). 000010 01 BB. 000011 02 CC-3 PIC 9(4). 000012 02 CC-4 PIC 9(8). 000013 PROCEDURE DIVISION. 000014 P-START. 000015 ADD CORR CC-2 TO BB. 000016 STOP RUN.
C3051.cob 15: JMN3051I-S CORRESPONDING指定のあるADD文に指定された'CC-2'は,集団項目でなければなりません.