こんにちは。メインフレームの世界へようこそ。
Javaの綺麗なオブジェクト指向や、COBOLの「英語に近い記述」に慣れ親しんだ方ほど、初めてPL/Iのソースコードを開いた時に「なんだか宇宙語みたいだな……」と戸惑うかもしれません。
でも、安心してください。PL/Iは、実は非常に柔軟で、プログラマの意図を汲み取ろうと努力しすぎるほど「賢い」言語なんです。今日は、そんなPL/Iの不思議な命名規則と、実務で絶対に避けては通れない「TRANSLATE関数」による高速処理の極意についてお話しします。
—
1. PL/Iの「予約語」は、実は存在しない？
JavaやC言語でプログラミングをしていると、「`if`や`while`は予約語だから変数名に使っちゃダメ」と教わりますよね。ところがPL/Iは、「予約語」という概念をあえて持たないという、かなり自由奔放な設計思想を持っています。
例えば、こんなコードが書けてしまいます。
/i
/ IFという名前の変数を宣言して、IF文で判定する /
DECLARE IF CHARACTER(10) INIT(‘TRUE’);
IF IF = ‘TRUE’ THEN
PUT SKIP LIST(‘条件は真です’);
このコードを見た時、「コンパイラはどうやって`IF`というキーワードと、`IF`という変数名を区別しているの？」と不思議に思いますよね。実は、PL/Iのコンパイラは「文脈（コンテキスト）」を非常に重視します。`IF`が文頭にあれば制御文として解釈し、代入文の中に現れれば変数として扱う。……まるで、空気を読んで会話する熟練のビジネスマンのような挙動です。
ただ、現場の鉄則として「誤解を招くコードは書かない」のがプロの流儀。予約語がないからといって、キーワードを変数名にするのはトラブルの元ですので、可読性を優先して避けるのが無難ですよ。
—
2. 魔法の関数「TRANSLATE」で文字変換を最適化する
さて、メインフレームの現場でよくあるのが「外部システムから来たEBCDICデータの文字コード変換」です。Javaなら`String.replace`を繰り返すところですが、PL/Iでは`TRANSLATE`関数という強力な武器を使います。
TRANSLATE関数の仕組み
`TRANSLATE(変換対象, 変換後文字列, 変換前文字列)` という構文を使います。これは、内部的に256バイトの変換テーブルをメモリ上に展開し、一気に文字をマッピングする仕組みです。
例えば、小文字のアルファベットを強制的に大文字へ、かつ特定の記号をスペースに置き換える処理を見てみましょう。
/i
DCL IN_DATA CHAR(10) INIT(‘abc@def-12’);
DCL OUT_DATA CHAR(10);
/
- TRANSLATEの真骨頂：
- 第2引数と第3引数の位置関係で変換テーブルを作る
- 例えば’a’を’A’に、’@’を’ ‘（スペース）に置換する
/
OUT_DATA = TRANSLATE(IN_DATA,
‘ABCDEF ‘, / 変換後の文字 /
‘abc@def-12’); / 変換前の文字 /
なぜこれが「効率的」なのか？
もし`IF`文や`SELECT`文で1文字ずつ判定していたら、CPU命令は膨大な数に膨れ上がります。しかし、`TRANSLATE`関数は、IBMメインフレームのハードウェアレベルで最適化された変換ロジックを呼び出します。
特にEBCDIC体系において、特定のコードポイントを高速に置換したい場合、変換テーブルを一度メモリに作ってしまえば、あとはメモリ上のアドレス参照だけで変換が終わります。 数百万件のバッチ処理を行う際、この「ループを回さない変換」は処理時間に決定的な差を生みます。
—
3. 初心者さんへのアドバイス：データ宣言を怖がらないで
PL/Iの`DECLARE`文は、一見すると呪文のように見えます。`FIXED BINARY`（2進数）、`FIXED DECIMAL`（パック10進数）など、データ型がメモリのどこをどう占有するかを細かく指定できるからです。
これは、メインフレームが「いかに効率よくメモリを使い、CPUパワーを絞り出すか」を追求してきた時代の名残です。
- まずは基本型を覚える: `CHAR(n)`（文字列）、`FIXED BIN(31)`（整数）の2つをメインで使いこなせば、業務の8割はこなせます。
- コンパイラを信じる: PL/Iは型変換（暗黙のキャスト）が非常に強力です。異なる型同士を演算しても、コンパイラが「おっと、合わせなきゃね」と気を利かせて型変換してくれます。
—
最後に：レガシーは「怖くない」
PL/Iは、古い言語ですが、その設計思想には「計算機資源をいかに無駄なく、かつ人間が意図した通りに動かすか」という、現代の言語にも通じる深い知恵が詰まっています。
「またコンパイルエラーが出た……」と落ち込む必要はありません。それはコンパイラがあなたに「ここ、もう少し明確に教えてくれない？」と問いかけているだけなのです。一つずつ、ブロックを積み上げるように紐解いていけば、必ずPL/Iという強力な相棒を使いこなせるようになりますよ。
また現場でお会いしましょう。何か具体的なエラーコードや、もっと深い解析が必要な時はいつでも聞いてくださいね！
