導入: なぜ数値にカンマが必要なのか？
COBOLで扱う数値データは、内部的には「12345」といった無機質な数字の羅列です。しかし、帳票や画面に表示する際、そのまま出力すると桁数が多くなった時に読みづらくなってしまいます。「12,345」のようにカンマがあるだけで、人間にとっては一目で金額を認識できるようになりますね。今回は、COBOLの強力な機能である「編集文字」を使って、数値を美しく整える方法を解説します。
基礎知識: 編集文字（PIC句）の仕組み
COBOLのデータ定義（PIC句）では、単に数字を保存するだけでなく、出力時の形式を指定できます。これを「編集項目」と呼びます。
今回扱う「,（カンマ）」は、指定した位置にカンマを挿入する編集文字です。ここで重要なのが「ゼロ抑制（Z）」との組み合わせです。
Zは「数値が0の時に空白（スペース）に置き換える」という指示で、これとカンマを組み合わせることで、「桁が足りない場合はカンマも一緒に消す」という高度な整形が自動で行われます。
実装/解決策: 編集文字のルール
編集項目を定義する際は、以下のルールを意識してください。
1. 編集項目は、計算用には使えません（あくまで表示用です）。
2. 計算結果を編集項目へMOVEすることで、自動的にカンマが付与されます。
3. 編集項目の桁数は、元の数値よりも大きく確保する必要があります。
サンプルプログラム: カンマ付きで金額を表示する
以下のコードをコピーして、実際に動作を確認してみてください。
IDENTIFICATION DIVISION.
PROGRAM-ID. EDIT-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 計算用の数値項目（カンマなし）
01 WS-AMOUNT-RAW PIC 9(07) VALUE 1234567.
01 WS-SMALL-RAW PIC 9(07) VALUE 500.
- 編集後の項目（カンマ付き）
- Zはゼロ抑制、9は必ず表示する末尾の桁
01 WS-AMOUNT-EDIT PIC ZZ,ZZZ,ZZ9.
01 WS-SMALL-EDIT PIC ZZ,ZZZ,ZZ9.
PROCEDURE DIVISION.
- 数値を編集項目に転記（ここで自動的にカンマが挿入されます）
MOVE WS-AMOUNT-RAW TO WS-AMOUNT-EDIT.
MOVE WS-SMALL-RAW TO WS-SMALL-EDIT.
DISPLAY “— 編集結果 —”
DISPLAY “大きい金額: ” WS-AMOUNT-EDIT
DISPLAY “小さい金額: ” WS-SMALL-EDIT
STOP RUN.
応用・注意点: 現場で役立つポイント
現場でよくある失敗として、「編集項目を計算に使おうとしてエラーになる」ケースが非常に多いです。編集項目はあくまで「出力用」です。計算は必ずPIC 9などの数値項目で行い、最後にMOVEして表示するようにしましょう。
また、カンマの数や位置を間違えると、意図した場所に出力されません。特に桁数が多い場合は、PIC句の定義と実際の桁数が一致しているか、必ず確認する癖をつけてください。この「編集文字」を使いこなせれば、あなたの書くプログラムの帳票出力は見違えるほどプロフェッショナルなものになりますよ！
コメント