導入
COBOLの実務において、繰り返し処理は避けて通れない基本テクニックです。しかし、ループの「どのタイミングで終了条件を判定するか」を意識せずにコーディングすると、意図せぬ無限ループや、データの重複処理といったバグを引き起こす原因になります。今回は、COBOLの構造化制御構文の中でも特に重要な「WITH TEST BEFORE」句に焦点を当て、安全で可読性の高いループ処理の書き方を解説します。
基礎知識
COBOLのPERFORM文には、条件付きループのための「WITH TEST」オプションが存在します。
WITH TEST BEFOREは、ループの中身を実行する「前」に条件判定を行います。これは、C言語やJavaなどの他言語における「while文」と全く同じ考え方です。対照的なのが「WITH TEST AFTER」で、こちらは「do-while文」のように、最低一度は必ずループ内を実行してから判定を行います。
実務において重要なのは、明示的に指定しない場合のデフォルト動作が「BEFORE」であるという点です。しかし、保守性を高めるためには、動作を曖昧にせず、明示的に記述する習慣をつけることがプロフェッショナルとしての品質向上に繋がります。
実装/解決策
「WITH TEST BEFORE」を使用する最大のメリットは、「初期条件が満たされていない場合に、ループの中身を一度も実行させない」ことが保証される点です。
例えば、ファイルの読み込み処理や、カウント値が上限に達しているかのチェックなどで、データが存在しない、あるいは処理対象外である場合に誤った処理が走るのを防ぐことができます。条件式は、ループを「終了する」条件を記述するのがCOBOLの慣例です。
サンプルプログラム
以下のサンプルは、カウンターが上限値を超えるまで処理を繰り返す標準的なパターンです。コピー＆ペーストして、ロジックの流れを確認してください。
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST-BEFORE-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CNT PIC 9(02) VALUE 0.
01 WS-LIMIT PIC 9(02) VALUE 10.
PROCEDURE DIVISION.
> 1. BEFORE句を明示的に指定してループを開始
> 条件は「WS-CNTがWS-LIMITより大きい」場合に終了する
PERFORM 100-LOOP-PARA WITH TEST BEFORE UNTIL WS-CNT > WS-LIMIT
DISPLAY “現在のカウント値は: ” WS-CNT
ADD 1 TO WS-CNT
END-PERFORM.
DISPLAY “ループ終了処理”.
STOP RUN.
100-LOOP-PARA.
> ここにループ内で実行したい具体的な業務ロジックを記述します
CONTINUE.
応用・注意点
現場でのトラブルを避けるために、以下の3点に注意してください。
1. 初期値の整合性: ループ開始前に、条件判定に使われる変数（上記のWS-CNTなど）が正しく初期化されているか必ず確認してください。ここが未初期化だと、意図しない回数ループが回るリスクがあります。
2. 無限ループの回避: 「BEFORE」句を使用する場合、ループの中で条件変数を更新する処理（ADD 1など）を忘れると、即座に無限ループに陥ります。必ず終了条件に影響する変数をループ内で変更しているか確認してください。
3. 読みやすさの優先: コードレビューでは、誰が見ても「いつ終わるループなのか」が一目でわかるように記述しましょう。複雑な条件式を直接PERFORMに書かず、評価用のフラグ変数を用意するのも、可読性を高めるための有効なテクニックです。
「デフォルトだから書かなくていい」ではなく、「意図を明確にするために書く」。この小さな積み重ねが、長期保守における堅牢なシステムを生み出します。
コメント