Adabas System Coordinator allows storing of site-specific data in runtime controls. The contents and format of the data are entirely under your control. A typical use for it might be to define your own runtime controls (for example dynamic Natural parameters). The data can be retrieved using the supplied APIs. Two APIs are provided; one for 3GL and Assembler programs and one for Natural programs.
The 3GL API is contained in the supplied COR3GLI load module. There are also some supplied source members showing how to use the API:
APIINF01: example of using the API in environments other than CICS
APIINF02: example of using the API in CICS
COR3GLIA: a parameter data area for calling COR3GLI
To use the 3GL API:
Allocate storage for the parameter data area (1024 bytes).
Initialize the storage to binary zeroes.
Set the interface version (field name INFVRS in COR3GLIA) and function (INFFNC).
Under CICS, set the name of the Adabas link module to be used (INFCICN). The link module must be capable of accepting parameter lists via the COMMAREA. If not under CICS, INFCICN must contain binary zeroes or spaces.
If using the reentrant ADALNKR, allocate a modified area and set its address (INFAMOD).
Link this program together with COR3GLI and, if not under CICS, your Adabas interface module, for example ADAUSER.
After calling COR3GLI, INFRC will contain 0000 and INFDATA will contain the site information for this session; or, INFRC will contain a non-zero return code and INFRT will contain an explanatory message.
The Natural API is contained in library SYSCOR, subprogram CORNATI. There are also some supplied source members in SYSCOR, showing how to use the API:
APIINF-P: example of calling CORNATI
CORNATIA: parameter data area for calling CORNATI
To use the Natural API:
Ensure that subprogram CORNATI is available, by copying it to your Natural library or adding SYSCOR to your library’s steplibs in Natural Security.
Set CORNATI-VERSION and CORNATI-FUNCTION.
Call CORNATI.
After calling CORNATI, CORNATI-RC will contain 0000 and CORNATI-SITEINFO will contain the site information for this session; or, CORNATI-RC will contain a non-zero return code and CORNATI-RT will contain an explanatory message.
These are the non-zero return codes which may be set:
| Return Code | Description |
|---|---|
| 0001 | Invalid interface version (must be 01) |
| 0002 | Invalid function (must be GETINFO) |
| 0003 | System Coordinator not available |
| 0004 | System Coordinator internal error |
| 0005 | System Coordinator internal error |
| 0006 | Adabas interface not linked (3GL API only) |
| 0008 | No site information for this session |
