FT_DBFHAND()
 Obtain the handle associated with an open .DBF file.

 Syntax

     FT_DBFHand() -> nHandle

 Arguments

    None

 Returns

   The file handle, or zero if no .DBF is open in the specified
   work area.

 Description

   For your own twisted reasons you may need make direct use of the
   file handle associated with a database.  This function gives you
   that capability, but use it with care and don't blame me if you
   botch something up.

   By default this function works on the current work area, but can be
   made to work on any work area through the use of the standard Clipper
   alias operator.

   Be aware that this function makes use of Clipper's internal work
   area information which is subject to change in future versions of
   Clipper.  If this makes you uncomfortable then don't use this function,
   you cowardly slug.

   This function is written to adhere to Turbo Assembler's IDEAL mode.
   To use another assembler, rearrange the SEGMENT and PROC directives
   and make any other necessary changes to the source code.

 Examples

     QOut( FT_DBFHand() )

     // Try a non-current work area

     nHandle := THISFILE->( FT_DBFHand() )

     // This will return zero if no database is open in work area 133

     select 133
     QOut( FT_DBFHand() )

 Source: DBFHANDL.ASM

 Author: Ted Means