#include "FiveSqlDef.ch"

FUNCTION Main()
   LOCAL n
   ? "Test Used()"
   ? "Used:", Used()

   dbCreate("used_test", { {"ID","N",4,0} })
   USE "used_test" NEW
   ? "After USE - Used:", Used()
   ? "Alias:", Alias()
   n := Select()
   ? "Select():", n

   // Test (n)->(expr) syntax
   BEGIN SEQUENCE
      ? "(n)->(Used()):", (n)->(Used())
   RECOVER
      ? "Workarea expr FAILED"
   END SEQUENCE

   CLOSE ALL
   FErase("used_test.dbf")
   ? "DONE"
RETURN NIL