The @ADACALL statement changes the Adabas call.

The syntax of the statement is as follows:

Instead of:

Adabas Pre-Compiler will generate:

The specified module name will replace "ADABAS" in each execution command generated by Adabas Pre-Compiler.

The @ADACALL statement can be coded in the source program (in that case it should be positioned at the beginning of the program), or can be provided to Adabas Pre-Compiler in the parameters file. This is preferable when several programs utilize the same module. The usage of this default statement is mainly for teleprocessing applications, as in CICS, where the user must call the ADASTWA module, the first parameter being the TWA followed by the Adabas buffers.

A CICS program issues the following statement:

The above statement causes Adabas Pre-Compiler to generate the following instead of CALL "ADABAS":

CICS requires an additional CICS command after the call and Adabas Pre-Compiler generates this command. For mofe information about this command, see the @TELE statement.

The @ADACALL statement can be useful in installations that maintain an I/O interface between the application and Adabas. Thus, when using this statement, the call is to the I/O interface instead of Adabas.

The LAST clause is used to specify a seventh parameter generated for the Adabas call. The id3 parameter is a name of a structure that Adabas Pre-Compiler generates as follows:

This use can move the value of the library name into the L-variable field. Adabas Pre-Compiler passes this structure as additional parameters after the ISN buffer in the Adabas call.