埋め込みの説明
@1@ : 一意名
例題
[C3160.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3160. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 10 TIMES INDEXED BY INX. 000008 03 A PIC X. 000009 01 B PIC XX. 000010 01 X PIC X(2). 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL 000013 WHEN A(INX) = "Z" 000014 MOVE 1 TO B. 000015 STOP RUN.
C3160.cob 12: JMN3160I-S SEARCH ALL文の'TBL'のデータ記述には，KEY IS指定がなければなりません．
