Click above to get retro games delivered to your door ever month!

 zap                 Remove all records and associated memo fields
------------------------------------------------------------------------------
 Syntax
   [!sAlias] zap

 Arguments
   sAlias is the database to operate on.

 Description
   The zap command removes all records and their associated memo fields from
   the current or selected alias, then reindexes if necessary. zap closes and
   recreates any index or memo files associated with the alias.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_zap
   vardef
      char cAnswer
   enddef
   open "stest.dbf" alias sTest index sIdxLN, sIdxB
   ? "Number of records", istr( reccount() )
   wait "Do a delete all / pack instead of zap? (Y/N) " to cAnswer
   if cAnswer $ "Yy"
      !sTest delete all // delete all, pack is the same as zap
      !sTest pack
   else
      !sTest zap // zap deletes all records, regardless of the deleted flag
   endif
   ? "Number of records", istr( reccount() )
   endproc

   proc main
   Test_zap()
   endproc