導入：なぜENDに名前が必要なのか
メインフレームの巨大なソースコードを保守する際、最も頭を悩ませるのは「DOやPROCEDUREの閉じ忘れ」によるコンパイルエラーや、意図しないスコープの暴走です。特に数千行を超えるPL/Iプログラムにおいて、単なるENDステートメントだけでは、どのブロックがどこで終了しているのか一目で判断できません。本稿では、ENDステートメントに名前を付与することで、コンパイラによる整合性チェックを強化し、メンテナンス性を飛躍的に高める手法を解説します。
基礎知識：PL/Iのブロック構造とENDの役割
PL/Iにおけるブロック構造は、PROCEDUREやBEGIN-ENDブロックによって形成されます。通常、ENDステートメントは単独で記述可能ですが、これは「直近のブロックを閉じる」という挙動をします。しかし、ネストが深くなると、意図した場所でブロックが閉じられているかをコンパイラが厳密に検証できません。ENDの後に手続き名（ラベル）を指定することで、コンパイラは「指定された名前のブロックが正しく終了しているか」を物理的に照合します。これにより、閉じ忘れや誤った位置での終了を防ぐことが可能になります。
実装と解決策
実装は非常にシンプルです。手続き開始時に設定したラベル名を、対応するENDの直後に記述するだけです。これにより、コードの可読性が向上するだけでなく、移行ツールや静的解析ツールがソースコードの構造を正確に抽出できるようになります。特に、複数の条件分岐（IF-THEN-ELSE）やネストされたDOループが混在する複雑なロジックでは、この記述ルールをチーム内で徹底することが、バグを未然に防ぐ最大の防御策となります。
サンプルプログラム
以下は、名前付きENDを使用した実用的なコーディング例です。
/ 処理開始：メイン手続き /
MAIN_PROC: PROCEDURE OPTIONS(MAIN);
DCL MSG CHAR(20) INIT(‘START’);
/ 内部ブロックの開始 /
PROCESS_DATA: BEGIN;
PUT SKIP LIST(MSG);
END PROCESS_DATA; / BEGINブロックの終了を明示 /
/ ネストされたループの処理 /
LOOP_PROC: DO I = 1 TO 10;
IF I > 5 THEN
LEAVE LOOP_PROC;
END LOOP_PROC; / DOループの終了を明示 /
END MAIN_PROC; / メイン手続きの終了を明示 /
応用・注意点
現場での運用において特に注意すべきは、「ラベルの付け替え」です。保守中に手続き名を変更する場合、開始行だけでなく、対応するEND行のラベルも必ずセットで修正する必要があります。もしここが不一致になると、コンパイラは「ラベル名が一致しません」という警告またはエラーを出力します。これは一見面倒に思えますが、「修正漏れをコンパイラが指摘してくれる」という強力な安全装置であることを忘れないでください。また、移行ツールを使用して古いコードを現代的な環境へ移送する際、この名前付きENDの有無が解析精度の分かれ目になります。可読性と堅牢性の両立のため、今日から「名前付きEND」をコーディング規約に盛り込むことを強く推奨します。
コメント