埋め込みの説明
@1@ : 一意名
例題
[C3041.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3041. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TBL. 000007 02 X OCCURS 5 TIMES 000008 INDEXED BY IX1. 000009 03 A PIC 9. 000010 01 B PIC 9V9. 000011 PROCEDURE DIVISION. 000012 SEARCH X VARYING B WHEN A(IX1) = 0 000013 MOVE 1 TO A(IX1). 000014 STOP RUN.
C3041.cob 12: JMN3041I-S SEARCH文中のVARYING指定の'B'は指標名,指標データ項目または整数項目でなければなりません.