1. 導入：なぜ文字列の再定義が重要なのか
メインフレームのPL/I開発において、文字列を「全体」として扱う場面と、「1文字ずつ」細かくチェック・変換する場面の両方が頻繁に発生します。通常、文字列を配列に変換しようとすると、メモリのコピー処理が発生し、パフォーマンスやメモリ消費の面でロスが生じます。
今回紹介する「DEFINED」を使った定義手法は、同じメモリ領域を「別の見方（データ型）」で参照する技術です。これにより、メモリを一切コピーすることなく、文字列と配列を自由に行き来できるようになります。
2. 基礎知識：DEFINEDとは何か
PL/IにおけるDEFINED属性は、ある変数が別の変数と同じメモリ領域を共有するように定義するものです。C言語の共用体（Union）に近い考え方ですが、より柔軟な「スライス」が可能です。
特にCHAR(10)のような文字列を、CHAR(1)が10個並んだ配列として定義することで、文字列全体の長さを保ちつつ、各要素（インデックス）を指定してアクセスできるようになります。
3. 実装と解決策
実装は非常にシンプルです。元となる文字列を宣言し、その後にDEFINED句を使って配列を定義します。この時、配列の要素数と型が、元の文字列のサイズと一致するように注意してください。この定義を行うだけで、配列側を操作すると、即座に元の文字列の中身も書き換わります。
4. サンプルプログラム
以下のコードをコピーして、コンパイル・実行してみてください。配列操作がどのように元の文字列に反映されるかを確認できます。
/ 10バイトの文字列を定義 /
DCL STR CHAR(10) INIT(‘ABCDEFGHIJ’);
/ STRを1バイトずつの配列として再定義 /
DCL ARR(10) CHAR(1) DEF STR;
/ 5番目の要素を書き換える /
ARR(5) = ‘Z’;
/ 結果の確認：STRの値は’ABCDZFGHIJ’に変化しています /
PUT SKIP LIST(‘文字列全体: ‘ || STR);
PUT SKIP LIST(‘配列の5番目: ‘ || ARR(5));
5. 応用・注意点：現場で陥りやすい罠
この手法は非常に強力ですが、以下の点に注意してください。
メモリの共有による副作用
ARR(I)を書き換えると、即座にSTRの内容も変わります。もしSTRの内容をバックアップとして保持しておきたい場合は、この手法を使う前に明示的に別の領域へコピーしておく必要があります。
境界値チェック
配列の要素数を超えてアクセスしようとすると、プログラムの異常終了や、意図しないメモリ領域への書き込み（隣接する変数への影響）が発生する可能性があります。必ず配列の範囲内でループ処理を行うようにしてください。
可読性の向上
この手法を使うと、バリデーション処理（例えば「数字が含まれているか1文字ずつチェックする」など）が非常に簡潔に書けます。しかし、後からコードを読む人には「なぜ配列になっているのか」が伝わりにくい場合があります。コメントに「文字列を文字単位で操作するための再定義」と明記しておくことが、保守性を保つコツです。
コメント