COBOLの文字列・数値演算を高速化！初心者でもできるパフォーマンスチューニング

文字列・数値演算のパフォーマンスチューニング

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

生徒

「先生、COBOLのプログラムって古い言語だから動作が遅いって聞いたんですけど、本当ですか？」

先生

「実はそんなことはないんですよ。COBOLでも書き方を工夫すれば、文字列処理も数値演算もとても高速に動かせます。」

生徒

「そうなんですね！でもどうやって速くするんですか？」

先生

「今日は、COBOLの文字列操作と数値演算をチューニング（最適化）して、効率を上げる方法を詳しく説明しますね。」

1. パフォーマンスチューニングとは？

パフォーマンスチューニングとは、プログラムをより速く、効率的に動かすために処理方法を改善することです。COBOLは銀行や保険などの大規模システムでも現役で使われていますが、処理するデータ量が多いときには、ちょっとした工夫でスピードが大きく変わります。

特に、文字列操作（例：名前や住所の結合）や数値演算（金額計算など）は処理が重くなりやすいため、チューニングが重要です。

2. 文字列処理を速くするコツ

COBOLでは文字列を扱うときに、「MOVE」「STRING」「UNSTRING」などの命令を使います。これらの命令は便利ですが、使い方を間違えると処理速度が遅くなってしまいます。

① 不要なSTRING命令を減らす

STRING命令は複数の文字列を結合する命令です。しかし、たくさんの文字列を1つずつSTRINGでつなげると処理が重くなります。できるだけ1回のSTRINGでまとめて結合するのがポイントです。


STRING FIRST-NAME DELIMITED BY SPACE
       LAST-NAME  DELIMITED BY SPACE
       INTO FULL-NAME
END-STRING

このように、一度にまとめて結合すれば処理回数が減り、プログラムのスピードが上がります。

② MOVEで代用できるところはMOVEを使う

MOVEは単純に値をコピーする命令で、非常に高速です。もし文字列を結合せずに単純に代入したいだけなら、STRINGよりもMOVEを使いましょう。


MOVE "TOKYO" TO CITY-NAME

これは単純な処理なので、STRINGよりもCPUへの負担が少なく、結果的にプログラム全体のパフォーマンスが向上します。

③ UNSTRINGは必要な部分だけを取り出す

UNSTRING命令は文字列を分解する命令です。住所やコードなどを分けるときに便利ですが、すべての要素を取り出そうとすると時間がかかります。必要な部分だけを取り出すようにしましょう。


UNSTRING ADDRESS DELIMITED BY "-"
    INTO ZIP-CODE PREFECTURE

このように、必要なデータだけ取り出せば、無駄な処理を省くことができます。

3. 数値演算を高速化するテクニック

数値演算はCOBOLの得意分野ですが、扱う桁数や計算回数が多いと処理時間が増えてしまいます。ここでは、効率的に演算を行うための3つの方法を紹介します。

① 必要以上に大きなPIC定義を避ける

PIC（ピクチャ）句とは、変数の桁数や形式を定義する部分です。桁数が多いほど、計算に時間がかかります。金額などの計算で桁が多すぎる定義は避けましょう。


01  TOTAL-AMOUNT  PIC 9(7)V99 VALUE 0.

本当に必要な桁数だけを設定することで、COBOLの計算エンジンがより効率的に動作します。

② 計算の順番を工夫する

たとえば、大きな数同士の掛け算を何度も行うよりも、共通部分を先に計算しておくとスピードが上がります。これは「共通項の前計算」と呼ばれるテクニックです。


MULTIPLY TAX-RATE BY BASE-AMOUNT GIVING TAX
ADD BASE-AMOUNT TO TAX GIVING TOTAL

このように計算を整理しておくと、同じ計算を何度も繰り返さずに済み、プログラムが軽くなります。

③ COMPUTE文を適切に使う

COMPUTE文を使うと、1行で複雑な計算ができます。ただし、何度も使うとパフォーマンスが低下することもあります。単純な計算ではADDやMULTIPLYを使う方が高速です。


COMPUTE TOTAL = PRICE * TAX-RATE + SHIPPING-COST

処理回数が少ない場合は便利ですが、大量データを処理する場合は、計算式を分割して実行する方が速くなることもあります。

4. ループ処理での最適化ポイント

COBOLでは、数値演算や文字列操作をループの中で繰り返すことがあります。このとき、不要な処理をループ内に入れると速度が大きく落ちます。

① 定数や固定値はループの外に出す

ループの中で毎回同じ値を設定するのは無駄です。固定値はループの外で設定しておきましょう。


MOVE 1.10 TO TAX-RATE
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 1000
    COMPUTE TOTAL(I) = PRICE(I) * TAX-RATE
END-PERFORM

このようにすることで、毎回TAX-RATEを計算する必要がなくなり、処理速度が向上します。

② DISPLAY文は最小限にする

DISPLAY文（画面出力）は非常に遅い処理です。ループ内で何度も出力すると極端に遅くなります。必要なときだけ表示するようにしましょう。


IF I = 1000
    DISPLAY "計算が完了しました。"
END-IF

5. 実務で使えるチューニング例

最後に、実際の現場でよく行われるパフォーマンスチューニングの例を紹介します。これは金額の合計を計算する処理を効率化したサンプルです。


IDENTIFICATION DIVISION.
PROGRAM-ID. SPEED-UP.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  PRICE      PIC 9(5) VALUE 10000.
01  TAX-RATE   PIC 9V99  VALUE 1.10.
01  TOTAL      PIC 9(6)V99 VALUE 0.
PROCEDURE DIVISION.
    MULTIPLY PRICE BY TAX-RATE GIVING TOTAL
    DISPLAY "税込金額：" TOTAL
    STOP RUN.


    税込金額：11000.00

このように、計算式を簡潔にし、不要な命令を使わないことで、COBOLのプログラムは驚くほど速く動作します。COBOLは「遅い言語」ではなく、「正しく書けば非常に高速」なのです。

まとめ

ここまで、COBOLにおける文字列操作や数値演算のパフォーマンスチューニングについて、具体的な手法を交えて詳しく解説してきました。古いプログラミング言語というイメージを持たれがちなCOBOLですが、その実態は基幹システムの膨大なデータを処理するために研ぎ澄まされた、非常に強力な言語です。しかし、どれほど強力な道具であっても、使い方が適切でなければその真価を発揮することはできません。今回の内容を振り返り、日々の開発や保守に役立てていきましょう。

文字列操作の最適化：命令の特性を理解する

文字列処理においては、命令一つひとつのコストを意識することが重要です。特に「STRING」や「UNSTRING」は、柔軟で強力な分、内部的には複雑な処理を行っています。銀行の取引明細や顧客マスターの更新といった、数百万件、数千万件のデータを回すプログラムでは、微々たる差が数時間の実行時間の差となって現れます。

例えば、固定長のデータをコピーするだけであれば、「MOVE」を使うのが鉄則です。また、どうしても「STRING」を使わなければならない場合でも、ループ内で何度も呼び出すのではなく、可能な限り一度の呼び出しで複数の項目を連結するように設計を工夫しましょう。これにより、プログラムのオーバーヘッドを劇的に削減することが可能になります。

数値演算の最適化：精度と速度のバランス

数値計算はCOBOLが最も得意とする分野ですが、データ定義（PICTURE句）の設計がパフォーマンスを左右します。不必要に大きな桁数を定義したり、小数点以下の精度を過剰に持たせたりすると、CPUの演算リソースを無駄に消費してしまいます。業務要件に合わせた最適な桁数設定を行うことが、効率的なプログラムへの第一歩です。

また、計算式を記述する際にも、「COMPUTE」文と個別演算命令（ADD, MULTIPLY等）を使い分ける知識が求められます。複雑な算術式を直感的に書ける「COMPUTE」は開発効率を高めますが、単純な加算であれば「ADD」の方が高速なケースが多いです。大量のループ処理の中では、こうした「塵も積もれば山となる」改善が、最終的な処理速度の向上に大きく貢献します。

ループ処理とI/O（入出力）の制御

プログラム全体の速度を決定づけるのは、多くの場合「繰り返し処理（PERFORM）」の中にあります。ループの内部に、ループの外で一度だけ行えば済む処理が混じっていないか、常に疑う目を持つことが大切です。特に定数の代入や、不変の計算式などはループの外に追い出す（コード・ホーイスティング）ことで、不要な処理を数百万回単位でカットできます。

さらに、デバッグ用の「DISPLAY」文にも注意が必要です。画面出力やログ出力は、計算処理に比べて非常にコストが高い動作です。本番環境で動作させるプログラムでは、エラー時以外の不要な「DISPLAY」は削除するか、コメントアウトする徹底が必要です。

C#との比較から見るCOBOLの特性

現代的なシステム開発では、フロントエンドやAPIサーバーにC#などのオブジェクト指向言語が使われ、バックエンドのバッチ処理にCOBOLが使われるというハイブリッドな構成も珍しくありません。参考までに、C#で同様の数値計算の最適化を意識した場合のコードを見てみましょう。


// C#での効率的な計算例：変数のスコープと型の選択
public class Calculator
{
    public void CalculateTotal()
    {
        long baseAmount = 10000;
        double taxRate = 1.10;
        
        // ループ外で計算できるものは事前に定義
        double total = baseAmount * taxRate;
        
        System.Console.WriteLine("合計金額: " + total);
    }
}

C#ではデータ型（int, long, decimalなど）の選択が重要になりますが、COBOLでも同様にPICTURE句の定義が重要です。言語は違えど、「無駄な処理を省き、データの型を最適化する」というチューニングの基本原則は共通しています。

効率的なプログラムを書くための実践サンプル

最後に、今回学んだ「ループ外への追い出し」と「効率的な文字列結合」を組み合わせた、実践的なプログラム構成の例を確認しておきましょう。


IDENTIFICATION DIVISION.
PROGRAM-ID. OPTIMIZED-PROC.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  CONST-VALS.
    05  FIXED-TAX      PIC 9V99 VALUE 1.10.
01  WORK-AREAS.
    05  I              PIC 9(4) BINARY.
    05  PRICE-LIST     PIC 9(7) OCCURS 1000 TIMES.
    05  RESULT-AMT     PIC 9(9) VALUE 0.
    05  MSG-BASE       PIC X(10) VALUE "RESULT IS ".
    05  OUT-MSG        PIC X(20).

PROCEDURE DIVISION.
    * 初期データのセット（本来はファイル読み込み等）
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 1000
        MOVE 500 TO PRICE-LIST(I)
    END-PERFORM.

    * メインの計算処理
    * 税率はループ外で定義されたFIXED-TAXを使用
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 1000
        COMPUTE RESULT-AMT = PRICE-LIST(I) * FIXED-TAX
    END-PERFORM.

    * 文字列の結合も最後に一度だけ行う
    STRING MSG-BASE   DELIMITED BY SPACE
           RESULT-AMT DELIMITED BY SIZE
           INTO OUT-MSG
    END-STRING.

    DISPLAY OUT-MSG.
    STOP RUN.