1. 導入：なぜCOBOLで再帰は危険なのか
COBOLの現場で「再帰呼び出し（自己呼び出し）は絶対禁止」と教わった方も多いでしょう。しかし、なぜ他の言語では当たり前の再帰が、COBOLではシステムダウンや暴走を招くのでしょうか。それは、COBOLのPERFORM文が「スタック」ではなく、特定のメモリ領域を「戻り番地」として使用する仕組みになっているからです。この仕組みを正しく理解することは、予期せぬバグを未然に防ぐための重要な防衛策となります。
2. 基礎知識：PERFORMと戻り番地の関係
現代のプログラミング言語（C言語やJavaなど）は、関数を呼び出すたびに「スタック」というメモリ領域を確保し、呼び出し元の住所をそこに積み上げます。これにより、多重呼び出しや再帰が可能になっています。
一方、COBOLのPERFORM文は、コンパイル時に各段落（PARAGRAPH）や節（SECTION）の直後に、実行制御を戻すための「戻りアドレス専用のメモリ領域」を静的に確保します。つまり、プログラムの実行開始時点で、どの段落がどこに戻るべきかはコンパイラによって固定されているのです。
3. 実装/解決策：再帰が引き起こす破壊的挙動
PERFORMで自分自身を呼び出すと、その段落に紐付いた「戻り番地領域」が、直前の処理の戻り先で上書きされます。
例えば、Aという段落が自分を呼び出した瞬間、本来「Aを呼び出した親」に戻るはずのメモリ領域が、「自分自身（A）の先頭」に戻るように書き換わってしまいます。これにより、プログラムは永久ループに陥るか、スタックオーバーフローとは異なるメモリ破壊を引き起こし、異常終了します。
4. サンプルプログラム：再帰の代替「スタックの自前実装」
もし再帰が必要なロジックがある場合、COBOLでは「スタック領域（配列）」を自前で定義し、PERFORMではなくGO TOで制御する擬似スタック構造を実装するのが鉄則です。
IDENTIFICATION DIVISION. PROGRAM-ID. RECURSION-SIMULATION. WORKING-STORAGE SECTION.
- 再帰の代わりにスタックを自前で用意する
- 階乗計算などの再帰ロジックをループで代替する
- PERFORMの再帰は使わず、PERFORM THROUGHと
- 状態管理用のフラグやカウンタで制御を行うのが現場の流儀
5. 応用・注意点：現場での回避策
現場で再帰的な処理を求められた際は、以下の原則を守ってください。
1. 再帰は絶対に行わない: 物理的な制約を理解し、ロジックを反復（PERFORM … TIMES や PERFORM UNTIL）に書き換えるのがCOBOLの定石です。
2. 複雑な構造はサブプログラム化する: どうしても再帰的なアルゴリズムが必要な場合は、COBOLではなくC言語などでDLLを作成し、CALLで呼び出す設計を検討してください。
3. コンパイラオプションを確認する: 近年のコンパイラには「再帰を許可する」オプションが存在するものもありますが、古いメインフレーム環境との互換性や保守性を考えると、基本的には使用を避けるのがベテランの判断です。
PERFORMの内部挙動を知ることは、単なる知識ではなく「書けるコード」と「書いてはいけないコード」を見極めるための重要な技術的判断基準となります。
コメント