こんにちは！IBMメインフレームの世界へようこそ。システムアーキテクトの私です。
普段はJavaやCOBOLといったモダン、あるいは堅実なビジネス言語をバリバリ書いているあなたにとって、突然目の前に現れた「PL/I（ピーエルワン）」のソースコードは、まるで古代文字のパズルのように見えているかもしれません。「なんだこの大文字の羅列は…」「変数名のルールはどうなっているんだ？」と、冷や汗をかいている方もいらっしゃるのではないでしょうか。
でも、どうぞ安心してください。怖がる必要はまったくありません。今回は、PL/Iにおけるデータの型変換、その核心である `BINARY`、`DECIMAL`、`FLOAT` のビルトイン関数 について、基幹システムの現場の空気感も交えながら、優しく丁寧に紐解いていきます。
—
1. 他言語とはちょっと違う？PL/Iの「キーワード」と命名規則のやさしいお話
JavaやCOBOLを触ってきた方なら、「予約語（言語の命令語として使われているから、変数名に使っちゃいけない単語）」という概念はお馴染みですよね。例えば、Javaなら `class` や `int` を変数名にしようものなら、コンパイラに激怒されます。
ところが、PL/Iの非常にユニークで、初学者が最初に腰を抜かすポイントがここです。
「PL/Iには、厳密な意味での予約語が存在しない」 のです。
「えっ、じゃあ `READ` っていう命令があるのに、`READ` っていう名前の変数を作ってもいいの？」
はい、驚くことにコンパイルエラーにはなりません。PL/Iのコンパイラは、文脈（コンテキスト）から「おっ、ここで出てきた `READ` は、どうやら変数名だな」「こっちの `READ` は命令だな」と、空気を読んで賢く判断してくれます。
とはいえ、実務の現場で `READ` や `IF` を変数名にする猛者は……流石にいません（笑）。後からコードを読むプログラマ（数年後のあなた自身を含む）が泡を吹いて倒れてしまいますからね。常識的な範囲で美しい名前をつけてあげましょう。
—
2. なぜ「明示的変換（ビルトイン関数）」が必要なのか？
さて、本題のデータ制御に入りましょう。
計算をしたり、ファイルを読み書きしたりする中で、「あ、この数値を違う型のデータに直したいな」という場面は日常茶飯事です。
PL/Iは非常に懐が深い言語なので、私たちが何も言わなくても、コンパイラが勝手に型を合わせてくれる 「暗黙的変換」 をこっそりやってくれます。
「おや、2つのデータ型が違うから、こっちでいい感じにキャストしといたよ！」という具合です。
……一見、すごく親切に見えますよね？
しかし、これこそがレガシーシステムのバグの温床 なのです。
コンパイラに「おまかせ」すると、意図しない桁落ち（オーバーフロー）が起きていたり、小数点以下の丸め誤差が発生していても、エラーを出さずにしれっと処理が進んでしまうことがあります。基幹システムのバッチ処理で、お金の計算が数円ズレていたら大問題ですよね。
だからこそ、プログラマが「私はここで、このデータをこの型に、こういう精度で変換したいんだ！」と意思表示（明示）するために使うのが、今回紹介するビルトイン関数たちです。
—
3. 三大変換ビルトイン関数：`BINARY`, `DECIMAL`, `FLOAT` の使い方
PL/Iには、型の変換を行うための強力なビルトイン関数が用意されています。代表的な3つを見ていきましょう。
1. `BINARY`（または `BIN`）: 2進数表現（コンピュータにとって一番自然な形）へ変換します。
2. `DECIMAL`（または `DEC`）: 10進数表現（人間の感覚に近く、金融計算で必須の固定小数点など）へ変換します。
3. `FLOAT`: 浮動小数点数（科学技術計算や、非常に大きな/小さな数値を扱うとき）へ変換します。
これらは単に「型を変える」だけでなく、「変換した後の精度（桁数）」まで指定できるのが最大の特長です。
実践！PL/Iコードでみる型変換の作法
それでは、実際のメインフレームのプログラムをイメージしたサンプルコードを見てみましょう。大文字で書かれた独特の佇まいに、少しずつ慣れていってくださいね。
1
CONV_SAMPLE: PROC OPTIONS(MAIN);
/ 変数の宣言 /
DCL W_TEXT_NUM PIC ‘99999’ INIT(‘12345’); / 文字列っぽく扱っている数値データ /
DCL W_BIN_VAL FIXED BIN(31); / 32ビットの2進数整数 /
DCL W_DEC_VAL FIXED DEC(7,2); / 7桁、うち小数点以下2桁の10進数 /
DCL W_FLT_VAL FLOAT DEC(6); / 浮動小数点数 /
/ 1. 文字（ピックチャ）データを、安全にDECIMAL（10進数）へ明示変換 /
/ ROUND関数やDECビルトイン関数を組み合わせて、精度の破綻を防ぎます /
W_DEC_VAL = DECIMAL(W_TEXT_NUM, 7, 2);
PUT SKIP EDIT (‘DECIMAL変換結果: ‘, W_DEC_VAL) (A, F(10,2));
/ 2. そのDECIMALデータを、高速な演算用の BINARY（2進数）へ変換 /
/ 内部的なループカウンタや算術演算の直前でよく使われます /
W_BIN_VAL = BINARY(W_DEC_VAL, 31, 0);
PUT SKIP EDIT (‘BINARY変換結果: ‘, W_BIN_VAL) (A, F(10));
/ 3. さらに科学技術計算や統計処理のために FLOAT（浮動小数点）へ変換 /
W_FLT_VAL = FLOAT(W_BIN_VAL);
PUT SKIP EDIT (‘FLOAT変換結果: ‘, W_FLT_VAL) (A, E(12,4));
END CONV_SAMPLE;
コードの解説と、現場で役立つ「精度」の考え方
- `DECIMAL(W_TEXT_NUM, 7, 2)` の部分
ここでは、文字として保持されていたデータを `FIXED DEC(7,2)` という「全体で7桁、小数点が2桁」の10進数形式にカチッと当てはめています。もし元のデータが大きすぎて入り切らない場合、PL/Iは実行時エラー（コンディション）を検知してくれます。コンパイラにこっそり丸められて気づかないより、エラーで止まってくれた方が、バグの早期発見につながるため圧倒的に安全なのです。
- `BINARY(…, 31, 0)` の部分
メインフレームのCPU（IBM Z）は、2進数の計算を猛烈なスピードでこなします。データベースのキー項目や、ループのカウンターなど、正確な整数演算が必要な場所では、このように `BINARY` に明示変換して処理パフォーマンスを最大化させます。
—
4. アーキテクトからのアドバイス：怖がらずに、一歩ずつ
レガシーシステムのソースコードを初めて触るときは、誰もが緊張します。「変な書き方をしてシステムを止めたらどうしよう」と不安になることもあるでしょう。
しかし、PL/Iのビルトイン関数による明示的変換は、言ってみれば「プログラマがコンパイラと交わす、安全のための約束事」です。「私はこのデータを、こういう意図と精度で扱います」とコード上でハッキリ宣言してあげることで、意図しないデータ化けや、保守フェーズでの思わぬ不具合を綺麗にブロックすることができます。
ルールや構文は、一つひとつ紐解いていけば必ず理解できます。
今日学んだ `BINARY`、`DECIMAL`、`FLOAT` のお供を連れて、ぜひ明日のメインフレーム開発を楽しんでみてくださいね。あなたのレガシー移行の旅を、心から応援しています！
