導入：なぜOPTIONAL属性が必要なのか
メインフレームのプログラミングにおいて、プロシージャ（サブルーチン）を呼び出す際、特定の引数が必要ない場面に遭遇することは多々あります。すべての引数を必須にしてしまうと、呼び出し側のコードが冗長になり、保守性が低下してしまいます。そこで役立つのがOPTIONAL属性です。これを活用することで、一つのプロシージャで「引数あり・なし」の両方に対応でき、よりスマートで柔軟なインターフェースを構築することが可能になります。
基礎知識：OPTIONAL属性とは
OPTIONAL属性とは、PL/Iなどのメインフレーム言語において、呼び出し時に引数の省略を許可するための宣言です。
初心者の方が特に知っておくべきポイントは、この属性が「引数を渡さないこと」を言語仕様として認めるという点です。内部的には、省略された引数に対して「ダミーアドレス」が渡される仕組みになっており、受け取り側はそのアドレスをチェックすることで、引数が存在するかどうかを判断します。この判定には、OMITTED組み込み関数を使用します。
実装・解決策：OMITTED関数による判定
実装の手順はシンプルです。
1. プロシージャの引数宣言に OPTIONAL を付与する。
2. プロシージャ内部で OMITTED(変数名) 関数を使い、引数が渡されたか判定する。
3. 判定結果に応じて、デフォルト値を設定するなどの処理を分岐させる。
サンプルプログラム
以下は、第2引数が省略された場合にデフォルト値を適用する簡単なサンプルコードです。そのままコピーしてロジックの確認にご利用ください。
/ プロシージャの宣言：第2引数はOPTIONAL /
DCL CALC_PROC ENTRY(FIXED BIN(31), FIXED BIN(31) OPTIONAL);
CALC_PROC: PROC(VAL, OPT_VAL);
DCL VAL FIXED BIN(31);
DCL OPT_VAL FIXED BIN(31) OPTIONAL;
DCL RESULT FIXED BIN(31);
/ OMITTED関数で引数の有無をチェック /
IF OMITTED(OPT_VAL) THEN DO;
/ 引数が省略された場合はデフォルト値として10を使用 /
RESULT = VAL + 10;
PUT SKIP LIST(‘引数なし：デフォルト値10を加算しました。結果：’ || RESULT);
END;
ELSE DO;
/ 引数が指定された場合はその値を使用 /
RESULT = VAL + OPT_VAL;
PUT SKIP LIST(‘引数あり：値を加算しました。結果：’ || RESULT);
END;
END CALC_PROC;
応用・注意点：現場での活用と落とし穴
現場で活用する際の重要な注意点は、「ダミーアドレスの取り扱い」です。
OPTIONAL指定された引数が渡されなかった場合、その変数にアクセスしようとすると異常終了（ABEND）の原因となります。必ずOMITTED関数による判定を先に行い、値が存在することを確認してからアクセスするというルールを徹底してください。また、他の言語（TypeScriptやJavaなど）からの移植性を考慮する場合、この仕組みがメインフレーム特有のメモリ管理に基づいていることを理解しておくと、デバッグ時に非常に役立ちます。
この機能を使いこなせば、プロシージャの呼び出しインターフェースを劇的にシンプルにできます。ぜひ、日々の開発で活用してみてください。
コメント