Version 4.2.6 for Mainframes
 —  Utilities  —

ADACALL Utility - Issuing Adabas Direct Calls

The utility ADACALL can be used to issue Adabas direct calls (native commands) to an Adabas database for learning and testing and for analyzing problems.

The utility ADACALL is contained in the library SYSADA.

The ADACALL Utility - Issuing Adabas Direct Calls documentation covers the following topics:


Invoking ADACALL

Start of instruction set To invoke ADACALL

On the ADACALL main screen, specify the necessary parameter values and execute the Adabas command by either choosing PF10 (Run) or entering the ADACALL command EXEC in the Command line.

In the example screen above, the Adabas command L3 was executed for a logical read of the employees file.

Except for the control block, which is shown in full, only a part of the buffer is displayed. You can view the buffers in their entirety by using any of the ADACALL direct commands or PF keys listed below.

Top of page

ADACALL Parameters

The parameters which can be specified on the ADACALL main screen are listed below. You can use the ADACALL online help function to obtain a summarized explanation of the parameters.

Start of instruction set To invoke the online help function

For detailed information, see the Adabas documentation Command Reference and Messages and Codes.

Parameter Explanation
Mode
Indicates the display mode of the buffer contents:
   
Char Character values.
   
Hex Hexadecimal values.
   
To change modes, see the ADACALL commands CHAR and HEX.
Call No. Number of commands executed since the start of the session.
First Byte The first byte of the Adabas control block.

Indicates whether 1-byte or 2-byte database IDs (DBID) and file numbers (FNR) are used:

H'00' = 1-byte DBID, FNR (file numbers 1 - 255)
H'30' = 2-byte DBID, FNR (file numbers greater than 255)

Cmd

Adabas command.

Enter and execute the Adabas OP command to specify the parameters described in the relevant section below.

Cmd ID Command ID.
File File number.

If First Byte is set to H'00':
3-digit file number, Database not equal to 0.

If First Byte is set to H'30':
5-digit file number.

Database Database ID (DBID). Defaults to the DBID of the FUSER file of the current Natural session (see File above).

If First Byte is set to H'30', then the database number will be moved to the response code field of the Adabas control block at execution time.

Resp Response code returned after the command is executed.
ISN Internal sequence number.
ISQ ISN quantity.
ISL Lowest ISN value for ISN lists.
FBL Format buffer length in bytes (maximum 210).
RBL Record buffer length in bytes (maximum 980).
SBL Search buffer length in bytes (maximum 140).
VBL Value buffer length in bytes (maximum 140).
IBL ISN buffer length in bytes (maximum 200).
COP1 Command option 1.
COP2 Command option 2.
User Area User area for the control block.
Cmd Time The time taken to execute the command, converted to 1/100th seconds for convenience.
Addition1 Additions 1.
Addition2 Additions 2. If the call was successful, it displays the compressed length of the record being read and the decompressed length of the data requested via the format buffer. If a non-zero response is returned and the error was a result of an invalid format buffer, the field in error and its offset into the format buffer are displayed.
Addition3 Additions 3.
Addition4 Additions 4. If a VSAM file is being read, this field is set to VSAM if initialized.
Addition5 Additions 5.
Format Format buffer. (The final period is necessary.)
Record Record buffer.
Search Search buffer. (The final period is necessary.)
Value Value buffer.
ISN ISN buffer.

Adabas OP Command

When you execute the Adabas command OP (Open), ADACALL provides a window where you can specify the following parameters:

In the window, enter the relevant information and choose ENTER.

For an explanation of the parameters and valid values, refer to the Adabas Command Reference documentation.

Top of page

ADACALL Commands and PF Keys

The ADACALL direct commands listed below are provided to change ADACALL parameter settings or to switch between screens by either entering a command in the Command line or choosing a corresponding PF key.

In addition to ADACALL commands, from the Command line, you can also issue Natural system commands.

In the following table, an underlined portion of a command represents an acceptable abbreviation.

Command PF Key Function
  PF1 Invoke the help function for ADACALL. If the cursor is positioned on one of the various ADACALL parameters and PF1 is pressed, help information on this parameter is displayed.
  PF2 Return to the ADACALL main screen. Mode is set to CHAR.
BACK PF5 Page backward to the previous buffer when viewing the buffers in their entirety.

Valid only after the VIEW command has been applied, which means that the command is not applicable from the ADACALL main screen.

CB   Display the control block buffer entirely; valid in hexadecimal mode only.
CHAR PF6 Change the current mode to character mode (EBCDIC).
D   Display extended error message text for response code received. When an Adabas response other than 0 (zero) is returned, the corresponding short error message text is displayed in the message line. The extended text can be viewed by issuing this command.
EXEC

or

RUN

PF10 Execute the direct command with the parameters specified.
EXIT

or

STOP

or

Q

or

.

PF3

or

PF12

Exit. If pressed while on the ADACALL main screen, ADACALL is terminated. If one of the buffer screens is being viewed, the ADACALL main screen is displayed with Mode unchanged.
FB   Display the format buffer in its entirety.
FWD PF4 Page forward to the next buffer when viewing the buffers in their entirety.

Valid only after the VIEW command has been applied, which means that the command is not applicable from the ADACALL main screen.

HEX PF7 Change the current mode to hexadecimal.
IB   Display the ISN buffer in its entirety.
INIT PF11
Initialize/reset buffer(s). A window is displayed and one of the following values can be entered for the buffers indicated:
   
H Initialize the corresponding buffer(s) with binary zeroes (H'00').
   
any character
except H or blank
Initialize the corresponding buffer(s) with blanks (H'40').
   
blank character Do not initialize the corresponding buffer(s).
   
If you enter INIT ALL, all buffers except the control block are initialized with blanks. Alternatively, the command INIT FB RB SB VB IB (not all buffers need be listed) can be specified and all buffers in the list are initialized with blanks.

Note:
The ISN buffer is always initialized with binary zeroes.

PRINT PF9 Generate and display a report on the status of all buffers.

The Natural terminal command %H can be used to obtain a hardcopy.

RB   Display the record buffer in its entirety.
RUN   Same as EXEC.
SB   Display the search buffer in its entirety.
VB   Display the value buffer in its entirety.
VIEW PF8
Display all buffers in their entirety. The first buffer to be displayed is the record buffer. The FWD command can be used to page through the other buffers.

If you VIEW the record buffer in hexadecimal mode, the data are displayed on four pages:

To page forwards, enter the command FWD or choose PF4.
To page backwards, enter the command BACK or choose PF5.
To display a specific page, enter a page number from 1 to 4 in the field Specify next page number.

 
To view buffers individually, enter any of the following commands:
 
FB Format buffer
   
RB Record buffer
   
SB Search buffer
   
VB Value buffer
   
IB ISN buffer
   
CB Control block (default). Valid in hexadecimal mode only: change to HEX before executing VIEW.
VSAM   If VSAM has been defined for the current Natural session, this direct command can be issued to access or update VSAM files. When you issue this command, you are prompted by a window for the VSAM file name. When the command is executed, it is directed to the appropriate VSAM file.

Top of page

User Exit ADAEXIT

ADACALL allows direct commands to be issued to any database. Therefore, as a means of security, a user exit is supplied. This user exit is called ADAEXIT and is contained in the library SYSADA. You can modify ADAEXIT as required. The Adabas control block is passed as a parameter to ADAEXIT. You can change the source code of the user exit so as to modify the contents of the control block. By simply changing the database ID or file number, or by setting the Command Code to XX, you can prevent database calls from being performed.

Top of page