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

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

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

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

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

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

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

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