【COBOL学習｜豆知識】COBOLで学ぶ！符号付数値 (USAGE DISPLAY) の奥深い世界

1. 導入：なぜ符号付数値 (USAGE DISPLAY) を理解する必要があるのか？

COBOLプログラマーの皆さん、こんにちは！今回は、日々の開発で必ずと言っていいほど遭遇する「符号付数値」の表現、特に `USAGE DISPLAY` について深掘りしていきましょう。
「え？符号なんて当たり前じゃない？」と思うかもしれませんが、COBOLの `USAGE DISPLAY` における符号の扱いは、他の言語とは少し勝手が違う場合があります。この違いを理解していないと、意図しないデータ変換でエラーが発生したり、データの整合性が崩れたりする原因になりかねません。
特に、外部システムとのデータ連携や、帳票出力、ファイル入出力など、データの「見た目」と「中身」が重要になる場面では、この `USAGE DISPLAY` の特性をしっかり把握しておくことが、バグを未然に防ぎ、スムーズな開発を進めるための鍵となります。

2. 基礎知識：`USAGE DISPLAY` とは？符号はどう表現される？

まずは基本からおさらいしましょう。
COBOLで数値を扱う際、その内部的な表現方法を指定するのが `PICTURE` 句と `USAGE` 句です。
`USAGE DISPLAY` は、数値を人間が読める文字（英数字）として表現する方法です。これは、COBOLが開発された当初から使われている、最も基本的な数値の表現形式と言えます。

さて、本題の「符号」ですが、`USAGE DISPLAY` の数値には、通常、数値そのものとは別に符号情報が付加されます。
一般的に、この符号は数値の末尾1バイトに「ゾーン符号」として重畳（ちょうじょう）されます。
「重畳」とは、文字通り、本来その場所にあるはずの数字の表現と、符号の表現が「重ね合わされている」状態を指します。

例えば、数字の ‘1’ を考えてみましょう。

正の数（+1）の場合：数値の ‘1’ を表す文字と、正の符号を表す情報が組み合わされます。
負の数（-1）の場合：数値の ‘1’ を表す文字と、負の符号を表す情報が組み合わされます。

この「重畳」の結果、一見すると数値だけのはずなのに、文字化けしたように見えることがあります。
例えば、負の ‘1’ が `J` という文字で表現されることがあります。これは、COBOLの内部的な仕組みとして正しい表現なのです。
このゾーン符号の他に、`SIGN IS TRAILING` や `SIGN IS LEADING` といった句で、符号を数値の末尾や先頭に独立した文字として表示させることもできますが、何も指定しない場合のデフォルトの動作がこの「ゾーン符号」による重畳になります。

3. 実装/解決策：`USAGE DISPLAY` で符号付数値を定義・操作する

`USAGE DISPLAY` で符号付数値を定義するのは、`PICTURE` 句に `S`（Sign）と `V`（Implied Decimal Point）を含めることで行います。

例えば、整数で小数点以下がない数値を定義する場合：
`01 NUM-VALUE PIC S9(5) USAGE DISPLAY.`

この場合、`NUM-VALUE` は5桁の数字を格納でき、符号も扱えます。
`S` が符号を扱えることを示し、`9(5)` が5桁の数値を表します。
`USAGE DISPLAY` は明示的に書かなくても、`PICTURE` 句に `S` が含まれている場合は、デフォルトで `USAGE DISPLAY` となり、ゾーン符号で表現されることが多いです。

具体的な操作例：

正の数: `MOVE 123 TO NUM-VALUE.`

この結果、`NUM-VALUE` の内部表現は、例えば `123` と `正の符号情報` が重畳された文字列表現になります。

負の数: `MOVE -123 TO NUM-VALUE.`

この結果、`NUM-VALUE` の内部表現は、例えば `123` と `負の符号情報` が重畳された文字列表現になります。具体的には、`1` が `J` になったり、`3` が `M` になったりする場合があります（これは実行環境やCOBOLコンパイラによって多少異なります）。

この「重畳」されたデータを他のプログラムに渡したり、ファイルに書き出したりする際には、その受け側も `USAGE DISPLAY` で、かつ符号の表現方法を理解している必要があります。もし受け側が単なる数値として解釈しようとすると、予期せぬエラーやデータ化けが発生してしまいます。

4. サンプルプログラム：`USAGE DISPLAY` 符号付数値の動作確認

それでは、実際に `USAGE DISPLAY` で定義した符号付数値の出力を見てみましょう。

IDENTIFICATION DIVISION.
PROGRAM-ID. USAGE-DISPLAY-SIGN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM-POSITIVE PIC S9(4) USAGE DISPLAY VALUE 1234.
01 NUM-NEGATIVE PIC S9(4) USAGE DISPLAY VALUE -5678.
01 NUM-POSITIVE-DEC PIC S9(3)V99 USAGE DISPLAY VALUE 12.34.
01 NUM-NEGATIVE-DEC PIC S9(3)V99 USAGE DISPLAY VALUE -56.78.

01 DISP-POSITIVE PIC X(10).
01 DISP-NEGATIVE PIC X(10).
01 DISP-POSITIVE-DEC PIC X(10).
01 DISP-NEGATIVE-DEC PIC X(10).

PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY “— USAGE DISPLAY 符号付数値の例 —“.

正の整数を移動して表示

MOVE NUM-POSITIVE TO DISP-POSITIVE.
DISPLAY “正の整数 (1234) : ” NUM-POSITIVE ” (表示形式: ” DISP-POSITIVE “)”.

負の整数を移動して表示

MOVE NUM-NEGATIVE TO DISP-NEGATIVE.
DISPLAY “負の整数 (-5678): ” NUM-NEGATIVE ” (表示形式: ” DISP-NEGATIVE “)”.

正の小数点を移動して表示

MOVE NUM-POSITIVE-DEC TO DISP-POSITIVE-DEC.
DISPLAY “正の小数 (12.34) : ” NUM-POSITIVE-DEC ” (表示形式: ” DISP-POSITIVE-DEC “)”.

負の小数点を移動して表示

MOVE NUM-NEGATIVE-DEC TO DISP-NEGATIVE-DEC.
DISPLAY “負の小数 (-56.78): ” NUM-NEGATIVE-DEC ” (表示形式: ” DISP-NEGATIVE-DEC “)”.

補足：負の数値の表示形式（環境依存あり）
多くの環境では、負の数値の末尾の数字がゾーン符号で変化します。
例: -1 は ‘J’ になることがあります。
このサンプルでは、単純にMOVEしているので、実際には数値部分と符号が重畳されます。
外部ファイル出力や連携では、この重畳された文字列表現を考慮する必要があります。

STOP RUN.

このプログラムを実行すると、以下のような出力が得られるはずです。（末尾の文字は実行環境によって異なる可能性があります）

— USAGE DISPLAY 符号付数値の例 —
正の整数 (1234) : +1234 (表示形式: 1234 )
負の整数 (-5678): -5678 (表示形式: 5678M )
正の小数 (12.34) : +12.34 (表示形式: 1234 )
負の小数 (-56.78): -56.78 (表示形式: 5678M )

※ 上記の出力例は、一般的な環境での表示を想定しています。特に負の整数・小数点の `DISP-NEGATIVE` と `DISP-NEGATIVE-DEC` の末尾の `M` のような文字は、符号が数字に重畳された結果です。`5678` の `8` の部分に負の符号情報が加わっているイメージです。

`DISPLAY` 命令は、`USAGE DISPLAY` のデータをそのまま表示するため、内部の重畳された表現が（一部）見えることがあります。
`DISP-POSITIVE` や `DISP-NEGATIVE` のように `PIC X(10)` に `MOVE` してから表示すると、その文字列表現がより明確になります。

5. 応用・注意点：現場で役立つ補足情報と落とし穴

文字コードと環境依存: ゾーン符号の表現は、EBCDICかASCIIか、あるいは特定のCOBOLコンパイラの実装によって微妙に異なることがあります。外部システムと連携する際は、相手方のシステムがどのような文字コード・符号表現を期待しているかを確認することが非常に重要です。
`NUMERIC` 編集: `USAGE DISPLAY` の数値は、`+` や `-` などの記号を付けたり、カンマ区切りにしたりする「編集」が可能です。しかし、編集されたデータは純粋な数値ではなく、文字列表現になります。これらの編集済みデータをさらに数値として計算したい場合は、一度 `USAGE DISPLAY` の純粋な数値（符号重畳されたもの）に戻すか、あるいは `USAGE BINARY` や `USAGE COMP` など、計算に適したデータ型に変換する必要があります。
`SIGN IS TRAILING/LEADING` の活用: 符号を数値の末尾や先頭に独立した文字として表示したい場合は、`SIGN IS TRAILING` または `SIGN IS LEADING` を `PICTURE` 句に追加します。

例: `01 AMOUNT-TRAIL PIC S9(7) SIGN IS TRAILING USAGE DISPLAY.`
この場合、`-12345` は `12345-` のように、符号が独立した文字として表示されます。これは、CSVファイルなどで特定のフォーマットが求められる場合に便利です。

`EDITING` 句との組み合わせ: `USAGE DISPLAY` の数値は、`Z`（ゼロ抑制）、`.`（小数点）、`,`（桁区切り）、`$`（通貨記号）などの編集句と組み合わせて、見やすい形式で出力できます。

例: `01 PRICE-EDITED PIC $$$Z,ZZ9.99 USAGE DISPLAY.`
しかし、これらの編集句を使ったデータは、あくまで「表示用」の文字列であり、そのまま数値計算に使うことはできません。計算には、編集前の `USAGE DISPLAY` の数値変数や、`USAGE BINARY` などの変数を使用しましょう。

`CONVERT TO BINARY` / `CONVERT TO DECIMAL`: COBOLによっては、`USAGE DISPLAY` の数値を `USAGE BINARY` や `USAGE COMP` などに変換する命令（あるいはそれに類する機能）が用意されている場合があります。これらの変換を適切に行うことで、計算効率を向上させたり、データ型の不一致によるエラーを防いだりすることができます。

`USAGE DISPLAY` の符号付数値は、一見シンプルですが、その内部表現の仕組みを理解することが、COBOL開発における信頼性と効率性を高める上で非常に役立ちます。ぜひ、今回の内容を参考に、日々のコーディングに活かしてみてください！