Click above to get retro games delivered to your door ever month!

 AX_RDDInfo()
 Return information about the current or specified RDD
------------------------------------------------------------------------------

 Syntax

     AX_RDDInfo( [<nArea> | <cRDDName>] ) -> array

     <nArea> The work area number. For the current work area, use zero (0).

     <cRDDName> A character string indicating the name of the
     replaceable database driver.

     If no parameter is specified, the current work area is assumed.

 Returns

     Returns a six element array containing the following data:

     [1] = Driver name
     [2] = Logical flag indicates whether driver is loaded.
     [3] = Database file extension
     [4] = Primary index extension
     [5] = Secondary index extension (or "")
     [6] = Memo file extension (or "")

     - or -

     Returns an empty array if the work area is not in use.

 Description

     This function returns an array containing information about a database
     driver.  The replaceable database driver (RDD) may be in one of three
     states:

     1.   The RDD is linked and loaded.  If linked and loaded, all array
          elements are filled with the RDD information.

     2.   The RDD is linked but not loaded.  If linked but not loaded, only
          the first two elements in the array are defined.  The remaining
          elements are NIL or empty strings ("").

     3.   The RDD in not linked or invalid RDD name.  If the RDD name
          is not valid or the work area number is not in use, the resulting
          array will be empty.

 Example

     LOCAL aRDDCnt   // Number of RDDs
     LOCAL aInfo     // Array to hold RDD info
     LOCAL nCnt      // Counter variable

     // Force Advantage NTX RDD to load
     USE test1 VIA "DBFNTXAX"

     // Force DBFNTX driver to load
     USE test2 VIA "DBFNTX" NEW

     // Get number of RDDs available
     nRDDCnt := AX_RDDCount()

     // Loop through RDDs and display info for each one
     FOR nCnt := 1 TO nRDDCnt

        aInfo[nCnt] := AX_RDDInfo( AX_RDDName( nCnt ) )

        ?,? "Driver name: ",             aInfo[1]
        ? "Driver loaded: ",             aInfo[2]
        ? "Database file extension: ",   aInfo[3]
        ? "Primary index extension: ",   aInfo[4]
        ? "Secondary index extension: ", aInfo[5]
        ? "Memo file extension: ",       aInfo[6]

     NEXT