PL/Iの世界へようこそ！「予約語がない」という不思議な自由と、INDEX関数が隠し持つ高速性能の秘密
こんにちは。メインフレームの世界へようこそ。JavaやCOBOLという素晴らしい世界からやってきた皆さんにとって、PL/I（ピー・エル・アイ）は最初、「少し変わったルールを持つ古い言語」に見えるかもしれません。
でも、安心してください。PL/Iは、C言語の柔軟性とCOBOLのデータ処理能力を兼ね備えた、非常に強力で「人間味のある」言語なんです。今日は、PL/Iがどうしてこれほど愛されているのか、その片鱗を「識別子の自由さ」と「INDEX関数の最適化」というテーマで紐解いていきましょう。
—
1. PL/Iには「予約語」がない？ 魔法のような命名規則
JavaやCOBOLを触ってきた皆さんが一番驚くこと。それは、「PL/Iには完全な予約語が存在しない」ということでしょう。
例えば、`IF`や`THEN`といった構文要素であっても、変数名として使うことができてしまうんです。
/i
/ 極端な例ですが、こんな書き方も文法的には許されてしまいます /
DCL IF CHAR(10) INIT(‘APPLE’);
DCL THEN CHAR(10) INIT(‘ORANGE’);
IF = ‘BANANA’; / これは変数IFへの代入 /
なぜこんな仕様なの？
これはPL/Iが「文脈依存」で解釈される言語だからです。コンパイラは、その単語が「命令なのか、変数名なのか」を、前後関係（文脈）から賢く判断します。
初学者へのアドバイス：
「じゃあ何でも自由に使っていいんだ！」と喜ぶのは少し待ってくださいね。あまりに奇抜な名前をつけると、後でソースコードを読む自分自身が混乱してしまいます。現場では「予約語のような名前は使わない」のが暗黙の了解。自由があるからこそ、美しく書く「規律」が求められる、大人の言語なのです。
—
2. INDEX関数：ハードウェアの呼吸を感じる瞬間
さて、実務で最も頻繁に使う関数の一つに`INDEX`があります。これは「文字列の中から特定の文字を探す」ための関数ですね。
/i
/ SEARCH_STRの中からTARGETを探す /
POS = INDEX(SEARCH_STR, TARGET);
一見、普通の文字列検索関数に見えますが、IBMのメインフレーム上で動くPL/Iの`INDEX`は、単なるループ処理ではありません。バックグラウンドでは、IBMのCPUが持つ強力な命令セット（CLC命令：比較や、TRT命令：テーブル変換と検索など）が呼び出されています。
なぜ速いのか？
Javaで文字列検索を行う場合、多くはメモリ上を1バイトずつ舐めるような処理になりますが、PL/Iのコンパイラは、ターゲット文字列の長さやメモリ配置を検知し、ハードウェアが最も効率よく処理できる命令を自動的に選択します。まさに、ハードウェアを直接手足のように操る感覚に近いですね。
—
3. 「空文字列」の仕様に潜む落とし穴
ここで、現場でよくあるトラブルシューティングの話をしましょう。「検索対象が空文字列（長さ0）の場合、INDEXは何を返すか？」という問題です。
結論から言います。PL/IのINDEX関数は、空文字列を探す場合、常に「1」を返します。
/i
DCL SOURCE CHAR(10) INIT(‘ABCDE’);
DCL TARGET CHAR(0) INIT(”); / 空文字列 /
DCL POS FIXED BIN(15);
POS = INDEX(SOURCE, TARGET);
/
- 実行結果: POSには ‘1’ が入ります。
- 「見つからなかったら0」という期待でコードを書くと、
- バグの温床になるので注意してくださいね！
/
なぜ「1」なのか？
数学的な論理として、「どんな文字列の先頭にも『空』は存在している」とみなすためです。COBOLなどで「見つからない＝0」という慣習に慣れているとドキッとする挙動ですが、仕様を理解していれば怖くありません。
—
4. 実務で役立つ！効率的なINDEX活用のコード例
最後に、実務でそのまま使える安全な検索のテンプレートを残しておきます。
/i
/————————————————————/
/ 文字列検索の安全な実装パターン /
/————————————————————/
DCL INPUT_DATA CHAR(100) VAR; / 可変長文字列 /
DCL SEARCH_KEY CHAR(10) VAR;
DCL POS FIXED BIN(15);
INPUT_DATA = ‘IBM_MAINFRAME_POWER’;
SEARCH_KEY = ‘FRAME’;
/ 検索の実行 /
POS = INDEX(INPUT_DATA, SEARCH_KEY);
IF POS > 0 THEN DO;
PUT SKIP LIST(‘見つかりました！位置は: ‘ || POS);
END;
ELSE IF POS = 0 THEN DO;
PUT SKIP LIST(‘対象文字列は存在しませんでした’);
END;
/ 空文字列のケースなどを考慮する場合は、ここに詳細な判定を加える /
最後に
PL/Iは、一見すると「古くさい」と思われがちですが、その実態は「ハードウェアの性能を極限まで引き出すために設計された、合理的で非常に洗練された言語」です。
ルールが独特なのは、それだけ「自由度」と「効率」を追求した結果。一つずつ紐解いていけば、これほど強力な武器はありません。皆さんのメインフレーム移行プロジェクトが、少しでもスムーズで楽しいものになりますように。応援しています！
