1. 導入：なぜ KEYED 属性が重要なのか
メインフレームのオンライン処理やバッチ処理において、膨大なデータから特定のレコードを瞬時に特定することは、システム全体のパフォーマンスを左右する最重要課題です。シーケンシャルな読み込み（順次アクセス）では非効率な場面において、VSAMのKSDS（Key Sequenced Data Set）を用いた「直接アクセス」を可能にするのが KEYED 属性 です。本記事では、PL/Iにおける KEYED 属性の正しい定義と、実務で頻出するキー検索のテクニックを解説します。
2. 基礎知識：KEYED 属性とは
KEYED 属性は、ファイル定義（DCL FILE）において、そのファイルがキーフィールドによるランダムアクセスをサポートしていることをコンパイラおよび実行環境（OS）に伝えるための宣言です。
・KSDS (Key Sequenced Data Set): キー項目をインデックスとして管理するVSAMファイル形式。
・KEYED 属性の役割: この属性を付与することで、READ文のKEYオプションやWRITE文のKEYFROMオプションが有効化され、特定のキー値に基づいた高速なI/Oが可能になります。
3. 実装と解決策：キー指定によるアクセス
実務では、単なるIDによる一意検索だけでなく、特定の範囲やプレフィックスでの検索も求められます。
・完全一致検索: キー全体を指定して特定のレコードを読み込む。
・GENERIC 検索: キーの先頭部分のみを指定し、該当する最初のレコードを読み込む。これはPL/I特有の強力な機能です。
4. サンプルプログラム
以下は、KEYED 属性で定義されたファイルに対して、キーを用いた読み込みを行う基本的なPL/Iのコード例です。
/ ファイル定義：KEYED属性を付与 /
DCL VSAM_IN FILE RECORD INPUT KEYED ENV(VSAM);
/ レコード構造体 /
DCL 1 REC_STRUC,
5 CUST_ID CHAR(8),
5 DATA_VAL CHAR(72);
/ キー変数 /
DCL SEARCH_KEY CHAR(8) INIT(‘A0000001’);
/ 直接アクセス実行 /
READ FILE(VSAM_IN) INTO(REC_STRUC) KEY(SEARCH_KEY);
IF ONCODE = 0 THEN
PUT SKIP LIST(‘検索成功: ‘ || REC_STRUC.DATA_VAL);
ELSE
PUT SKIP LIST(‘レコードが見つかりません’);
/ 部分一致検索(GENERIC)の例: キーの先頭4桁が’A000’のものを検索 /
READ FILE(VSAM_IN) INTO(REC_STRUC) KEYTO(SEARCH_KEY) GENERIC(4);
5. 応用・注意点：現場で陥りやすい罠
実務現場では、以下の点に注意してください。
・GENERIC 検索の挙動: GENERIC を使用する場合、指定した長さ分のみが比較対象となります。SQLの `LIKE ‘A000%’` に相当しますが、検索後に必ず戻り値（ONCODE）を確認し、想定外のレコードを読み込んでいないか検証してください。
・パフォーマンスの考慮: 大量件数の検索において、KEYED アクセスをループ内で繰り返すと、I/O負荷が急増します。可能であれば、SETL（Set Limit）を使用して読み込み範囲を制限するなど、索引の特性を活かした工夫が必要です。
・キーの重複: KSDSにおいてキーが重複する場合、READ文がどのレコードを指すかは定義に依存します。運用設計段階で、キーの一意性が保証されているか必ず確認してください。
これらを意識することで、メインフレームの強力なI/O機能を最大限に引き出し、堅牢なシステム構築が可能となります。
コメント