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

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

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

生徒

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

先生

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

生徒

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

先生

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

1. パフォーマンスチューニングとは？初心者でもわかる基本の考え方

パフォーマンスチューニングとは、プログラムが動くスピードを速くしたり、コンピュータのメモリ消費を抑えたりするために、コードの書き方を工夫して最適化することです。

COBOLは銀行の勘定系システムや保険会社の基幹システムなど、膨大なデータを扱う現場で長年愛用されています。数百万件、数千万件というデータを処理する場合、1回の処理でわずか「0.001秒」の差であっても、全体では数時間の差になって現れます。そのため、文字列のつなぎ方や計算の仕方を少し変えるだけの「小さな工夫」が、システム全体の信頼性と劇的な高速化につながるのです。

身近な例で例えると？
料理を作る工程に似ています。「冷蔵庫から調味料を1つずつ取りに行く（効率が悪い）」よりも、「使う調味料をあらかじめまとめて出しておく（チューニング済み）」ほうが、早く料理が完成しますよね。プログラミングもこれと同じです。

未経験者向け：効率の悪いコードと良いコードのイメージ

例えば、1から10までを足す処理を、一歩ずつゆっくり計算するか、一気に計算するかでコンピュータの疲れ方が変わります。


* [非効率な例] 1つずつ足していく
ADD 1 TO TOTAL-SUM
ADD 2 TO TOTAL-SUM
ADD 3 TO TOTAL-SUM ... (これを繰り返す)

* [効率的な例] 計算式を工夫して一気に処理する
COMPUTE TOTAL-SUM = (1 + 10) * 10 / 2

このように、コンピュータに無駄な動きをさせないための知識がパフォーマンスチューニングです。特に「文字列操作」や「数値計算」は、書き方一つで処理の重さがガラリと変わるため、優先的に対策すべき重要なポイントとなります。

2. 文字列処理を速くするコツ｜パフォーマンスを劇的に変える基本テクニック

COBOLのプログラムで多くの時間を占めるのが「文字列処理」です。特に「MOVE」「STRING」「UNSTRING」といった命令は日常的に使われますが、実はその書き方ひとつで処理スピード（パフォーマンス）に大きな差が出ます。プログラミング初心者の方でもすぐに実践できる、実行速度を落とさないための3つの重要ポイントを詳しく解説します。

① STRING命令を最小限に抑える（一括結合のメリット）

STRING命令は複数の項目を1つにまとめる便利な命令ですが、内部的には非常に複雑な処理を行っています。何度も細かくSTRINGを繰り返すと、そのたびにCPUに負荷がかかり処理が重くなります。複数の要素を繋げたいときは、1つの命令でまとめて記述するのが鉄則です。


* 悪い例：何度もSTRINGを呼び出す（遅くなる原因）
STRING FIRST-NAME DELIMITED BY SPACE INTO FULL-NAME
STRING LAST-NAME  DELIMITED BY SPACE INTO FULL-NAME WITH POINTER POS

* 良い例：1回でまとめて結合する（高速・効率的）
STRING FIRST-NAME DELIMITED BY SPACE
       LAST-NAME  DELIMITED BY SPACE
       INTO FULL-NAME
END-STRING

このように、一度の命令でまとめて処理することで、コンピュータが「どこまで書き込んだか」を管理する手間が減り、プログラム全体の実行時間が短縮されます。

② 高速なMOVE命令を優先的に使う

最も基本的で、かつ最も高速な命令がMOVEです。STRINGは「結合」や「空白の除去」といった機能を持つ分、動作が複雑です。単に値をコピーしたい場合や、あらかじめ定義したデータ項目に値をセットするだけなら、迷わずMOVEを使いましょう。


* 単純な代入ならMOVEが最速
MOVE "TOKYO" TO CITY-NAME

例えば、名前と名字の間にスペースを入れたいだけなら、あらかじめ連結用のフォーマット（データ項目）を定義しておき、そこにMOVEで各項目を当てはめる方が、STRINGを駆使するよりも処理効率が格段に良くなります。

③ UNSTRINGは「必要な分だけ」取り出す

UNSTRINGは、長い文字列を特定の区切り文字（ハイフンやカンマなど）でバラバラに分解する命令です。便利な反面、分解する項目が増えるほど負荷が高まります。すべての項目を無理に変数へ格納しようとせず、そのプログラムで本当に使うデータだけを抽出するようにしましょう。


* 住所から「郵便番号」と「都道府県」だけを抜き出す例
UNSTRING ADDRESS-DATA DELIMITED BY "-"
    INTO ZIP-CODE
         PREFECTURE-NAME

プログラミング未経験の方は「とりあえず全部変数に入れておこう」と考えがちですが、大規模なデータを扱う業務システムでは、この「少しの無駄」が数万件、数百万件と積み重なることで大きな遅延に繋がります。必要なものだけをスマートに取り出すことが、プロらしい高速なプログラムを作るコツです。

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

COBOLは事務計算、特に大量の数値データを正確かつ高速に処理することに特化した言語です。しかし、プログラムの書き方次第で処理スピードには大きな差が出ます。ここでは、未経験の方でもすぐに実践できる、計算処理を劇的に効率化する3つの基本テクニックを詳しく解説します。

① データ定義（PIC句）の最適化：適切な桁数を選ぶ

PIC（ピクチャ）句は、変数の「器の大きさ」を決める重要な定義です。大きな数字を扱えるように余裕を持って定義しがちですが、実は桁数が多ければ多いほど、コンピュータが計算に使うエネルギー（CPUリソース）が増えてしまいます。特に、不必要な小数点以下の定義や、過剰な桁数はパフォーマンス低下の要因になります。


01  ITEM-PRICE      PIC 9(5)    VALUE 500.
01  TOTAL-AMOUNT    PIC 9(7)V99 VALUE 0.

ポイント： 例えば、最大でも100円単位しか入らない項目に「兆」の単位まで扱える PIC 9(15) を指定するのは避けましょう。システム全体のデータ量が多い場合、この小さな差が実行時間の大きな短縮につながります。

② 計算ステップの最小化：共通項をまとめる

プログラムの中で何度も同じ計算を繰り返させるのは効率が悪いです。数学の「因数分解」のように、共通する計算を1回で済ませる工夫をしましょう。これを「共通項の前計算」と呼びます。


* 効率の悪い書き方：何度も同じ掛け算が発生する
COMPUTE ITEM-A-TAX = PRICE-A * TAX-RATE
COMPUTE ITEM-B-TAX = PRICE-B * TAX-RATE

* 効率の良い書き方：合計してから1回だけ掛ける
ADD PRICE-A TO PRICE-B GIVING TOTAL-PRICE
MULTIPLY TOTAL-PRICE BY TAX-RATE GIVING TOTAL-TAX

ポイント： 消費税のように多くの項目に掛ける数値は、一回一回計算するよりも、先に金額を合算してから最後に一度だけ計算する方が、誤差も防げますし、何よりコンピュータの負担を減らせます。

③ 命令語の使い分け：ADD文とCOMPUTE文の特性

COBOLには、足し算専用の ADD 文や、数式をそのまま書ける COMPUTE 文があります。COMPUTE 文は数式を1行で書けるため人間にとっては読みやすいですが、内部的には複雑な処理を行っています。単純な加算や減算を数万回繰り返すようなループ処理の中では、専用命令を使う方が高速です。


* 単純な加算（1増やすだけならこちらが高速）
ADD 1 TO COUNTER-A

* 複雑な計算（人間が読みやすいように書く場合）
COMPUTE NET-PROFIT = (SALES - EXPENSES) * (1 - TAX-PERCENT)

ポイント： 「1だけ足す」「合計を出す」といったシンプルな操作なら ADD 文、「複雑な公式を当てはめる」なら COMPUTE 文といった具合に、目的によって使い分けるのがプロのテクニックです。特にバッチ処理のような大量データ処理では、この使い分けが数分単位の速度差を生みます。

4. ループ処理での最適化ポイント（繰り返し処理のコツ）

プログラミングの世界では、同じ処理を何度も繰り返すことを「ループ処理」と呼びます。COBOLで大量のデータを処理する場合、このループの書き方ひとつで、プログラムが数秒で終わるか、数分かかるかの大きな差が生まれます。ここでは、初心者の方でもすぐに実践できる、処理を速くするための2つの秘訣を解説します。

① 定数や「決まった値」はループの外に出す

例えば、1000回繰り返すループの中で、「消費税率は10%」という設定を毎回行うのは効率が悪いです。1回決まれば変わらない値（固定値）は、あらかじめループの外で準備しておくのが鉄則です。これにより、コンピュータの無駄な作業を省き、実行速度を劇的に向上させることができます。


* 悪い例：ループの中で毎回代入している
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 1000
    MOVE 1.10 TO TAX-RATE
    COMPUTE TOTAL(I) = PRICE(I) * TAX-RATE
END-PERFORM

* 良い例：ループの外で1回だけ設定する
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の設定をループの前に済ませています。たったこれだけで、1000回分の「代入作業」をカットできるため、大量の計算を行うシステムほど効果を発揮します。

② DISPLAY文（画面表示）は最小限にする

DISPLAY文は、実行結果を画面に表示するために使われますが、実は非常に「重い」処理です。人間が目で追えない速さで画面に文字を出し続けるのは、コンピュータにとって大きな負担となります。処理中の状況を細かく出すのではなく、区切りの良いタイミングや、最後だけ表示するように工夫しましょう。


* 1000回ごとに進捗を表示する工夫
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10000
    (何らかの計算処理)
    IF FUNCTION MOD(I, 1000) = 0
        DISPLAY I "件目の処理を通過しました..."
    END-IF
END-PERFORM

DISPLAY "すべての計算が完了しました。"

上記のように、IF文を使って表示回数を絞ることで、プログラムの快適さが驚くほど変わります。実行結果を確認したい気持ちをグッとこらえ、「画面出力はここぞという時だけ」と覚えておきましょう。


1000件目の処理を通過しました...
2000件目の処理を通過しました...
（中略）
すべての計算が完了しました。

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.