The purpose of this module is to handle language specific
descriptions to a field. The description are automatically loaded in all
defined UIL-Languages.
The Module supplies:
1. a panel to display and enter the descriptions
2. logic to load the descriptions on changes of the field
3. logic to store the descriptions in the CodeTable system
The module is supported by the moduleset MDxBUT.
Usually the module is used in the xxxP-module. The panel is placed
on the editing panel.
The INR argument is directly linked to the INR of the record holding
the dataset of the field.
The COD argument holds the fieldname as a literal string where the
descriptions are linked to.

The purpose of this module is to enable the easy and error-free handling of the descriptions of codes used in database entries.

The module supplies the following functionality:

• Panel with longtext in all system languages
• INR argument to logically link the entry into the module
• Fieldname argument to identify the field to be decoded
• By default, the codetable of the field is used
• Optional specification of a separate codetable
• PANSTA fieldname argument for logic linking to the local panel
• Integrated support to automatically load values
• Support to update the codetable

The MDxBUT set of modules fully supports CODMOD.

In order to maintain the description in the masterfile maintenance, the following steps are to be taken:

• Integrating CODMOD into the panel module to display the entry
• Linking the INR of the entry into the CODMOD instance (e.g. RECGRP\REC\INR)
• Entering the fieldname or absolute field path of the field to be decoded (e.g. “COD”)
• Linking the PANSTA of the owner panel into the CODMOD instance (e.g. PANSTA)
• Placing the subpanel on the panel

The field reference might either be absolute or relative. Any relative reference is located relative to the module holding the specified INR field. The normal usage is to use the fieldname in the record as fieldname, as the fields to be decoded are usually located in the same record as the INR.

When using an absolute reference it should be checked, that every usage of this CODMOD instance will be able to access the requested field via this reference.

In case additional codetables of a field are handled via module CODMOD, CODMOD will write these data in a specific section of file SYSDBA.INI. Thus, these tables are available for maintenance and check functions.

The fieldname of the codefield has to be passed as a string constant. The passed name should be the absolute or relative fieldname of the Codefield the descriptions are associated to. Any relative reference is located relative to the module holding the INR-field specified.

INR-field of the record holding the codefield the descriptions are associated to. The argument logically links the descriptions to the record.

Unique internal ID of a record within the table. The INR is a text field, which is created by retrieving the next valid entry from the counter of this table. The field INR is used to enable links from other tables to this table.

For contractdata the INR also links the two tables xxD and xxT as associated entries hold the same INR.

The PANSTA of the owning panel has to be linked into CODMOD to handle the local panel correct.

This field may optionally hold the name of the codetable to be used. If this field is empty, the codetable associate to the field named in COD is used. This field is usually empty. Otherwise it has to be set via a constant argument.

During init the codetable used is evaluated and stored for further reference.

During init the field holding the code to be used is evaluated and stored for further reference. This field holds an absolute reference.

This field holds the codevalue the currently loaded longtexts are associated to.

This field holds the longtext of the currently loaded codevalue in user interface language. Intended usage is to build the OBJNAM of the current entry.

Any non blank contents suppresses the automatic check for unique long texts, which is otherwise automatically executed. This field is usually set in the init of the module which uses codmod.

Checks if length of text is lesser then specified length
Check if text is already defined for an other code

Defaultrule to load the decoded longtext of the currently loaded codevalue

Default to load the Grid holding the longtexts and the local copy of the Codevalue.

Rule to trigger any redefaulting when changing the longtext in CODMOD

Returns the longtext of the passed code in the passed UIL.
This routine uses the associated code table if the code is the
currently loaded code or the current content of CODMOD.