$FUNCNAME$
  DBSELECTAREA()
$CATEGORY$
  DATABASE
$SUMMARY$
   Change the current work area
$LANG_RU$
      .
$SYNTAX$
     DBSELECTAREA(<nArea> | <cAlias>) --> NIL
$LANG_RU$
     DBSELECTAREA(<  > | <>)  --> NIL
$ARGUMENTS$
     <nArea> is a numeric value between zero and 250, inclusive, that
     specifies the work area being selected.

     <cAlias> is a character value that specifies the alias of a
     currently occupied work area being selected.
$LANG_RU$
     <  > -      250
     ,     .

     <> -  ,    
      .
$RETURNS$
     DBSELECTAREA() always returns NIL.
$LANG_RU$
     DBSELECTAREA()   NIL.
$DESCRIPTION$
     DBSELECTAREA() causes the specified work area to become the current work
     area.  All subsequent database operations will apply to this work area
     unless another work area is explicitly specified for an operation.
     DBSELECTAREA() performs the same function as the standard SELECT
     command.  For more information, refer to the SELECT command.
$LANG_RU$
       DBSELECTAREA()    
       .       
             ,  
          . DBSELECTAREA()   
     ,     SELECT.   
        SELECT.
$EXAMPLES$
       The following example selects a work area via the alias name:

	cLast := "Winston"
	DBUSEAREA( .T., "DBFNTX", "Sales", "Sales", .T. )
	DBSETINDEX( "SALEFNAM" )
	DBSETINDEX( "SALELNAM" )
	//
	DBUSEAREA( .T., "DBFNTX", "Colls", "Colls", .T. )
	DBSETINDEX( "COLLFNAM" )
	DBSETINDEX( "COLLLNAM" )
	//
	DBSELECTAREA( "Sales" )      // select "Sales" work area
	//
	IF ( Sales->(DBSEEK(cLast)) )
	   IF Sales->( DELETED() ) .AND. Sales->( RLOCK() )
	      Sales->( DBRECALL() )
	      ? "Deleted record has been recalled."
	   ENDIF
	ELSE
	   ? "Not found"
	ENDIF
$LANG_RU$
	  DBSELECTAREA("Table1")
$SEEALSO$
  DBUSEAREA(),RLOCK(),SELECT()
$END$
