【COBOL学習｜実務向け】MOVE転記における「編集文字」の罠と、現場で推奨されるデータ操作の作法

1. 導入：なぜこの問題が重要か

COBOLの現場において、帳票出力用の「編集項目（PIC Z,ZZ9や9,999等）」から、計算用の「数値項目（PIC 9(n)等）」へ直接値をMOVEしようとして、実行時エラー（データ例外）に直面した経験はありませんか？
編集文字（カンマやピリオド）は、COBOLの仕様上、数値項目へMOVEした際に自動的に除去されることはありません。この「データ型の不整合」を理解していないと、オンライン処理の異常終了や、バッチ処理のデータ汚染を引き起こす原因となります。本稿では、この課題を安全に解決するための正しいデータ操作の作法を解説します。

2. 基礎知識：編集項目と数値項目の違い

COBOLにおける「編集項目」とは、出力時に人間が読みやすいよう、カンマやピリオド、あるいはゼロサプレス（不要なゼロをスペースに置換）を付加した項目です。
対して「数値項目」は、計算を行うための純粋な算術データとして定義されます。
重要なのは、編集項目はあくまで「表示用」であり、それ自体は英数字と同じく文字データとして扱われるという点です。 数値項目へMOVEする際は、CPUがその値を算術データとして認識しようとしますが、そこにカンマやピリオドが含まれていると、数値として解釈できず、システムエラー（S0C7等のデータ例外）が発生します。

3. 実装/解決策：数値抽出の定石

編集項目から数値を取り出すための最も確実で標準的な手法は、「再定義（REDEFINES）」または「一時的な数値項目への算術転記」です。
もっとも推奨されるのは、編集項目を一旦算術演算（ADD 0 TO…など）を通すか、あるいは値の配置を正しく設計することです。最も汎用的なのは、編集前の「生データ」を保持しておく設計ですが、既存プログラムの改修などでそれが不可能な場合、文字列操作によって編集文字を除去する方法が一般的です。

4. サンプルプログラム

以下のコードは、編集文字が含まれた項目から、安全に数値項目へ値を引き継ぐための実用例です。

IDENTIFICATION DIVISION.
PROGRAM-ID. CONV-NUM-SAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.

編集されたデータ（カンマが含まれている）

01 EDIT-DATA        PIC Z,ZZ9.99 VALUE "1,234.56".


数値として格納するための項目

01 WORK-NUM         PIC 9(4)V99.


作業用（文字列として分解）

01 EDIT-REDEF REDEFINES EDIT-DATA.
   05 EDIT-CHAR     PIC X OCCURS 8 TIMES.

01 W-NUM-STR        PIC X(6).
01 W-IDX            PIC 9 VALUE 1.
01 W-PTR            PIC 9 VALUE 1.

PROCEDURE DIVISION.

編集文字を除去して数値項目へセットする処理

    PERFORM VARYING W-IDX FROM 1 BY 1 UNTIL W-IDX > 8
        IF EDIT-CHAR(W-IDX) >= '0' AND EDIT-CHAR(W-IDX) <= '9'
            MOVE EDIT-CHAR(W-IDX) TO W-NUM-STR(W-PTR:1)
            ADD 1 TO W-PTR
        END-IF
    END-PERFORM.


結果を数値項目へ移動（小数点位置に注意してセット）

    MOVE W-NUM-STR TO WORK-NUM.

    DISPLAY "変換結果: " WORK-NUM.
    GOBACK.

5. 応用・注意点：現場で陥りやすいバグの回避策

再定義の活用: 編集項目と数値項目を同じメモリ領域にREDEFINESで重ねる手法は、かつて多用されましたが、現在は可読性の観点から推奨されません。現代的なコーディングでは、上記サンプルプログラムのように「文字として走査し、数字のみを抽出する」ロジックを共通サブルーチン化しておくのが最もバグが少ない手法です。
小数点位置の不一致: 編集項目から数値項目へ移す際、最も多いミスは「小数点以下の桁数」の不一致です。移動先のPIC句の定義と、実際のデータ値のスケールが合致しているか、必ずMOVE前に確認してください。
ゼロサプレスの落とし穴: PIC Z(n)で定義された項目は、値が0の場合にすべてスペースになります。数値計算に使う前に、必ず「IF 項目 = SPACE MOVE 0 TO 項目」のような初期化処理を挟むことを忘れないでください。