$FUNCNAME$
  DBUNLOCK()
$CATEGORY$
  DATABASE
$SUMMARY$
   Release all locks for the current work area
$LANG_RU$
         .
$SYNTAX$
     DBUNLOCK() --> NIL
$LANG_RU$
     DBUNLOCK() --> NIL
$RETURNS$
     DBUNLOCK() always returns NIL.
$LANG_RU$
     DBUNLOCK()   NIL.
$DESCRIPTION$
     DBUNLOCK() releases any record or file locks obtained by the current
     process for the current work area.  DBUNLOCK() is only meaningful on a
     shared database in a network environment.

     DBUNLOCK() performs the same function as the standard UNLOCK command.
     For more information, refer to the UNLOCK command.
$LANG_RU$
     DBUNLOCK()       ,
           .
     DBUNLOCK()     ,  
         .

     DBUNLOCK()    ,     UNLOCK.
           UNLOCK.
$EXAMPLES$
       The following example illustrates a basic use of the
	DBUNLOCK() function:

	cLast := "Winston"
	USE Sales SHARED NEW VIA "DBFNTX"
	DBSETINDEX( "LASTNAME" )
	//
	IF ( Sales->(DBSEEK(cLast)) )
	   IF Sales->( RLOCK() )
	      Sales->( DBDELETE() )

	      ? "Record deleted: ", Sales( DELETED() )
	      Sales->( DBUNLOCK() )
	   ELSE
	      ? "Unable to lock record..."
	   ENDIF
	ELSE
	   ? "Not found"
	ENDIF
$SEEALSO$
  DBUNLOCKALL(),FLOCK(),RLOCK()
$END$
