埋め込みの説明
@1@ : キーデータ項目
例題
[C3198.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3198. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GR. 000007 02 TBL OCCURS 10 TIMES ASCENDING KEY IS KEY-1 000008 INDEXED BY INX. 000009 03 KEY-1 PIC X(5). 000010 PROCEDURE DIVISION. 000011 SEARCH ALL TBL 000012 WHEN KEY-1(INX)(1 : 3) = "AAA" 000013 STOP RUN.
C3198.cob 12: JMN3198I-S SEARCH ALL文の'KEY-1'は，部分参照できません．
