埋め込みの説明
@1@ : WHENまたはDELIMITERまたはCOUNT．
例題
[P2530.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2530. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 . 000007 02 WTARGET OCCURS 26 INDEXED BY IX1 000008 ASCENDING KEY IS WKEY. 000009 03 WKEY PIC S9(4). 000010 03 WDATA PIC X(1). 000011 01 WANS PIC X(1). 000012 01 WDA1 PIC S9(4). 000013 PROCEDURE DIVISION. 000014 SEARCH ALL WTARGET 000015 AT END 000016 DISPLAY "ERROR" 000017 WHEN WKEY(IX1) = WDA1 + 12 000018 MOVE WDATA(IX1) TO WANS 000019 WHEN WKEY(IX1) = WDA1 + 30 000020 MOVE WDATA(IX1) TO WANS 000021 END-SEARCH 000022 END PROGRAM P2530.
P2530.cob 19: JMN2530I-S WHEN指定を記述してはなりません．指定を無視します．
詳細な説明
UNSTRING文では，DELIMITED指定を記述しなかった場合，DELIMTER指定あるいはCOUNT指定を記述してはなりません．
SEARCH ALL文ではWHEN指定を複数記述してはなりません．
WHEN OTHER指定を複数記述してはなりません．
