【PL/I学習｜豆知識】PL/I内部手続き徹底解説：局所処理の効率化と潜在リスク

皆様、日々のメインフレーム開発お疲れ様です。今回は、PL/Iにおける内部手続き（INTERNAL PROCEDURE）について深く掘り下げていきたいと思います。この機能は非常に便利である反面、使い方を誤ると予期せぬバグの温床となる可能性も秘めています。

1. 導入：なぜ内部手続きが重要なのか？

PL/Iの内部手続きは、特定のプロシージャ（親プロシージャ）の内部に記述される手続きです。これは、親プロシージャ内だけで使われるような局所的な共通処理をサブルーチン化する際に非常に有効です。例えば、特定のデータ形式への変換処理や、繰り返し行われるエラーチェックなど、コードの重複を避け、可読性を向上させるのに役立ちます。しかし、その便利な「ホスト結合」の仕組みゆえに、安易な使用はコードの保守性を損ない、将来的な改修を困難にする潜在的なリスクも抱えています。

2. 基礎知識：内部手続きの仕組みとスコープ

内部手続きとは、文字通り別のプロシージャの中に記述されたプロシージャのことです。外部手続き（EXTERNAL PROCEDURE）が独立したコンパイル単位であるのに対し、内部手続きは親プロシージャの一部としてコンパイルされます。

この内部手続きの最大の特徴は、ホスト結合（Host Association）という仕組みにあります。これは、内部手続きが宣言された親プロシージャ内で宣言された変数を、内部手続きの中からそのまま参照・更新できるという特性です。つまり、親プロシージャの変数が内部手続きの「ローカル変数」のように振る舞い、引数として明示的に渡さなくても直接アクセス可能となります。これにより、手続き間のデータ受け渡しがシンプルになるというメリットがあります。

3. 実装/解決策：内部手続きの定義と呼び出し

内部手続きの定義は非常にシンプルです。親プロシージャのEND文の前に、通常の手続きと同様にPROC文とEND文で囲んで記述します。呼び出しもCALL文で行います。

論理的には、内部手続きは親プロシージャのスコープ内に存在するため、親プロシージャの変数を「共有」している状態になります。これは、親プロシージャが持つ「状態」を内部手続きが暗黙的に引き継ぎ、操作できることを意味します。

4. サンプルプログラム：内部手続きによるカウンター処理

以下のPL/Iサンプルコードは、内部手続き`INCREMENT_COUNTER`が親プロシージャ`SAMPLE_PROG`の変数`GRP_CNT`を直接操作する例です。


SAMPLE_PROG: PROC OPTIONS(MAIN);
  DCL GRP_CNT FIXED BIN(31) INIT(0); / グループ全体のカウントを保持する変数 /
  DCL I         FIXED BIN(31);     / ループ処理用のカウンタ /

  PUT SKIP LIST('--- 内部手続きの動作確認 ---');

  / 内部手続きを呼び出す前の親プロシージャの変数状態を確認 /
  PUT SKIP LIST('開始時 GRP_CNT = ', GRP_CNT);

  / 内部手続きを複数回呼び出すループ /
  DO I = 1 TO 3;
    CALL INCREMENT_COUNTER; / 内部手続き「INCREMENT_COUNTER」を呼び出し /
    / 呼び出し後の親プロシージャの変数状態を確認 /
    PUT SKIP LIST('呼び出し ', I, '回目後 GRP_CNT = ', GRP_CNT);
  END;

  / ---------------------------------------------------- /
  / ここから内部手続きの定義 /
  / 親プロシージャ「SAMPLE_PROG」の内部に記述されています /
  / ---------------------------------------------------- /
  INCREMENT_COUNTER: PROC;
    / 親プロシージャで宣言されたGRP_CNT変数を直接参照し、値をインクリメント /
    / 引数として渡さなくても、親の変数を操作できるのがホスト結合の特徴 /
    GRP_CNT = GRP_CNT + 1;
    PUT LIST('  (内部手続き内でGRP_CNTをインクリメントしました)');
  END INCREMENT_COUNTER;
  / ---------------------------------------------------- /
  / 内部手続きの定義ここまで /
  / ---------------------------------------------------- /

  PUT SKIP LIST('--- 処理終了 ---');
END SAMPLE_PROG;

このコードを実行すると、`INCREMENT_COUNTER`が呼び出されるたびに、親プロシージャの`GRP_CNT`の値がインクリメントされていくのが確認できます。

5. 応用・注意点：現場で役立つ情報と潜在リスク

応用例

特定のデータ変換処理: 親プロシージャ内で複数の箇所で同じデータ変換ロジックが必要な場合。
エラーコードの共通処理: 特定の条件で共通のエラーコードを設定する処理など。
ログ出力の共通化: プロシージャ内の複数の箇所から呼び出される特定の形式のログ出力。

注意点と潜在リスク

暗黙的な状態共有によるデバッグの困難さ:
内部手続きは親プロシージャの変数を直接操作するため、どのタイミングで変数の値が変わったのかを追跡するのが難しくなることがあります。特に、複雑なロジックの中で多用されると、デバッグ工数が跳ね上がる原因となりがちです。
疎結合設計の妨げ:
親プロシージャの状態に強く依存するため、内部手続きと親プロシージャが密結合になります。これは、片方を変更するともう片方にも影響が出やすくなることを意味し、将来的なコードの再利用性や独立したテストを困難にします。モダンな開発手法では、コンポーネント間の独立性を高める疎結合設計が推奨されます。
リファクタリングの推奨:
「参考本文」にもあるように、Javaなどのオブジェクト指向言語への移行を考えると、内部手続きで暗黙的に共有していた変数は、引数として明示的に渡す、またはインスタンス変数を介した共有に設計を見直す（リファクタリングする）ことが強く推奨されます。これにより、データの流れが明確になり、保守性が向上します。

内部手続きは便利な機能ですが、その特性を理解し、必要最小限の範囲で、かつ将来的な保守性を考慮して利用することが、高品質なメインフレームシステムを維持する上で非常に重要です。