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.
