PL/Iの「DEFINED属性」を攻略せよ！メモリを重ねて使う「影武者」のテクニック
こんにちは！メインフレームの世界へようこそ。
JavaやCOBOLでバリバリ開発してきた皆さんにとって、PL/Iのコードを初めて見た時の「なんだこの独特な記述は…」という戸惑い、よくわかります。特に、メモリを自在に操るPL/Iの「DEFINED属性」に出会うと、「え、同じ場所に別名を付けていいの？」と少し怖いですよね。
でも大丈夫。これは現代の言語にはない、メインフレームならではの強力な武器なんです。今日は、この「DEFINED属性」という名の「メモリの影武者」について、実務の視点を交えて優しく紐解いていきましょう。
—
1. DEFINED属性って、何をしているの？
一言で言うと、「既に確保されたメモリ領域を、別の名前で、別の型として覗き見る」ための仕組みです。
Javaなら`Cast`（型変換）を使いますが、PL/Iはもっと直接的です。メモリの住所（アドレス）を共有して、ある時は「8桁の数字」として扱い、またある時は「4文字ずつのコードと日付」として扱う。そんな「見え方の切り替え」ができてしまうのです。
例え話でイメージしてみよう
大きな一つの箱の中に、お菓子がぎっしり詰まっていると想像してください。
- 普通の変数は「この箱の名前は『お菓子箱』です」とラベルを貼る作業。
- DEFINED属性は、「この箱に、『備品入れ』という別のラベルも貼っておこう」という作業です。
中身は同じなのに、ラベルによって「お菓子」として扱うか、「備品」として扱うかが変わる。これがDEFINEDの正体です。
—
2. 実際にコードで見てみよう
例えば、帳票出力などで「8桁の文字列」を「年・月・日」に分解したいとき、PL/Iならこんな風に書けます。
/ 8桁の文字列領域を確保 /
DCL FULL_DATE CHAR(8);
/ 同じ領域を別名で定義。これがDEFINED属性です /
/ POS(1)は「FULL_DATEの1文字目から開始する」という意味 /
DCL 1 DATE_STRUCTURE DEFINED(FULL_DATE),
3 YEAR CHAR(4), / 最初の4文字を年として参照 /
3 MONTH CHAR(2), / 次の2文字を月として参照 /
3 DAY CHAR(2); / 最後の2文字を日として参照 /
/ 実務での使用例 /
FULL_DATE = ‘20231027’;
/ これだけで、YEARには’2023’、MONTHには’10’、DAYには’27’が入る！ /
PUT SKIP LIST(‘年は:’ || YEAR);
どうでしょう？ `FULL_DATE` に値を代入するだけで、自動的に `YEAR` や `MONTH` も書き換わっているのがわかりますよね。いちいち `SUBSTR` 関数で切り出す手間がいらない。これがレガシーシステムの「神速」の秘密の一つです。
—
3. 注意点：ここだけは気をつけて！
この強力な機能には、いくつか「罠」もあります。実務でハマらないために、これだけは覚えておいてください。
① 境界調整（アライメント）の罠
PL/Iは、数値型（FIXED BINARYなど）を使う場合、メモリの配置に厳しいルール（境界）があります。文字列から数値へオーバーレイする場合、意図しないオフセット（ズレ）が発生することがあります。
- 対策: 構造体を定義する際は `UNALIGNED` 属性を明示的に付与して、パディング（隙間）が入らないように制御しましょう。
DCL 1 MY_DATA UNALIGNED,
3 VAL1 FIXED BIN(31),
3 VAL2 FIXED BIN(31);
② 「どこを指しているか」がわからなくなる
DEFINEDを使いすぎると、プログラムの途中で「あれ？この変数はどの変数とリンクしてたんだっけ？」と迷子になります。
- 対策: 共通領域（COPY句やINCLUDEで取り込む領域）にはDEFINEDを多用せず、プログラムの局所的な変換処理に限定して使いましょう。
—
最後に：怖がらずに使いこなそう
DEFINED属性は、メインフレームの限られたリソースを最大限に活用するための「知恵の結晶」です。今でこそメモリは潤沢ですが、かつてのエンジニアたちが「いかに効率よく、速く動かすか」を追い求めた結果生まれた工夫なんですよ。
最初は不思議な記述に見えても、メモリの地図を頭に描けるようになると、PL/Iは本当に面白い言語です。もし現場のコードでDEFINEDを見かけたら、「あ、ここはメモリを共有して効率化しているんだな」と、優しく見守ってあげてくださいね。
また次の記事で、メインフレームの深い世界を探検しましょう！何か分からないことがあれば、いつでもコメントしてくださいね。
