cobol - COBOL で文字列内の部分文字列を検索する

Question

私の問題は、ファイルから読み取った変数が与えられた場合、それが別の文字列を含むか一致するかどうかを確認することです。

言い換えれば、変数が

ブラッドピック X(30)

キーボードによって導入された文字列に一致するか、それを含みます。

この問題は INSPECT 命令によって解決されると確信しており、コードで次のようなことを試しました。

           READ BRANCHFILE NEXT RECORD 
             AT END SET EndOfFile TO TRUE
           END-READ.
           PERFORM UNTIL EndOfFile
               INSPECT BBRADD 
                 TALLYING CONT for CHARACTERS
                   BEFORE INITIAL CITY
               IF CONT>1
                   DISPLAY " BRANCH CODE    :" BBRID
                   DISPLAY " BRANCH NAME    :" BBRNAME
                   DISPLAY " BRANCH ADDRESS :" BBRADD
                   DISPLAY " PHONE          :" BBRPH
                   DISPLAY " E-MAIL         :" BEMAIL
                   DISPLAY " MANAGER NAME   :" BMGRNAME
                   DISPLAY " ------------------"
                   DISPLAY " ------------------"
               END-IF
               READ BRANCHFILE NEXT RECORD 
                   AT END SET EndOfFile TO TRUE
               END-READ
               MOVE 0 TO CONT
           END-PERFORM.

CITY は、キーボードから導入する変数です。

「文字列」から「部分文字列」を見つける方法を知っている人はいますか?

たとえば、"Zaragoza" を導入した場合、プログラムは、変数 BBRADD に "Zaragoza" が含まれるファイル内のすべてのレコードを出力する必要があります。

01 BRANCHREC. 
   88 EndOfFile VALUE HIGH-VALUE. 
   02 BBRID PIC X(6). 
   02 BBRNAME PIC X(15). 
   02 BBRADD PIC X(30). 
   02 BBRPH PIC X(10). 
   02 BEMAIL PIC X(20). 
   02 BMGRNAME PIC X(25).