DEDB ランダム化モジュールのためのカスタマイズ

ご使用のシステムで使用している DEDB ランダム化モジュールが、異常終了するか IMS™ 異常終了を引き起こす場合、独自の HFM1RNDM ロード・モジュールを作成できます。

HFM1RNDM ロード・モジュールで、有効なパック 10 進数でないキー・フィールド値を受け取ると異常終了するか IMS™ 異常終了を引き起こす DEDB ランダム化モジュールの名前または名前パターンを指定します。

DEDB データベースのルート・セグメントのキー・フィールドが DBD で TYPE=P として定義されていて、DEDB データベースが使用するランダム化モジュールの名前が HFM1RNDM ロード・モジュールに含まれている場合、ZDT/IMS は、DL/I 呼び出しで指定されているルート・キー値が有効なパック 10 進数であることを検査してから呼び出しを発行します。

独自の HFM1RNDMM モジュールの準備

ZDT/IMS は、デフォルトの HFM1RNDM モジュールを提供していません。サンプルの HFM1RNDM および usermod HFM1UMD1 を使用して、独自のモジュールを作成できます。

独自の HFM1RNDM モジュールを作成するには、次のようにします。

  1. メンバー HFM1RNDM を HFM.SHFMSAM1 からユーザー所有のソース・ライブラリーにコピーします。
  2. HFM のコピー内の HFM1RNDM1RAND RANDNAME ステートメントで、組み込む DEDB ランダム化ルーチン名前をコーディングします。ステートメントは必要な数だけ指定できます。* (複数文字) および % (単一文字) を使用してワイルドカードを指定できます。
  3. HFM にある HFM.SHFMSAM11UMD1 メンバーを、サイトの要件に応じて変更します。行う必要のある変更については、usermod を参照してください。
  4. SMP/E usermod HFM1UMD1 をインストールします。