$FUNCNAME$
  DBCLOSEALL()
$CATEGORY$
  DATABASE
$SUMMARY$
   Close all occupied work areas
$LANG_RU$
       .
$SYNTAX$
     DBCLOSEALL() --> NIL
$LANG_RU$
     DBCLOSEALL() --> NIL
$RETURNS$
     DBCLOSEALL() always returns NIL.
$LANG_RU$
     DBCLOSEALL()   NIL.
$DESCRIPTION$
     DBCLOSEALL() releases all occupied work areas from use.  It is
     equivalent to calling DBCLOSEAREA() on every occupied work area.
     DBCLOSEALL() has the same effect as the standard CLOSE DATABASES
     command.  For more information, refer to the USE and CLOSE commands.


$LANG_RU$
     DBCLOSEALL()     ,  
      .    
     DBCLOSEAREA()      .

     DBCLOSEALL()    ,     CLOSE
     DATABASES.        USE
      CLOSE.
$EXAMPLES$
       The following example closes all work areas:

	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() )
	      IF RLOCK()
		 Sales->( DBRECALL() )
		 ? "Record deleted: ", Sales( DELETED() )
	      ENDIF
	   ENDIF
	ELSE
	   ? "Not found"
	ENDIF
	DBCLOSEALL()                  // close all work areas
$SEEALSO$
  DBCLOSEAREA(),DBUSEAREA()
$END$
