Customizing for DEDB randomizing modules

If your installation uses DEDB randomizing modules that abend or cause an IMS abend, you can create your own FMN1RNDM load module.

In the FMN1RNDM load module, you provide the names, or name patterns, of the DEDB randomizing modules at your installation that abend, or cause an IMS abend, when they receive key field values that are not valid packed decimal numbers.

If the key field of the root segment of a DEDB database is defined as TYPE=P in the DBD, and the name of the randomizing module that the DEDB database uses is included in the FMN1RNDM load module, then FM/IMS checks that the root key values specified in DL/I calls are valid packed decimal numbers before issuing the calls.

Providing your own FMN1RNDM module

FM/IMS does not provide a default FMN1RNDM module. You can create your own using the sample FMN1RNDM and usermod FMN1UMD1.

To create your own FMN1RNDM module:

  1. Copy the member FMN1RNDM from FMN.SFMNSAM1 to your own source library.
  2. Code the names of the DEDB randomizing routines that you want to include, on the FMN1RAND RANDNAME statements, in your copy of FMN1RNDM. You can provide as many statements as you need. You can specify wildcards, using * (multiple characters) and % (single character).
  3. Modify the FMN1UMD1 member in FMN.SFMNSAM1 to meet your site's requirements. Refer to the usermod for information about the changes you need to make.
  4. Install SMP/E usermod FMN1UMD1.