こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLといったモダン、あるいはビジネスチルドレンな言語をバリバリ書いてきた方にとって、IBMメインフレームの「PL/I（ピーエルアイ）」という名前を聞くだけで、なんだか背筋がスッと伸びてしまうかもしれませんね。
「変数の命名規則はどうなっているんだろう？」
「なんだか古めかしい記号が出てきそう……」
大丈夫です、安心してください。怖がる必要はまったくありません！今回は、基幹システムの会計処理において避けて通れない、PL/Iのちょっとユニークで実用的な機能――PICTURE編集文字の `CR` と `DB` について、優しく、そして深く紐解いていきましょう。
—
1. 他言語とはひと味違う？PL/Iの「識別子」と「予約語を持たない」懐の深さ
まず、PL/Iの世界に飛び込む前に、JavaやCOBOL経験者が一番最初に驚くポイントに少しだけ触れておきますね。
Javaには `public` や `class` といった、変数名に使えない「予約語」がたくさんありますよね。COBOLにも膨大なリザーブワードが存在します。しかし、PL/Iの言語仕様には、厳密な意味での「予約語」が存在しません。
「えっ、じゃあどうやってコンパイラは判断しているの？」と思いますよね。
PL/Iのコンパイラは、その文脈（Context）から「あ、ここは命令句だな」「ここは変数の名前だな」と空気choを読むのが非常に得意なんです。
たとえば、極端な話、 `IF` という名前の変数を宣言して、 `IF = 10;` なんて書いても、コンパイラは怒りません（※後々のメンテナンスで自分が泣くことになるので絶対やめましょうね！）。
この「プログラマーの自由度を最大限に尊重する」設計思想が、PL/Iの大きな特徴であり、愛すべきポイントなのです。
—
2. 会計処理の必須科目！PICTURE句と `CR` / `DB` の世界
さて、本題に入りましょう。基幹システムの勘定系や財務諸表のバッチプログラムを作っていると、必ずと言っていいほど直面するのが「マイナス金額の表現」です。
画面や帳票に出力するとき、マイナス記号（`-`）をそのまま出すよりも、
- `123,456.78 CR` （Credit：貸方）
- `123,456.78 DB` （Debit：借方）
このように、金額の後ろに「CR」や「DB」をつけて表現したほうが、経理担当者にとっては圧倒的に視認性が良く、ミスを防げますよね。
Javaの `DecimalFormat` や COBOLの `PICTURE IS 9(6)V99 CR` などでお馴染みの仕様ですが、PL/Iでもこの `CR` と `DB` をPICTURE編集文字としてスマートに使うことができます。
どうやって動いているの？（内部の仕組み）
PL/Iにおいて、数値を `CR` や `DB` 付きの文字（Character）型に変形するとき、コンパイラは次のような判定を行っています。
1. 符号のチェック: 元の数値データが「負（マイナス）」であるかどうかを確認します。
2. フォーマットの切り替え:
- 負の値の場合: あらかじめ指定した位置に、文字通りの `CR` または `DB` がガチャンとパッチされます。
- 正（プラス）またはゼロの場合: `CR` や `DB` が書かれている場所には、綺麗に「スペース（空白）」がパディング（埋め立て）されます。
文字が潰れたり変なゴミデータが入ったりしないか心配になりますが、そこはさすが歴史あるメインフレームのコンパイラ。自動的によろしく計らってくれます。
—
3. 教えて！実務で使えるPL/Iコード例
百聞は一見にしかず。実際に `CR` と `DB` を使ったPL/Iのサンプルプログラムを見てみましょう。
メインフレームの現場の雰囲気を味わえるよう、伝統的な大文字スタイルで記述しています。
1
/ ======================================================= /
/ プログラム名: ACC0010P /
/ 概要: 勘定残高の金額にCR/DB編集を適用するサンプル /
/ ======================================================= /
ACC0010P: PROC OPTIONS(MAIN);
/ ————————————————– /
/ データ定義 (DECLARE) /
/ ————————————————– /
/ 内部計算用の数値項目 (パック十進数: 符号付き 9桁・小数2桁) /
DCL WK_ZANCAK DEC FIXED(9,2) INIT(0);
/ 編集後の出力用文字項目 (CR用) /
/ ‘Z’は先行ゼロをブランクに置き換えるゼロサプレッション /
DCL OUT_CR PIC ‘ZZZ,ZZZ,9.99 CR’;
/ 編集後の出力用文字項目 (DB用) /
DCL OUT_DB PIC ‘ZZZ,ZZZ,9.99 DB’;
/ ————————————————– /
/ 処理ロジック (PROCEDURE) /
/ ————————————————– /
— Case 1: マイナスの金額をセットしてみます（貸方オーバーのイメージ）
WK_ZANCAK = -123456.78;
— PICTURE編集項目に代入するだけで、自動的にフォーマットされます
OUT_CR = WK_ZANCAK;
OUT_DB = WK_ZANCAK;
PUT SKIP LIST(‘— 負の値の場合の出力 —‘);
PUT SKIP EDIT (OUT_CR) (A); コピペで確認: ” 123,456.78 CR” と出力されます
PUT SKIP EDIT (OUT_DB) (A); コピペで確認: ” 123,456.78 DB” と出力されます
— Case 2: 今度はプラスの金額をセットしてみます
WK_ZANCAK = 98765.43;
OUT_CR = WK_ZANCAK;
OUT_DB = WK_ZANCAK;
PUT SKIP LIST(‘— 正の値の場合の出力 —‘);
PUT SKIP EDIT (OUT_CR) (A); コピペで確認: ” 98,765.43 ” (末尾はスペース)
PUT SKIP EDIT (OUT_DB) (A); コピペで確認: ” 98,765.43 ” (末尾はスペース)
END ACC0010P;
コードのポイント解説
- `DEC FIXED(9,2)`: COBOLでいう `COMP-3`（パック十進数）に相当する、メインフレームではおなじみの効率的な数値データ型です。
- `PIC ‘ZZZ,ZZZ,9.99 CR’`: ここが今回の主役です。最後の `CR` の文字数（2文字分）を含めた長さをコンパイラが自動で計算し、領域を確保してくれます。
- プラスの値を代入したときに、`CR` の部分が自動的に空白（スペース）に変わる挙動は、帳票のレイアウト崩れを防ぐために非常に重要なポイントです。ここを知っているだけで、マイグレーション時の仕様調査で慌てずに済みますよ！
—
4. まとめ：レガシーの世界も、紐解けば怖くない！
今回は、PL/Iにおける識別子の懐の深さと、PICTURE編集文字 `CR` / `DB` の会計処理における振る舞いについて解説しました。
一見すると難解に見えるメインフレームのコードも、その背景にある「なぜそのような仕様になっているのか（経理帳票の可読性を上げるためなど）」という理由を知ってしまえば、怖さは驚くほど薄れます。
JavaやCOBOLで培ったプログラミングの基礎力があれば、PL/Iの習得は決して高い壁ではありません。
もし現場で古いソースコードと格闘する機会があれば、「ふむふむ、コンパイラがうまく空気（文脈）を読んでくれているんだな」と、優しく心の中で声をかけてあげてくださいね。
あなたのメインフレームライフが、実り多いものになりますように！システムアーキテクトの私でした。また次回の記事でお会いしましょう！
