こんにちは！メインフレームの荒波へようこそ。
JavaやCOBOLといったモダン、あるいはビジネスチルドレンな言語をバリバリ書いてきた方にとって、IBMメインフレームの世界、そして「PL/I（ピーエルアイ）」という少しおめかしした名前の言語は、最初のうちはちょっと近寄りがたく見えるかもしれませんよね。
「なんだか大文字ばかりで無機質だし、謎の英略語が多そう…」
「ポインタとか、ストレージの管理とか難しそう…」
大丈夫です、安心してください。怖がる必要は全くありません！
今日は、PL/Iの世界への第一歩として、「文字列を効率よく探す（検索する）コツ」を、メインフレームの心臓部であるハードウェアの動きまで少しだけ覗き見しながら、一緒に紐解いていきましょう。Javaの `indexOf()` や COBOLの `INSPECT` とはどう違うのか、ワクワクしながら見ていきましょうね。
—
そもそもPL/Iの変数名には「予約語」がないって本当？
本題に入る前に、PL/Iのちょっとユニークで、他の言語の経験者ほど「えっ！」と驚く仕様についてお話させてください。
JavaやCOBOLには「予約語（Keyword）」というものがありますよね。例えば `IF` や `MOVE`、`class` などの言葉は、システムがあらかじめ特別な意味で使っているので、勝手に変数の名前にすることはできません。
ところが、PL/Iには原則として「固定の予約語」というものが存在しません。
「えっ、じゃあ `IF` って変数名にしちゃったらどうなるの！？」って思いますよね。
PL/Iのコンパイラは、その言葉が置かれた「文脈（コンテキスト）」で判断します。例えば、`IF A = 1 THEN …` と書いてあれば「あ、これは条件分岐の `IF` だな」と理解し、もし `IF = 5;` と書いてあれば「なるほど、`IF` という名前の変数に 5 を代入するんだな」と、ちゃんと空気を選んで解釈してくれるんです。
……とはいえ、実務の現場で `IF` なんて名前の変数を作ったら、コードレビューで先輩から優しく、そして厳しくツッコミが入ること間違いなしです。ですから、常識的な名前を付けるのが無難ですが、この「コンテキストで賢く解釈してくれる懐の深さ」こそが、PL/Iの面白いところなんですよ。
—
メインフレームの真骨頂！文字列検索の裏側を知ろう
さて、ここからが今日の本題です。
基幹システムのバッチ処理で、大量の電文（テキストデータ）から特定の文字やエラーコードを探し出すシーンを想像してみてください。
Javaなら `str.indexOf(“X”)`、COBOLなら `INSPECT` や `SEARCH` を使うところですが、PL/Iには強力な武器である `INDEX`関数 と `VERIFY`関数 が用意されています。
これらがなぜメインフレームで好まれるのか？
それは、これらが単なるソフトウェアループ（文字を1文字ずつ地道に舐めていく処理）ではなく、IBMメインフレームのハードウェア（CPU）が持つ専用命令をダイレクトに叩いているからなんです。
1. `INDEX` 関数：ピンポイントで文字の位置を射抜く
`INDEX(ターゲット文字列, 検索文字列)` は、文字通り「お目当ての文字列が、何文字目にあるか」を返してくれます。見つからなければ `0` が返ります。Javaの `indexOf()` とほぼ同じ感覚で使えますね。
この裏側では、メインフレームのCPUが持つ強力な命令（かつての `TRT`：Translate and Test命令や、現代の z/Architecture が持つ超高速な文字列スキャン命令など）がフル活用されています。CPUのキャッシュ効率を極限まで高めたメモリ走査を行うため、数百万件のレコードを処理するバッチでも、一瞬で結果を返してくれます。
2. `VERIFY` 関数：異端児（想定外の文字）を見つけ出す
もう一つの主役が `VERIFY(ターゲット文字列, 許可された文字セット)` です。
これが初学者泣かせの名前なのですが、意味が分かると手放せなくなる便利屋です。
「この文字列の中に、数字以外の文字が混ざっていないか？」
「指定された許可文字『以外』の文字が最初に登場するのはどこか？」
これを一発で探してくれます。例えば、数値項目であるはずのエリアに、うっかりスペースや英字が混入していないかをチェックするバリデーションで猛威をセ振るいます。
—
実践！PL/Iコードでみる最適化の作法
百聞は一見にしかず。実際に、この `INDEX` と `VERIFY` を使ったサンプルコードを見てみましょう。大文字ベースの、まさにレガシー現場の雰囲気をそのままお届けします。
—————————————————————–
- 文字列検索とバリデーションのサンプルプログラム
—————————————————————–
SEARCH_SAMPLE: PROC OPTIONS(MAIN);
/ 宣言部：文字データ（CHARACTER）の定義 /
DCL TARGET_DATA CHAR(50) INIT(‘AB12345-XYZ’);
DCL POS FIXED BIN(31,0);
DCL ERR_POS FIXED DISPLAY;
/ 1. INDEX関数の使用例：ハイフン(‘-‘)の位置を探す /
POS = INDEX(TARGET_DATA, ‘-‘);
IF POS > 0 THEN
PUT SKIP LIST(‘ハイフンを発見しました。位置は: ‘ || EDIT(POS)(F(2)) );
ELSE
PUT SKIP LIST(‘ハイフンは見つかりませんでした。’);
/ 2. VERIFY関数の使用例：数値(0-9)以外の文字が混入していないかチェック /
/ 以下の例では、’0123456789′ 以外の文字が最初に出現する位置を探す /
ERR_POS = VERIFY(TARGET_DATA, ‘0123456789’);
IF ERR_POS > 0 THEN
PUT SKIP LIST(‘数字以外の文字を検出しました位置: ‘ || EDIT(ERR_POS)(F(2)));
ELSE
PUT SKIP LIST(‘すべて数値で構成されています。’);
END SEARCH_SAMPLE;
コードのポイントとCPUサイクルを節約するコツ
- データの型合わせ（ストレージ属性）に注意
PL/Iで文字列を扱うときは `CHAR(長さ)` を使います。COBOLの `PIC X(50)` と同じイメージですね。この長さが固定（FIXED）か可変（VARYING）かによって、内部のメモリ構造が変わります。検索を最速で行いたいバッチ処理では、余計な長さ計算が発生しない固定長 (`CHAR`) を使うのが、CPUサイクルを無駄に消費しないためのシニアアーキテクトの知恵です。
- 自前でループを回さない
「1文字ずつ `IF` 文で比較して……」なんてループをPL/Iで書かないでくださいね。それをしてしまうと、ハードウェアの高速命令の恩恵（ハードウェア・アクセラレーション的な効果）が受けられず、バッチ処理の時間が何倍にも膨れ上がってしまいます。「文字列検索は組み込み関数（`INDEX` / `VERIFY`）に任せる」、これがメインフレームにおける鉄則です。
—
まとめ：レガシーの仕様は、怖くない！
いかがでしたでしょうか？
PL/Iの `INDEX` や `VERIFY` 関数、そして背後にあるハードウェアの息吹を感じていただけたなら嬉しいです。
「予約語がない」という自由度の高さや、「型とストレージ」の厳格さは、最初は少し戸惑うかもしれませんが、それらはすべて「メインフレームという巨大な鉄の塊で、巨大なデータを極限まで速く、安全に処理する」ために先人たちが洗練させてきた知恵の結晶です。
JavaやCOBOLでの経験があれば、データの流れをイメージする力はもう十分に備わっています。
怖がらなくて大丈夫。一つずつ、その奥深い仕様のストーリーを紐解いていけば、PL/Iほど書いていてエンジニアとしての手応えを感じる言語もそうそうありませんよ。
それでは、次回のメインフレーム・アーキテクチャ探訪もお楽しみに！
