先生と生徒の会話形式で理解しよう

生徒

「先生、COBOLのプログラムって長く使われてるものが多いですよね。でも、古いプログラムって読みにくいって聞きました。どうしたらいいんですか？」

先生

「そうですね。COBOLのシステムは長年使われているので、昔の書き方のままになっているものが多いです。そんなときに大切なのが『リファクタリング』です。」

生徒

「リファクタリングってなんですか？プログラムを書き直すことですか？」

先生

「リファクタリングとは、プログラムの動作を変えずに中身を整理して、読みやすく、保守しやすくする作業のことですよ。」

生徒

「なるほど！じゃあ、COBOLでリファクタリングするときって、どんなことを意識すればいいんですか？」

先生

「それでは、初心者でも分かるようにCOBOLのリファクタリングの考え方を詳しく説明していきましょう。」

1. リファクタリングとは？COBOLでなぜ必要なのか

リファクタリング（refactoring）とは、プログラムの動作結果を変えずに、コードを整理・改善する作業のことです。例えば、同じ機能を持っているけれど書き方が古かったり、重複した処理がたくさんある場合に、読みやすく再構成します。

COBOLは銀行や保険、自治体などで今でも広く使われています。そのため、何十年も前に作られたプログラムを、今の担当者が理解して修正しなければならないことがあります。リファクタリングを行うことで、次のような効果があります。

たとえるなら、リファクタリングは「古い家のリフォーム」に似ています。家（プログラム）の基礎はそのままに、配線を整理して使いやすくするようなイメージです。

2. COBOLのリファクタリングでよく行う改善ポイント

COBOLでは、長年の運用の中で「同じような処理が繰り返し書かれている」「変数名が意味不明」「不要なコメントが残っている」といった問題がよく見られます。ここでは、代表的な改善ポイントを紹介します。

COBOLの古いプログラムでは、A1やX03など意味のない変数名が使われていることがあります。これを、目的が分かるような名前に変えると可読性がぐんと上がります。


* 修正前
MOVE CUST TO A1.

* 修正後
MOVE CUSTOMER-NAME TO CUSTOMER-DATA.

同じ処理が複数の場所に書かれている場合は、サブルーチンやPERFORM文で共通化します。これにより、メンテナンス性が大幅に向上します。


PERFORM CALCULATE-TAX.
PERFORM DISPLAY-TOTAL.

昔のプログラムでは、不要なコメントや、すでに削除したコードがコメントアウトされて残っていることがあります。必要な情報だけを残すことで、理解しやすいコードになります。

COBOLプログラムのリファクタリングを行うときは、いきなり書き換えるのではなく、段階的に進めることが大切です。特に業務システムでは、少しの変更で大きな影響が出る場合もあります。

このように、リファクタリングは「慎重に進める」ことが重要です。小さな改善を積み重ねることで、安全にプログラムを整えていけます。

ここでは、簡単な例を使って、COBOLのリファクタリングの考え方を見てみましょう。

例えば、顧客の年齢をもとに「成人かどうか」を判定するプログラムがあるとします。


* 修正前
IF AGE > 19
    DISPLAY "ADULT"
ELSE
    DISPLAY "CHILD"
END-IF.

このコードをリファクタリングして、コメントを整理し、変数名をわかりやすく変更します。


* 修正後：分かりやすい変数名と日本語メッセージに変更
IF CUSTOMER-AGE >= 20
    DISPLAY "あなたは成人です。"
ELSE
    DISPLAY "あなたは未成年です。"
END-IF.


あなたは成人です。

このように、結果は変わらなくても、読みやすさ・理解しやすさが向上します。これがリファクタリングの大きな目的です。

リファクタリングを安全に行うためには、いくつかのコツがあります。

COBOLのような歴史ある言語では、「動いているコードを壊さない」ことが最も大切です。リファクタリングは、壊さずに整えるための技術なのです。