導入：なぜ今さら「CR」「DB」なのか？
メインフレームで基幹システムを支えるエンジニアにとって、帳票の美しさは譲れないポイントです。特に経理や銀行のシステムでは、マイナス金額を「-1,000」と表示するのではなく、「1,000CR」や「1,000DB」と表記する慣習があります。PICTURE句の「CR」「DB」属性は、この複雑な条件分岐をプログラムのロジックではなく、データ定義（宣言）だけで自動的に解決してくれる、メインフレームならではの強力な武器なのです。
基礎知識：会計符号の仕組み
PICTURE句における「CR（Credit）」と「DB（Debit）」は、数値が負の場合にのみ、指定された位置に特定の文字列を付加する機能です。
通常、COBOL等のメインフレーム言語では、データ型に対してPICTURE属性で編集指示を出します。この属性の優れた点は、「数値が正のときは空白、負のときだけ文字を表示する」という条件判定を、言語処理系が内部で自動的に行ってくれる点です。これにより、帳票出力時のIF文や複雑な編集ロジックを大幅に削減できます。
実装・解決策：宣言的なレイアウト記述
この機能を活用するには、データ定義時にPICTURE句の末尾に「CR」または「DB」を記述するだけです。
例えば、残高（BALANCE）を表示する際に「1,234.56CR」のように出したい場合、PICTURE句で桁数と編集文字（カンマやドット）を指定し、最後に符号を指定します。これにより、データがプラスのときは「1,234.56 」と表示され、マイナスのときは「1,234.56CR」と表示されるようになります。
サンプルプログラム：COBOLによる実装例
以下に、この属性を活用した実用的なコード例を示します。
DCL-S BALANCE PACKED-DECIMAL(9, 2) INZ(-1234567); / 元データ：負数 /
DCL-S DISPLAY-VAL CHAR(15); / 編集後の格納先 /
/ 編集処理 /
/ Zは先行ゼロ抑制、9は数字、カンマとドットはそのまま表示 /
/ 最後にCRを配置し、負数の場合のみCRと表示させる /
MOVE BALANCE TO DISPLAY-VAL: ‘ZZZ,ZZ9.99CR’;
/ 結果として DISPLAY-VAL には ‘ 12,345.67CR’ が格納されます /
DISPLAY ‘編集結果: ‘ DISPLAY-VAL;
応用・注意点：オープン系への移行時の罠
この「CR」「DB」機能はメインフレーム特有の文化です。最近のJavaやPythonといったオープン系言語の標準ライブラリには、この「負数のみCR/DB変換」を直接行うフォーマッタが存在しないことがほとんどです。
もしメインフレームからオープン系へシステムを移行する場合、帳票様式を維持するためには、独自クラスでのフォーマッタ実装（カスタムフォーマッタ）が不可欠となります。移行作業の際は、単純なデータ移動だけでなく、この「会計符号」の挙動を再現する共通部品を早めに用意しておくことを強くおすすめします。
また、DB（Debit）とCR（Credit）を混同して帳票定義を行うと、経理上の意味合いが逆転してしまう重大なバグに繋がります。帳票の仕様書とPICTURE句の記述が整合しているか、必ずテストデータで正・負・ゼロの3パターンを確認するようにしてください。
コメント