埋め込みの説明
@1@ : 一意名
例題
[C3038.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3038. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 99. 000007 01 B PIC XX. 000008 PROCEDURE DIVISION. 000009 PERFORM VARYING A FROM B BY 1 UNTIL A < 0 000010 COMPUTE A = A - 1 000011 END-PERFORM. 000012 STOP RUN.
C3038.cob 9: JMN3038I-S PERFORM文中の'B'は，数字項目でなければなりません．
