導入
メインフレームのPL/I開発において、LABEL属性はプログラムの制御フローを動的に操作できる強力な機能です。しかし、その強力さゆえに、安易な使用はコードの可読性を著しく低下させ、保守担当者を悩ませる「スパゲッティコード」の元凶となります。本稿では、LABEL属性の技術的な仕組みを解説しつつ、なぜ現代のシステム開発においてこの手法が慎重に扱われるべきなのか、その背景と適切な運用方法を考察します。
基礎知識
LABEL属性とは、プログラム内の「飛び先（実行文の開始位置）」を値として保持するためのデータ型です。通常の変数が数値を保持するように、ラベル変数はGOTO文のターゲットとなるプログラム内の位置情報を保持します。これにより、プログラムの実行中にGOTOの飛び先を動的に切り替えることが可能になります。
実装/解決策
LABEL属性を使用する場合、対象となるラベル変数をDCL（宣言）し、そこに特定のラベル定数を代入します。実行時にその変数をGOTO文で呼び出すことで、指定された処理ブロックへ制御を移します。
サンプルプログラム
以下は、エラー種別に応じて処理の分岐先を動的に変更するサンプルです。
/ 処理フローを動的に切り替えるサンプル /
DCL TARGET_LABEL LABEL; / ラベル変数の宣言 /
DCL ERROR_CODE FIXED BIN(15);
ERROR_CODE = 1;
/ エラーコードに基づいて飛び先を決定 /
IF ERROR_CODE = 1 THEN TARGET_LABEL = ERR_PROC_A;
ELSE TARGET_LABEL = ERR_PROC_B;
GOTO TARGET_LABEL; / 変数に格納された場所へジャンプ /
ERR_PROC_A:
PUT SKIP LIST(‘処理Aのエラーハンドリングを実行します’);
GOTO END_PROC;
ERR_PROC_B:
PUT SKIP LIST(‘処理Bのエラーハンドリングを実行します’);
GOTO END_PROC;
END_PROC:
PUT SKIP LIST(‘処理終了’);
応用・注意点
1. 制御フローの可視化を阻害するリスク
現代的なプログラミング言語では、関数ポインタや例外処理（ONユニット）、あるいはオブジェクト指向のデリゲートがこの役割を担います。LABEL変数を多用すると、静的解析ツールやコンパイラが制御フローを正しく追跡できず、バグの温床となるだけでなく、後継者がコードを読解する際の難易度を大幅に引き上げます。
2. 構造化プログラミングの原則
可能な限り、DOグループの制御やCASE文（SELECT構造）、あるいは手続き（PROCEDURE）の呼び出しで代替することを推奨します。特に、例外的な終了処理が必要な場合は、ONユニットや条件コードを活用する設計が、メインフレームにおける現代的な実装と言えます。
3. 移行時の注意点
レガシーコードから他言語への移行を検討している場合、LABEL変数は最も変換が困難な箇所の一つです。もし現在LABEL属性を使用している箇所があるならば、可能な限り条件分岐（IFやSELECT）による静的な制御への書き換えを検討してください。技術的な「できる」ことと、保守運用上の「すべき」ことを峻別することが、安定したメインフレーム運用への第一歩です。
コメント