埋め込みの説明
@1@ : 一意名
@2@ : 一意名
例題
[C3162.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3162. 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 INX1 INX2. 000010 04 A PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL-2 000013 WHEN A(3, INX2) = 1 000014 STOP RUN.
C3162.cob 13: JMN3162I-S SEARCH ALL文のWHEN指定の'A'に対する最下位次元の添字は，'TBL-2'の最初の指標名でなければなりません．
