COBOLの文字列検索を教えて下さい。

質問

cobol初心者です。
「100バイトのレコードを複数件読み込み、決まった文字列を検索する」というPGMを作ろうとしています。

03 REC-1 PIC X(100)
03 REC-2 PIC X(05)

という定義があるとき

REC-1 = "abcdefghijklmnopqrstu…"　　　　　　　というデータに対して、
REC2 = "hijkl"　　　　　　　　　　　　　　　　　　　　の検索をしたい場合
どのようなコーディングで調べることができるのでしょうか？

何レコード目の何バイトでヒットしたかを表示したいので、
INSPECT命令は使用せず、REC-1を１バイト単位で取り出して、
１文字ずつ判定しようと思っています。
レコードを越えてのヒットは行いません。

この場合配列を使うという考え方は正しいですか？

読み込んだ100バイトのレコードを1バイト単位で取り出して比較するには、
REDEFINEを用いて再定義すると考えています。
その場合のREADでの読み込み方がよくわかりません。
コーディング例等を載せてもらえると助かります。

cobolをはじめたばかりで、基本的な知識が抜けているかもしれません・・・
よろしくお願い致します。

回答No.2

notnot

unstring が使えそうな気がしたので、やってみました。
unstring は、ある意味で、ポインタを進めながら文字列を探す機能なので、それを使います。
ptr が、「ここまで探した。次はここから探す」というインデクスです。
プログラム中の10はデータ長、2は探す文字列長です。

identification division.
program-id. samp1.
data division.
working-storage section.
01 data1 pic x(10) value "1234123423".
01 key1 pic x(02) value "23".
01 dmy pic x(10).
01 ptr pic 9999 comp value 1.
01 pre pic 9999 comp.
01 cnt pic 9999 comp.
01 wk pic 9999 comp.
procedure division.
perform
until ptr greater 10
compute pre = ptr
unstring data1 delimited by key1 into dmy
count cnt pointer ptr
end-unstring
if ptr not = pre+cnt
compute wk = ptr - 2
display "Found at ", wk
end-if
end-perform
stop run.

あまりわかりやすくないですね。NO1の方のように部分文字列を使う方が直感的。

回答No.1

nora1962

文字列中にある文字列がどこにあるかを検索するアルゴリズムには「ボイヤー・ムーア法」という有名な方法があります。
http://itpro.nikkeibp.co.jp/article/MAG/20061115/253802/

が、そんなに凝らないで単純比較でやるなら
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DISP-M.
03 FILLER PIC X(4) VALUE "JKL=".
03 I PIC 9(2).
77 REC-1 PIC X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
77 REC-2 PIC X(3) VALUE "JKL".
77 END-F PIC X(3) VALUE "OFF".
PROCEDURE DIVISION.
PERFORM VARYING I FROM 1 BY 1 UNTIL I >= 24
IF REC-1(I:3) = REC-2 THEN
DISPLAY DISP-M
EXIT PERFORM
END-IF
END-PERFORM.
STOP RUN.
こんな感じかな。
後は、ファイル入力して回していくということで。