Previous Topic Next topic Print topic


IMSDBU Exits

The IMS Database Utility (IMSDBU) exits are available only in Micro Focus COBOL development systems. They enable you to perform database functions, and consist of the following:

Database Segment Exit
The segment exit enables a user-written program to control segment selection and modify segment data during load and unload processing. The exit program is called for each database segment. It can delete the segment, modify the segment data, or pass it through unchanged. If a segment is deleted, all of its children segments are automatically deleted.
Database Compression Exit
The compression exit is used for the input file to the Load and the output file for Unload. It allows for segment compression and/or encryption of the input or output files. It is not used for the data stored in the MFIMS database. A standard routine named CBLDCIMS is provided to decompress input and compress output files. A user-written program can perform different segment encoding.
Database Progress Exit
Controls the frequency of progress reporting during the execution of database functions.
Invocation
IMSDBU exits are invoked upon the execution of the IMSDBU Load and Unload functions by specifying the following directives:
  • SEGEXIT - to execute the Database Segment exit
  • COMPRESS - to execute the Database Compression exit
    Note: If no exit name is specified, Enterprise Server executes the default compression routine, CBLDCIMS.
  • PROGRESS - to execute the Database Processing exit
Example
Enterprise Developer provides a sample file, DBUPARMS.cpy that documents all three IMSDBU exits. DBUPARMS.cpy is located by default in your %PUBLIC%\Documents\Micro Focus\Enterprise Developer\Samples\Mainframe\IMS\Classic\Examples (Windows) or $COBDIR/demo/ims/examples (UNIX) directory.
Previous Topic Next topic Print topic