埋め込みの説明
@1@ : SEARCH．
@2@ : 定義済みオブジェクト一意名SELF，定義済みオブジェクト一意名SUPER，定義済みオブジェクト一意名EXCEPTION-OBJECT，クラス名，メソッドの行内呼出し，オブジェクト指定子付きの一意名または定義済みオブジェクト一意名NULL．
例題
[C5535.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5535. 000003 ENVIRONMENT DIVISION. 000004 IDENTIFICATION DIVISION. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 PROCEDURE DIVISION. 000009 IDENTIFICATION DIVISION. 000010 METHOD-ID. M5535. 000011 ENVIRONMENT DIVISION. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 WGRP. 000015 02 WOCC OCCURS 10 INDEXED BY IX1. 000016 03 PIC X. 000017 PROCEDURE DIVISION. 000018 SEARCH SELF VARYING IX1 000019 WHEN WOCC(IX1) = "X" 000020 DISPLAY "FIND" 000021 END-SEARCH 000022 END METHOD M5535. 000023 END OBJECT. 000024 END CLASS C5535.
C5535.cob 18: JMN5535I-S 定義済みオブジェクト一意名SELFはSEARCH文には記述できません．SEARCH文は無効になります．
C5535.cob 21: JMN2510I-S 対応しないEND-SEARCHが指定されています．END-SEARCHは，無効となります．
