1. 導入：なぜINITIAL句のテクニックが重要なのか
メインフレームの事務処理において、帳票のヘッダーや固定値の配列を作成する際、一つずつ値を代入していませんか？「100回繰り返す処理」をループで書くと、プログラムの行数が増えるだけでなく、実行時のCPU負荷もわずかながら増加します。今回紹介するINITIAL句での初期化テクニックを使えば、メモリ上のデータ生成をコンパイル時に最適化し、コードを劇的に短縮できます。
2. 基礎知識：INITIAL句とデータ宣言の仕組み
PL/I等の言語で使われるDCL（DECLARE）文は、変数のメモリ領域を確保する役割を持ちます。その際、INITIAL句を組み合わせることで、プログラム開始時に特定の値をその領域に詰め込むことができます。ここで重要なのが「反復子」の概念です。`(n)’文字列’`という記法を使うことで、指定した回数だけ文字列を連続して配置できます。これは現代のJavaやPythonでいう「文字列の乗算」や「リストのコピー」に相当する、非常に強力な機能です。
3. 実装と解決策：複雑な初期化を一行で
単一の文字列だけでなく、複数のパターンを連結して初期化することも可能です。例えば、ヘッダー行や特定の区切り文字を含むテストデータを作成する際、以下の書き方で一気にメモリを確保できます。
4. サンプルプログラム：即戦力のコード例
以下は、15バイトの領域に対して、’ABC’を3回、’XYZ’を2回連結して初期化する例です。
DCL PATTERN CHAR(15) INIT((3)’ABC’, (2)’XYZ’);
/
解説:
(3)’ABC’ は ‘ABCABCABC’ (9バイト) を生成します
(2)’XYZ’ は ‘XYZXYZ’ (6バイト) を生成します
合計で 9 + 6 = 15バイトとなり、PATTERNの属性長と一致するため
メモリ上には ‘ABCABCABCXYZXYZ’ というデータが展開されます
/
/ 動作確認用の出力処理 /
PUT SKIP LIST(‘生成されたデータ: ‘ || PATTERN);
5. 応用・注意点：現場で陥りやすい罠
この手法を用いる際、最も注意すべきは「データ長と属性の不一致」です。
注意点1：パディングの発生
もし宣言したCHAR(20)に対し、INITIALで生成した値が15バイトしかなければ、残りの5バイトは自動的に空白（スペース）で埋められます。予期せぬ空白が後続の文字列連結に悪影響を及ぼさないか、必ず長さの計算を確認してください。
注意点2：メンテナンス性
「一行で書ける」ことはメリットですが、あまりに複雑な連結を詰め込みすぎると、後から保守する人が桁数を数え間違い、バグの原因になります。コメント行で各パーツのバイト数を明記しておくのが、現場で生き残るプロの流儀です。
複雑な初期化を賢く使い、メインフレームでの効率的なデータ定義を目指しましょう。
コメント