Configuring COMS for Applications

The Configure Utility automatically loads the COMS Configuration file for your software into COMS. You might override this automatic load by supplying a user-coded library, as described later in this subsection.

This automatic load does not apply to the COMS Stations file for new or changed Networks. You must manually load the COMS Configuration for NOF if required.

Note: The COMS UTILITY window must be configured to support multiple active users, as the Auto-load process takes up one user slot. If the Maximum Users value is exceeded, the automatic load fails.

Inhibiting or Interrupting Automatic Loading

The Configure Utility calls an entry point in a user-supplied library, and passes the COMS Configuration file name as a parameter. The library can programmatically verify and/or modify the parameter to allow or disallow the automatic loading.

Library File

The library file must be accessible under the file search path for the usercode under which you configured Agile Business Suite. The file is titled:

 *NGEN28/USERLIB

If the library file is not found, or the library linkage fails, automatic loading proceeds.

Entry Point

The entry-point is COMSVERIFY, defined as:

 INTEGER PROCEDURE COMSVERIFY (COMS_LOAD_FILE_TITLE);
 EBCDIC ARRAY COMS_LOAD_FILE_TITLE [0];

The COMS_Load_FILE_TITLE parameter contains the title of the COMS Configuration file to be loaded. This file might be changed or replaced by a privileged process.

Return Values

The COMSVERIFY procedure should return one of the following values:

The value 1 if the file is to be loaded.
The value 0 if the file is not to be loaded.

Example

The following ALGOL procedure inhibits the automatic load for a usercoded application whose COMS Configuration file name begins with XX. Non-user-coded applications have COMS after the first slash (/) character.

 $SET LIST
 BEGIN
 INTEGER PROCEDURE COMSVERIFY (COMS_LOAD_FILE_TITLE);
 EBCDIC ARRAY COMS_LOAD_FILE_TITLE [0];
 BEGIN
 % % Find out the system name:
 % %
 % % Take characters after the first slash (/):
 % % - See if they start with "XX"
 % % - If not, proceed with automatic load
 % %
 POINTER PA;
 PA := COMS_LOAD_FILE_TITLE;
 SCAN PA:PA UNTIL EQL "/";
 % % Left pointing at the final "/"
 PA := PA+1;
 IF PA EQL "XX"
 THEN
 BEGIN
 DISPLAY ("** COMS Autoload suppressed **");
 COMSVERIFY := 0;
 END
 ELSE
 COMSVERIFY := 1;
 % %
 END; % % of COMSVERIFY
 % %
 EXPORT COMSVERIFY;
 FREEZE (TEMPORARY);
 END.

COMS Configuration for the SwitchTo Command

The SwitchTo command requires a COMS processing item such as TPTOMARC, to be installed for the MARCINPUT agenda in the COMS configuration data.

The TPTOMARC processing item is provided on your release media in the sample file:

 NGEN28/SAMPLE/TPTOMARC/PROCITEM

Refer to the example of the TPTOMARC processing item in your COMS documentation for more information.