RPG　1行では、無理です。
すべて１バイト文字として扱う。　
まず　探索語を提示します。
(長さ１の配列に並べる。OEOFは除去。)

次に開始１バイトの一致する場所を見つける。
次のバイトをそれぞれ比較する。
探索語の長さまで続ける。



　

漢字で検索しようとすると確かに両端のシフト文字が邪魔になりますね。

これを避けるには検索のために文字を入力するフィールドを
TYPE　G　(グラフイック・フィールド)　として定義してみては
どうでしょうか　?
G　フィールドであればシフト文字のない漢字文字列となります
ので漢字を自由に検索することができます。

この方法なら簡単に解決できますね。

以下のように実装してます

例）
検索文字を入力する箇所　１０バイト
検索対象　６０バイトとします

ＳＴＥＰ１：検索入力文字・検索対象から０Ｅ、０Ｆを取って左詰めします。
検索入力文字でしたら、１バイトの長さで１０テーブルの配列を用意して
ＤＯで１０回　回してＯＥ，ＯＦ以外を配列にいれます。
検索対象も同じことをします。

ＳＴＥＰ２：配列を１バイトづつ比較
検索入力文字の配列をＤＯで回して、検索対象文字の配列と１バイトづつ比較して
完全一致したら、ＤＯループをＬＥＡＶＥする。

他にも方法はあると思いますが、％あああ％のような検索は、
上記のような手順で実装可能です。
がんばってみてください

AAA様　IKD様　INAX様

ご返事が大変遅くなり申し訳ありません。
頑張ってやってみます。
皆さまご丁寧にありがとうございました！



>　マスタ照会の検索画面をＤＤＳとＲＰＧで作っています。
>　マスタというのは品名や取引先等です。
>　
>　あいまい検索がしたく、１バイト文字ならそれぞれの桁を
>　SCANしてできるのですが、２バイト文字（漢字やひらがな）
>　のやり方がわかりません。
>　どなたかご教授いただけないでしょうか。
>　
>　RPGでscanを試したり、CLでOPNQRYFの%WLDCRDを
>　試してみたり色々調べてやってみましたが、うまくいきません。
>　２バイト文字の両端にあるシフト文字が邪魔をするのだと思います。
>　
>　QRY400にある　LIKE　'%入力項目%'のようなことがやりたいのです。
>　入力項目は変数です。よろしくお願いいたします。
>　

AAA様　IKD様　INAX様

ご連絡遅くなり申し訳ありません。
最初はまったく意味が分かりませんでしが、
皆様の文書を解釈しながらようやく
完成することができました。なんというか
本当に文書通りのことをやったらできました。
皆さまご丁寧にありがとうございました！

質問者様と同じ事がしたく悩んでいます。
'０Ｅ、０Ｆを取って左詰め'のやり方がわかりません。

どなたかやり方を教えていただけないでしょうか？