【入門編】INDEXおよびVERIFY関数による文字列検索の最適化 – PL/Iの基本構文とデータ制御実践ガイド

メインフレームの門を叩いた皆さん、ようこそ！JavaやCOBOLという「秩序ある世界」からやってくると、PL/Iの自由奔放さに最初は戸惑うかもしれませんね。

「えっ、変数名に `IF` を使ってもいいの？」
「予約語がないって、コンパイラはどうやって文を解析しているの？」

そうなんです。PL/Iは非常に懐が深いというか、ある意味「野性的」な言語です。今日は、そんなPL/Iの不思議なルールを覗きつつ、実務で絶対に避けては通れない「文字列検索（INDEXとVERIFY）」の最適解について、現場の視点でお話しします。

—

Javaでは `if` や `while` を変数名にしようものならコンパイルエラーになりますが、PL/Iには「厳密な意味での予約語」が存在しません。

例えば、こんな宣言が許されてしまいます。
/i
DCL IF CHAR(10); / 変数名が「IF」だなんて、ドキドキしますよね /

なぜこれが許されるのか？
PL/Iのコンパイラは、文脈（コンテキスト）で判断しています。「ここは命令文の始まりか？それとも単なる変数か？」を、その前後の記号や配置から読み取っているのです。まるで、空気を読んで会話を汲み取るベテランの職人のような言語なんですよ。

ただ、現場の鉄則として「分かりやすい名前をつけること」は変わりません。後輩がコードを読み解く際、変数名が `IF` や `DO` だと、デバッグする側が頭を抱えてしまいますよね。自由があるからこそ、コードの「品格」は書き手に委ねられている。それがPL/Iの面白いところです。

—

基幹システムでのデータ加工、特にCSV形式のファイルや固定長レコードを扱う際、特定の文字を探す作業は毎日のように発生します。ここで使うのが `INDEX` 関数と `VERIFY` 関数です。

`INDEX(ソース文字列, 検索文字列)` は、指定した文字列が最初に現れる位置を返します。

/i
DCL STR CHAR(20) INIT(‘IBM-MAINFRAME-COOL’);
DCL POS FIXED BIN(15);

/ 「-」が最初に現れる位置を探す /
POS = INDEX(STR, ‘-‘);
/ POSには「4」が入ります。単純明快ですね。 /

一方で `VERIFY` は少し性格が違います。「この文字列の中に、指定した文字以外のものが含まれていないか？」をチェックするのに使います。バリデーション（入力チェック）の王様です。

/i
DCL DATA CHAR(5) INIT(‘12345’);
DCL RESULT FIXED BIN(15);

/ 全て数字かどうかを検証 /
RESULT = VERIFY(DATA, ‘0123456789’);
/ 全て数字なら「0」が返る。もし「12A45」なら「3」が返る（Aの位置）。 /

—

ここが一番の落とし穴です。初心者が現場で真っ先にハマるのが、検索対象が空っぽの時の挙動です。

現場の教訓：
「0が返ってきたから見つかった！」と勘違いしてはいけません。特に `VERIFY` で0が返ってきたとき、それは「正常（含まれていない）」なのか「データ自体が空」なのかを意識する必要があります。

/i
/ 安全なチェック方法の例 /
IF INDEX(DATA, ‘-‘) = 0 THEN
PUT SKIP LIST(‘ハイフンは含まれていません’);
ELSE
PUT SKIP LIST(‘ハイフンが見つかりました’);

—

PL/Iは古き良き言語ですが、その文法には「効率的に大量のデータを処理する」ための知恵が凝縮されています。`INDEX` や `VERIFY` を使いこなせれば、複雑なデータ変換ロジックも驚くほどスッキリ書けるはずです。

「予約語がない」という自由は、最初は戸惑うかもしれません。でも、一つずつ紐解いていけば、これほど書き手との距離が近い言語もありません。もしバグに遭遇しても、「コンパイラと対話しているんだな」と少し肩の力を抜いてみてください。

さあ、今日もメインフレームと一緒に、安定したシステムを動かしていきましょう！何か分からないことがあれば、いつでも聞いてくださいね。応援しています。