$FUNCNAME$
  DBSETDRIVER()
$CATEGORY$
  DATABASE
$SUMMARY$
   Return the default database driver and optionally set a new driver
$LANG_RU$
           
$SYNTAX$
     DBSETDRIVER([<cDriver>]) --> cCurrentDriver
$LANG_RU$
     DBSETDRIVER([<>]) -->  
$ARGUMENTS$
     <cDriver> is an optional character value that specifies the name of
     the database driver that should be used to activate and manage new work
     areas when no driver is explicitly specified.
$LANG_RU$
     <> -   ,  
       ,     
       ,    USE   
      .
$RETURNS$
     DBSETDRIVER() returns the name of the current default driver.
$LANG_RU$
     DBSETDRIVER()      .
$DESCRIPTION$
     DBSETDRIVER() sets the database driver to be used when activating new
     work areas without specifying a driver.  If the specified driver is not
     available to the application, the call has no effect.  DBSETDRIVER()
     returns the name of the current default driver, if any.
$LANG_RU$
     DBSETDRIVER()    ,  
            . 
       ,     .
     DBSETDRIVER() -      ,
            .
$EXAMPLES$
       This example makes the "DBFNDX" driver the default driver.  If
	the driver is unavailable, a message is issued:

	DBSETDRIVER("DBFNDX")
	IF ( DBSETDRIVER() <> "DBFNDX" )
	   ? "DBFNDX driver not available"
	ENDIF
$LANG_RU$
           "DBFNTX".  
          .

       DBSETDRIVER("DBFNTX")

       IF ( DBSETDRIVER() <> "DBFNTX" )
	  ? "DBFNTX   "
       ENDIF
$SEEALSO$
  DBUSEAREA(),RLOCK()
$END$
