#include "FiveSqlDef.ch"
#include "hbclass.ch"

FUNCTION Main()
   LOCAL nWA, cFileLow, aFiles, cRDD

   dbCreate("dbg_test", { {"ID","N",4,0}, {"NAME","C",20,0} })
   USE "dbg_test" NEW EXCLUSIVE
   APPEND BLANK
   REPLACE ID WITH 1, NAME WITH "Alice"
   CLOSE ALL

   ? "=== Trace OpenTable steps ==="
   cFileLow := "dbg_test"

   ? "Step 1: hb_FileExists"
   ? "  .fsv:", hb_FileExists(cFileLow + ".fsv")

   ? "Step 2: Directory"
   BEGIN SEQUENCE
      aFiles := Directory(cFileLow + "*.cdx")
      ? "  CDX files:", Len(aFiles)
   RECOVER
      ? "  Directory() FAILED — using empty"
      aFiles := {}
   END SEQUENCE

   IF Len(aFiles) > 0
      cRDD := "DBFCDX"
   ELSE
      cRDD := "DBFNTX"
   ENDIF
   ? "  RDD:", cRDD

   ? "Step 3: dbUseArea"
   BEGIN SEQUENCE
      dbUseArea(.T., cRDD, cFileLow + ".dbf", "TEST01", .T., .T.)
      ? "  Opened OK"
      nWA := Select("TEST01")
      ? "  nWA:", nWA
      IF nWA > 0
         dbSelectArea(nWA)
         ? "  FCount:", FCount(), "RecCount:", RecCount()
      ENDIF
      dbCloseArea()
   RECOVER
      ? "  dbUseArea FAILED"
   END SEQUENCE

   FErase("dbg_test.dbf")
   ? "=== DONE ==="
RETURN NIL