埋め込みの説明
@1@ : MOVE文,ADD文,またはSUBTRACT文
例題
[C3050.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3050. 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 AA TO BB. 000016 STOP RUN.
C3050.cob 15: JMN3050I-W CORRESPONDING指定のあるADD文で,対応の取れる項目が一つもありません.この文は,無効になります.
詳細な説明
CORRESPONDING指定のある文では,送出し側と受取り側とで対応の取れる基本項目が一つもなければ,その文は意味を持ちません.このときの「対応の取れる基本項目」とは,単に基本項目同士の名前が一致していることを意味するわけではありません.「それぞれ直前までの修飾語の名前の系列が同じである」必要があることに注意してください.これはつまり修飾名(集団項目の階層を表した名前)「~ OF 基本項目名」における"~"の部分も一致している必要があることを示しています.