public cTitle

cd [V:\Vision\home\sample]
set alternate to GS_sample_maint.log additive
=LogMsg("==start scan for blank lines (job)======")
use job.dbf in 0
select job
* where title is blank, delete the record.
scan for empty(title) 
	if not deleted() 
		logmsg(uniqueid) 
		delete
	endif
endscan
=LogMsg("==start scan for blank lines (customer)======")
use customer.dbf in 0
select customer
* where title is blank, delete the record.
scan for empty(title) 
	if not deleted() 
		logmsg(uniqueid) 
		delete
	endif
endscan
=LogMsg("==start scan for blank lines (supplier)======")
use supplier.dbf in 0
select supplier
* where title is blank, delete the record.
scan for empty(title) 
	if not deleted() 
		logmsg(uniqueid) 
		delete
	endif
endscan
=LogMsg("==start scan for blank lines (inventry)======")
use inventry.dbf in 0
select inventry
* where title is blank, delete the record.
scan for empty(title) 
	if not deleted() 
		logmsg(uniqueid) 
		delete
	endif
endscan
=LogMsg("==start scan for blank lines (account)======")
use account.dbf in 0
select account
* where title is blank, delete the record.
scan for empty(title) 
	if not deleted() 
		logmsg(uniqueid) 
		delete
	endif
endscan
=LogMsg("====EndScan======")
* Close the log file
set alternate to
*************
* fuctions   && will ignore from here down because functions are listed last
*************
function LogMsg
parameters tnMsg
	set alternate on
	cMsg = dtoc(date())+ " " + time() + " " + tnMsg
	? cMsg
	set alternate off
return