$FUNCNAME$
  DBCLOSEAREA()
$CATEGORY$
  DATABASE
$SUMMARY$
   Close a work area
$LANG_RU$
      
$SYNTAX$
     DBCLOSEAREA() --> NIL
$LANG_RU$
     DBCLOSEAREA() --> NIL
$RETURNS$
     DBCLOSEAREA() always returns NIL.
$LANG_RU$
     DBCLOSEAREA()   NIL.
$DESCRIPTION$
     DBCLOSEAREA() releases the current work area from use.  Pending updates
     are written, pending locks are released, and any resources associated
     with the work area are closed or released.  DBCLOSEAREA() is equivalent
     to the standard CLOSE command or the USE command with no clauses.  For
     more information, refer to the USE and CLOSE commands.
$LANG_RU$
     DBCLOSEAREA()    ,  
       .    
       ,  ,  , 
        ,   .

     DBCLOSEAREA()    CLOSE   USE
      .       USE 
     CLOSE.
$EXAMPLES$
       The following example closes a work area via an alias
	reference:

	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() )
	      ? "Record deleted: ", Sales( DELETED() )
	   ENDIF
	ELSE
	   ? "Not found"
	   Colls->( DBCLOSEAREA() )
	ENDIF
$SEEALSO$
  DBCLOSEALL(),DBCOMMIT(),DBUSEAREA()
$END$
