1. 導入：なぜこの制約を知っておくべきか
現代のCOBOL開発においても、標準で用意されている「組込関数」は生産性を高める強力な武器です。しかし、関数を呼び出す際、「手続き名（段落名や節名）」を引数として渡そうとしてコンパイルエラーに悩まされるケースが後を絶ちません。なぜこのような制限があるのか、そしてこの仕様とどう向き合うべきかを解説します。このルールを理解することで、設計段階での手戻りを防ぎ、より堅牢なプログラムを作成できるようになります。
2. 基礎知識：組込関数と引数の仕組み
COBOLの組込関数は、あくまで「データ（値）」を加工し、その結果を返すためのものです。数学的な関数（計算）や文字列操作、日付変換などが代表例です。
ここで重要なのは、組込関数は「手続き（プログラムの実行フロー）」を制御するものではないという点です。手続き名（段落名や節名）は、プログラムの処理の「場所」を示す識別子であり、データ項目（変数）やリテラルとは性質が異なります。そのため、仕様上、引数にはメモリ上に存在するデータそのものしか指定できないようになっています。
3. 実装/解決策：手続きを渡したい場合の代替案
もし、手続き名を変数のように扱いたいという要件があるなら、それは組込関数ではなく「制御構造」を見直すべきサインです。
具体的な解決策としては、「フラグ変数」や「定数」による条件分岐を利用します。例えば、特定の処理を動的に呼び出したい場合は、EVALUATE文やIF文を用いて、フラグの値に応じて実行する段落を切り替えるのがCOBOLの定石です。
4. サンプルプログラム：正しい制御フローの設計例
以下に、手続き名を直接渡すのではなく、フラグを使って制御を切り替える実用的な例を示します。
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. SAMPLE-FUNC.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 PROC-TYPE PIC 9(01).
000600 PROCEDURE DIVISION.
000700 — 組込関数はデータ項目のみを扱う —
000800 MOVE 1 TO PROC-TYPE.
000900
001000 — 手続きを動的に制御する正しい方法 —
001100 EVALUATE PROC-TYPE
001200 WHEN 1
001300 PERFORM PROC-A
001400 WHEN 2
001500 PERFORM PROC-B
001600 END-EVALUATE.
001700 STOP RUN.
001800
001900 PROC-A.
002000 DISPLAY “処理Aを実行しました”.
002100 PROC-B.
002200 DISPLAY “処理Bを実行しました”.
5. 応用・注意点：現場でのバグ回避
現場でよくあるミスは、無理やりアドレス操作などで手続き名を扱おうとして、プログラムの可読性や保守性を著しく低下させることです。
注意点：
・組込関数に手続き名を渡そうとする設計は、オブジェクト指向の「デリゲート」のような挙動を期待していることが多いですが、COBOLの仕様では推奨されません。
・プログラムが複雑になる場合は、サブプログラム（CALL文）の活用を検討してください。呼び出すプログラム名を文字列として変数にセットし、動的呼び出しを行う方が、設計として遥かにクリーンです。
COBOLの思想は「読みやすさと保守の容易さ」にあります。制約を「不便」と捉えるのではなく、より明確な制御フローを書くための「ガイドライン」と捉えてみてください。
コメント