ADABAS Dynamic Database Number

Previous versions of the ADABAS Interface required specification of the ADABAS database number in the Access File using the DBNO attribute. This feature required a duplicate copy of the Access File for each database accessed.

ADABAS database numbers can now be set from the command level in FOCUS. A new SET command allows users to override the DBNO in the Access File. Note that specifying database numbers in the Access File is still supported. Use of the dynamic database number makes Master and Access Files shareable among databases.

The SET command remains valid throughout the user's session.

The syntax is

{CMS|MVS} ADBSINX SET DBNO dbno
{CMS|MVS} ADBSINX SET DBNO dbno AFD afd
{CMS|MVS} ADBSINX SET DBNO dbno AFD afd SEG[NAM] segname
{CMS|MVS} ADBSINX SET ? 
{CMS|MVS} ADBSINX SET DBNO DEFAULT

where:

CMS

Indicates the CMS operating system.

MVS

Indicates the MVS operating system.

dbno

Is any valid numeric database value between 0 and 255.

afd

Is any valid Access filename.

segname

Is any valid ADBS segname in the Access File.

?

Queries the current settings.

DEFAULT

Returns to the default settings for all previous settings. The DBNO is read from the Access File. If the attributes are not specified in the Access File, the Interface will determine the DBNO from the DDCARD.

Examples for MVS are shown below:

MVS ADBSINX SET DBNO 5

Retrieves all data from database number 5.

MVS ADBSINX SET DBNO 2 AFD EMPFILE

Retrieves data for the EMPFILE from database number 2.

Note: Several commands can be issued for different files. Each command must be issued separately. Changes are cumulative. For example:

MVS ADBSINX SET DBNO 1 AFD EMPFILE
MVS ADBSINX SET DBNO 2 AFD EMP2
MVS ADBSINX SET DBNO 3 AFD VEHICLES

MVS ADBSINX SET DBNO 2 AFD EMPFILE SEG S02

Retrieves data for the EMPFILE in database number 2 for a particular ADBS segment (segment S02).

MVS ADBSINX SET ?

Displays your settings.

MVS ADBSINX SET DBNO DEFAULT

Returns to the default settings. This resets all SET DBNO commands for all Access Files.