Customizing for DEDB randomizing modules

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

In the HFM1RNDM 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 HFM1RNDM load module, then ZDT/IMS checks that the root key values specified in DL/I calls are valid packed decimal numbers before issuing the calls.

Providing your own HFM1RNDM module

ZDT/IMS does not provide a default HFM1RNDM module. You can create your own using the sample HFM1RNDM and usermod HFM1UMD1.

To create your own HFM1RNDM module:

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