cFile = 'custodian0207.txt'
use custodian
append from &cFile sdf
go top
scan
   cDate = ltrim(rtrim(field10))
   replace ddate with new date(val(substr(ltrim(field10),1,4)),val(substr(ltrim(field10),5,2))-1,val(substr(ltrim(field10),7,2)))
   replace cdate with dtoc(ddate)
endscan
use