埋め込みの説明
@1@ : 一意名
@2@ : 個数
例題
[C3268.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3268. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 5 TIMES. 000008 03 TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A 000009 INDEXED BY INX. 000010 04 A PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL-2 000013 WHEN A(INX) = 1 000014 STOP RUN.
C3268.cob 13: JMN3268I-S SEARCH ALL文のWHEN指定の'A'の添字の数は，2個でなければなりません．
