1. 導入
COBOLの組込関数であるMAXやMINは、複数の数値の中から最大値や最小値を抽出する際に非常に便利です。しかし、業務システムで「可変長のデータ群から最大値を求めたい」といったケースで引数を羅列していくと、コンパイラや実行環境が定める「引数リストの上限」に抵触し、コンパイルエラーや実行時異常を招くことがあります。本記事では、この「引数爆発」を防ぎ、安全かつ効率的に最大・最小値を求める手法を解説します。
2. 基礎知識
MAXおよびMIN関数は、指定された引数の中から最大値・最小値を返す関数です。規格上は引数の数に厳密な制限はありませんが、実際には呼び出し時のスタック領域やメモリ使用量の制約から、実装上の上限（数百個程度）が存在します。特に、配列（テーブル）の全要素を対象にする場合、引数を一つずつ指定するコーディングは保守性も低く、上限リスクも高まるため避けるべきです。
3. 実装/解決策
引数リストの上限を回避する最も推奨される方法は、集団項目（テーブル全体）を引数として渡す手法です。現代的なCOBOLコンパイラ（GNU COBOLや主要な商用コンパイラ等）では、テーブルを引数として指定することで、関数側が内部的に配列の全要素を走査してくれます。これにより、個別の変数を引数に並べる必要がなくなり、可読性と安全性が劇的に向上します。
4. サンプルプログラム
以下のサンプルは、テーブル内の全要素から最大値を求める実用的なコードです。
IDENTIFICATION DIVISION.
PROGRAM-ID. MAX-EXAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 10個の数値を持つテーブルを定義
01 TABLE-AREA.
05 VAL-ITEM PIC S9(5) OCCURS 10 TIMES.
01 MAX-VAL PIC S9(5).
PROCEDURE DIVISION.
- テストデータの初期化
MOVE 10 TO VAL-ITEM(1)
MOVE 50 TO VAL-ITEM(2)
MOVE 30 TO VAL-ITEM(3)
- …残りの要素は省略…
- 【ポイント】各要素を個別に渡すのではなく、
- テーブル全体（VAL-ITEM）を引数として指定する
COMPUTE MAX-VAL = FUNCTION MAX(VAL-ITEM)
DISPLAY “最大値は: ” MAX-VAL
GOBACK.
5. 応用・注意点
現場で役立つ補足として、以下の点に注意してください。
コンパイラの仕様確認: 使用しているコンパイラが「テーブル引数」に対応しているか必ず確認してください。古いメインフレーム環境では、テーブル全体を引数に取れない場合があります。その場合は、PERFORM文でループを回し、手動で比較するサブルーチンを作成するのが最も確実です。
パフォーマンスの考慮: 数万件を超えるような巨大なテーブルをMAX/MIN関数に渡すと、内部処理で一時的にスタックを消費します。バッチ処理で大量データを扱う場合は、関数に頼らず、インラインで比較しながら最大値を保持する変数を更新するループ処理を実装する方が、メモリ効率の観点から安全です。
データの型: MAX/MIN関数は、引数の型が混在していると意図しない変換が発生することがあります。可能であれば、テーブルの各要素は同一のPIC定義（符号の有無や桁数）で揃えることを強く推奨します。
コメント