埋め込みの説明
@1@ : 一意名
@2@ : 一意名
例題
[C3463.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3463. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 TYPE-A TYPEDEF STRONG. 000008 02 A1 PIC S9(4) COMP-5. 000009 02 A2 PIC X(50). 000010 01 TYPE-B TYPEDEF STRONG. 000011 02 B1 PIC X(25). 000012 01 DATA-A TYPE TYPE-A. 000013 01 DATA-B TYPE TYPE-B. 000014 PROCEDURE DIVISION. 000015 MOVE DATA-A TO DATA-B. 000016 EXIT PROGRAM. 000017 END PROGRAM C3463.
C3463.cob 15: JMN3463I-S 転記の受取り側である'DATA-B'が強く型付けされた集団項目のとき,送出し側である'DATA-A'は,'DATA-B'と同じ型の強く型付けされた集団項目でなければなりません.