Foxpro table delete and pack using sql

Using SQL within foxpro program (not ODBC from a PHP program)

 

set exclusive on
cd to where things are
delete from edi810mast where ctod(ltrim(invdte)) between ctod('09/10/07') and ctod('12/31/13')
delete from edi810detl where val(ltrim(invno)) < 40931
set delete on (this will not show deleted records)
close all
pack edi810mast