【実務・中級編】ENVIRONMENT属性によるOS依存のファイル特性定義 – PL/Iの基本構文とデータ制御実践ガイド

【PL/I実践講座】ENVIRONMENT属性でファイル特性を制す！DCB・ブロックサイズ・レコードフォーマットを使いこなす極意

おい、諸君。今日はPL/Iのファイル入出力、特に`ENVIRONMENT`属性について、現場のリアルな視点から徹底的に解説していくぞ。単なる言語仕様の羅列なんて、退屈で何の役にも立たない。俺たちが日々格闘しているのは、生きたシステムだ。そこでは、ちょっとした設定ミスが夜通しデバッグする羽目になったり、パフォーマンスを劇的に左右したりする。だからこそ、この`ENVIRONMENT`属性をしっかり理解し、使いこなすことが、君たちのメインフレーム保守・開発スキルを格段に引き上げる鍵となるんだ。

なぜ`ENVIRONMENT`属性が重要なのか？

PL/Iのファイル定義には、`FILE`属性と、それに付随する様々な属性がある。その中でも`ENVIRONMENT`属性は、JCLのDDステートメントで指定されるDCB（Data Control Block）パラメータや、データセットの物理的な特性――例えばブロックサイズ（BS）やレコードフォーマット（RECFM）――を、プログラム内で直接、あるいは間接的に制御するための強力な手段だ。

「いやいや、JCLで指定するんでしょ？」と思うかもしれない。確かに、JCLで指定するのが一般的だ。しかし、プログラム内で`ENVIRONMENT`属性を使ってこれらの特性を明示的に定義することで、以下のようなメリットがある。

  • 移植性の向上: JCLの修正なしに、プログラム側でファイル特性を切り替えられる可能性がある。特に、開発環境と本番環境でデータセットの特性が異なる場合などに威力を発揮する。
  • 可読性と保守性の向上: ソースコードを読むだけで、そのファイルがどのような特性を持っているのか、ある程度推測できるようになる。これは、後任者や他の担当者がコードを理解する上で非常に助けになる。
  • デバッグの効率化: 予期せぬI/Oエラーやデータ破損の原因が、ファイル特性の不一致にある場合、`ENVIRONMENT`属性の記述を疑うことで、問題の切り分けが迅速になることがある。

もちろん、JCLで指定されたDCBパラメータが優先される場合もある。だが、PL/IプログラムがOSとどのように対話するかを理解する上で、`ENVIRONMENT`属性の指定は避けて通れない道なんだ。

`ENVIRONMENT`属性の基本構文と主要オプション

`ENVIRONMENT`属性は、`FILE`属性と組み合わせて使用される。基本的な構文は以下の通りだ。

DECLARE filename FILE
ENVIRONMENT (ddname,
option1,
option2,
…);

ここで`ddname`は、JCLのDDステートメントで対応するデータセットを指し示すための名前だ。これが最も基本的な指定方法となる。

さて、ここからが本題だ。`ENVIRONMENT`属性で指定できる主要なオプションについて、実際の現場でよく遭遇するもの、そして注意すべき点を中心に見ていこう。

1. レコードフォーマット (RECFM) の指定

レコードフォーマットは、データセットがどのようにレコードを格納しているかを示す重要な情報だ。PL/Iでは`ENVIRONMENT`属性のオプションでこれを指定できる。

  • FB (Fixed Block): 固定長ブロック。各レコードの長さは一定で、ブロック内にレコードが詰め込まれる。
  • VB (Variable Block): 可変長ブロック。各レコードの長さは異なり、レコードの先頭に長さ情報が付加される。ブロックサイズ内に複数のレコードが格納される。
  • VBS (Variable Block, Spanned): VBに似ているが、1つのレコードが複数のブロックにまたがることが許される。
  • U (Undefined): レコード長もブロック長も未定義。主にストリームファイルなどで使われる。

`ENVIRONMENT`属性でRECFMを指定する場合、以下のように記述する。

DECLARE MY_FB_FILE FILE
ENVIRONMENT (MYDD_FB,
RECFM(FB),
/ 他のオプション /
);

DECLARE MY_VB_FILE FILE
ENVIRONMENT (MYDD_VB,
RECFM(VB),
/ 他のオプション /
);

【現場からのアドバイス】

  • RECFM(U)の注意: `RECFM(U)`を指定した場合、PL/Iはブロック境界を意識しない。これは、テキストファイルや、レコード長を自分で管理するような特殊なファイルで有効だが、誤って使用するとデータ破損の原因になる。通常、バッチ処理で固定長や可変長のデータセットを扱う場合は、`FB`や`VB`を指定すべきだ。
  • VSAMファイル: VSAMファイルの場合、`VSAM`オプションを指定し、レコードフォーマットは暗黙的に扱われることが多い（ACBsで定義される）。しかし、AREASIZEなどのパラメータは`ENVIRONMENT`属性で指定できる場合がある。

2. ブロックサイズ (BS) の指定

ブロックサイズは、データセットの物理的な読み書き単位となるブロックのサイズだ。これはI/O性能に直結する重要なパラメータだ。

DECLARE LARGE_BLOCK_FILE FILE
ENVIRONMENT (BIGDD,
RECFM(FB),
BLKSIZE(32760) / 32KB /
);

DECLARE SMALL_BLOCK_FILE FILE
ENVIRONMENT (SMDD,
RECFM(VB),
BLKSIZE(4000) / 4KB /
);

【現場からのアドバイス】

  • 適切なブロックサイズの選定: ブロックサイズが小さすぎると、I/O回数が増えてパフォーマンスが低下する。逆に大きすぎると、メモリの消費が増えたり、一部のI/Oデバイスの性能限界を超えたりする可能性がある。一般的に、FBファイルでは、32KB（32760バイト）や、ストレージのセクタサイズ（例: 4096バイトの倍数）に合わせたサイズが推奨されることが多い。VBファイルでは、レコードの最大長＋レコード長フィールド（4バイト）＋ブロック長フィールド（4バイト）＋オーバーヘッドを考慮して、適切なサイズを設定する。
  • JCLとの関係: JCLのDCBパラメータで`BLKSIZE`が指定されている場合、通常はJCLの設定が優先される。しかし、プログラム内で明示的に指定することで、意図しないブロックサイズでのオープンを防ぐことができる。
  • VSAMファイル: VSAMファイルでは、`AREASIZE`オプションで制御されることが多い。

3. その他の便利なオプション

  • `ACCESS(SEQUENTIAL)` / `ACCESS(RANDOM)`: ファイルのアクセス方法を指定する。デフォルトは`SEQUENTIAL`だが、VSAMファイルなどで`RANDOM`アクセスを行う場合に明示的に指定することがある。
  • `BUFFER(n)`: I/Oバッファの数を指定する。バッファ数を増やすことで、I/Oのオーバーラップを促進し、パフォーマンスを向上させることができる。
  • `RECORD`: レコード指向のI/Oを行うことを示す。これはデフォルトで有効になることが多いが、明示することで意図を明確にする。
  • `KEYLENGTH(n)`: VSAMファイルなどで、キーフィールドの長さを指定する。
  • `RECORDSIZE(average, maximum)`: VBファイルなどで、平均レコード長と最大レコード長を指定する。これは、データセットの割り当てや、I/Oパフォーマンスの最適化に役立つ。

実践的なコード例：FBファイルとVBファイルでの入出力

それでは、FBファイルとVBファイルを使った簡単な入出力処理を、`ENVIRONMENT`属性を意識した形で見ていこう。

例1：固定長ブロック (FB) ファイルへの書き込み

/ FB_WRITE_PROC: 固定長ブロックファイルへの書き込みサンプル /
FB_WRITE_PROC: PROCEDURE OPTIONS(MAIN);

DECLARE
OUTPUT_FILE FILE
ENVIRONMENT (OUTDD_FB,
RECFM(FB),
BLKSIZE(32760) / 32KB /
),
RECORD_DATA CHAR(80) VARYING; / 固定長だがVARYINGで可変長データも扱える /

DECLARE
MAX_RECS FIXED BIN(31) INIT(100); / 書き込む最大レコード数 /
DECLARE
REC_COUNT FIXED BIN(31) INIT(0); / 現在のレコード数 /

/ エラーハンドリング用ONユニット /
ON ENDFILE(OUTPUT_FILE)
BEGIN;
PUT SKIP LIST(‘EOF reached unexpectedly.’);
GO TO END_PROC;
END;

ON ERROR
BEGIN;
PUT SKIP LIST(‘An I/O error occurred.’);
/ エラーコードなどの詳細情報を取得する処理を追加 /
SIGNAL; / エラーを再発生させる /
END;

/ ファイルオープン /
OPEN FILE(OUTPUT_FILE) OUTPUT STREAM SEQUENTIAL; / STREAMはデフォルトだが明示 /

/ データ生成と書き込み /
DO WHILE (REC_COUNT < MAX_RECS); REC_COUNT = REC_COUNT + 1; / ここで動的にレコードデータを生成・設定する / RECORD_DATA = 'Record number: ' || TRIM(CHAR(REC_COUNT)); / 固定長80バイトにパディング / PUT FILE(OUTPUT_FILE) EDIT (RECORD_DATA) (A(80)); END; / ファイルクローズ / CLOSE FILE(OUTPUT_FILE); PUT SKIP LIST('Successfully wrote ' || CHAR(REC_COUNT) || ' records to OUTDD_FB.'); END_PROC: RETURN; END FB_WRITE_PROC; 【ポイント】

  • `RECFM(FB)`と`BLKSIZE(32760)`で、ファイル特性を明示しています。
  • `PUT FILE(OUTPUT_FILE) EDIT (RECORD_DATA) (A(80));` の部分で、`A(80)`と指定することで、`CHAR(80)`の固定長フィールドとして書き込んでいます。`VARYING`宣言していても、`PUT EDIT`で指定した長さでパディングされるか、切り捨てられます。
  • `ON ENDFILE`や`ON ERROR`は、I/Oエラー発生時の基本的なハンドリングです。実際のシステムでは、より詳細なエラーコード取得やリカバリ処理が必要です。

例2：可変長ブロック (VB) ファイルからの読み込み

/ VB_READ_PROC: 可変長ブロックファイルからの読み込みサンプル /
VB_READ_PROC: PROCEDURE OPTIONS(MAIN);

DECLARE
INPUT_FILE FILE
ENVIRONMENT (IN_DD_VB,
RECFM(VB),
BLKSIZE(4000) / 4KB /
),
READ_RECORD CHAR(200) VARYING; / 最大200バイトの可変長レコード /

/ エラーハンドリング用ONユニット /
ON ENDFILE(INPUT_FILE)
BEGIN;
PUT SKIP LIST(‘End of input file reached.’);
GO TO EXIT_PROGRAM;
END;

ON ERROR
BEGIN;
PUT SKIP LIST(‘An I/O error occurred during input.’);
/ エラー詳細取得 /
SIGNAL; / エラーを再発生 /
END;

/ ファイルオープン /
OPEN FILE(INPUT_FILE) INPUT STREAM; / STREAMはデフォルト /

PUT SKIP LIST(‘Reading records from IN_DD_VB…’);

/ ファイルからレコードを読み込む /
DO WHILE (1); / 無限ループ（ENDFILEで抜ける） /
GET FILE(INPUT_FILE) EDIT (READ_RECORD) (A); / Aは可変長READ_RECORDに合わせる /
/ 読み込んだレコードの内容を表示 /
PUT SKIP LIST(‘Read: ‘ || READ_RECORD);
/ ここで読み込んだレコードに対する処理を行う /
END;

EXIT_PROGRAM:
/ ファイルクローズ /
CLOSE FILE(INPUT_FILE);

PUT SKIP LIST(‘Finished reading input file.’);

END VB_READ_PROC;

【ポイント】

  • `RECFM(VB)`と`BLKSIZE(4000)`を指定しています。
  • `GET FILE(INPUT_FILE) EDIT (READ_RECORD) (A);` の部分で、`READ_RECORD`が`VARYING`宣言されているため、レコードの実際の長さに合わせて読み込まれます。`A`フォーマットは、可変長データに対して柔軟に対応します。
  • `DO WHILE (1);` のループは、`ON ENDFILE`ユニットで処理されるまで続きます。

ONユニットと`ENVIRONMENT`属性の連携

`ON`ユニットは、PL/Iの強力なエラーハンドリング機能です。`ENVIRONMENT`属性で定義されたファイル特性と関連するI/Oエラーが発生した場合、これらの`ON`ユニットが呼び出されます。

  • `ON ENDFILE(filename)`: ファイルの終端に達したときに発生します。EOF（End Of File）の検出は、バッチ処理の正常終了条件としてよく使われます。
  • `ON IORECIAL(filename)`: 物理的なI/Oエラー（ディスクエラー、DCBエラーなど）が発生したときに呼び出されます。
  • `ON CONVERR(filename)`: データ変換エラー（数値と文字の不一致など）が発生したときに呼び出されます。
  • `ON UNDEFINEDFILE(filename)`: 定義されていないファイルにアクセスしようとした場合に発生します。

これらの`ON`ユニットを適切に設定しておくことは、堅牢なバッチプログラムを作成する上で不可欠です。例えば、`ON IORECIAL`でエラーコードを取得し、ログに出力したり、JCLの異常終了コードを設定したりする処理は、現場では必須の対応となります。

/ エラーハンドリング強化例 /
ON IORECIAL(MY_FILE)
BEGIN;
DECLARE SYSMSG CHAR(100) VARYING;
/ システムメッセージを取得するBUILTIN関数 (例: strerror) /
/ SYSMSG = STRERROR(SYSIOCB.SYSERROR); / / 実際にはIOCCB/SYSIOCB構造体を利用 /
PUT SKIP LIST(‘IO Error occurred on MY_FILE. Error code: ‘ || CHAR(SYSIOCB.SYSERROR)); / 仮想的な例 /
/ 異常終了コードを設定 /
/ CALL SETRC(16); / / SETRCはBUILTIN関数ではない場合がある /
SIGNAL; / エラーを再発生 /
END;

(注: `SYSIOCB.SYSERROR`や`SETRC`は、環境やPL/Iコンパイラによって利用できるか、あるいは構造体が異なる場合があります。実際のシステムで利用可能な組み込み関数や構造体を確認してください。)

まとめと今後のステップ

`ENVIRONMENT`属性は、PL/IプログラムがOSのファイルシステムとどのように連携するかを定義する上で、非常に重要な役割を果たします。`RECFM`や`BLKSIZE`といった基本的なファイル特性をプログラム内で明示的に指定することで、コードの可読性、保守性、そして移植性を向上させることができます。

今日触れたのは基本的な部分に過ぎません。VSAMファイルへのランダムアクセス、`BUFFER`オプションによるパフォーマンスチューニング、`KEYLENGTH`や`RECORDSIZE`といったより詳細な指定など、さらに掘り下げると奥深い世界が広がっています。

君たちが今後、大規模なバッチ改修やマイグレーション調査に携わる際、あるいは既存のCOBOLプログラムをPL/Iに移行するような場面に遭遇したとき、この`ENVIRONMENT`属性の知識は必ず君たちの力になるはずだ。

まずは、現在保守しているプログラムで、`ENVIRONMENT`属性がどのように使われているか、JCLのDCBパラメータとどのように関連しているかを注意深く調べてみることから始めよう。そして、機会があれば、自分で簡単なファイル入出力プログラムを作成し、`ENVIRONMENT`属性の指定を変えて、その挙動を試してみることを強く推奨する。

現場での経験は、何よりも君たちを成長させる。この知識を武器に、これからも着実にスキルアップしていってほしい。健闘を祈る！

スポンサーリンク
タイトルとURLをコピーしました