From: Stephen Quinn on 3 Feb 2010 17:27 Martin Try this 3 liner (assuming I have the right syntax<bg>) SELF:dbBarList:SetOrder(3) SELF:dbBarList:Eval( {|| Delete() }, _FIELD->PL_PDate <= dClear ) SELF:dbBarList:Pack() CYA Steve
From: Martin on 4 Feb 2010 06:56 I'll see what ADS support suggest on this "Geoff Schaller" <geoffx(a)softxwareobjectives.com.au> wrote in message news:UB0an.5250$pv.907(a)news-server.bigpond.net.au... > Move to SQL <g>. > > > "Martin" <spam(a)spam.spam> wrote in message > news:1zX9n.262479$FH.149151(a)newsfe03.ams2: > >> I need to trim a file a lot as quickly as possible of certain records. >> >> File is roughly 6GB >> >> Production build is 2.7, Server is ADS 7.1, going to 9 next week. >> >> Testing with 2.8 and ADS 8.1, 4% on my PC and 15% on the "server". >> >> This is the current code and does about 750 records a second for delete. >> >> SELF:dbBarList:SetOrder(3) >> SELF:dbBarList:Seek('19900101',TRUE) >> SELF:dbBarList:Delete(,{||_FIELD->PL_PDate <= dClear}) >> SELF:dbBarList:Pack() >> >> Can anyone think of a way of speeding this up? (Not including my >> favourite >> of using a different NOS) >> >> What is the RDD doing via ADS? >> >> Thanks >> >> Martin >
From: Martin on 4 Feb 2010 06:56 That is a future answer, still currently a couple of CLipper apps and a Xbase++ app to look at "oscar hernandez" <ohernandez(a)liasa.com> wrote in message news:65c45340-a350-4e87-91d0-05c1dd98d225(a)v25g2000yqk.googlegroups.com... use ADT instead of DBF, it will reuse the deleted record automatically, You do not need to pack. On Feb 2, 3:15 pm, "Geoff Schaller" <geo...(a)softxwareobjectives.com.au> wrote: > Move to SQL <g>. > > "Martin" <s...(a)spam.spam> wrote in message > > news:1zX9n.262479$FH.149151(a)newsfe03.ams2: > > > > > I need to trim a file a lot as quickly as possible of certain records. > > > File is roughly 6GB > > > Production build is 2.7, Server is ADS 7.1, going to 9 next week. > > > Testing with 2.8 and ADS 8.1, 4% on my PC and 15% on the "server". > > > This is the current code and does about 750 records a second for delete. > > > SELF:dbBarList:SetOrder(3) > > SELF:dbBarList:Seek('19900101',TRUE) > > SELF:dbBarList:Delete(,{||_FIELD->PL_PDate <= dClear}) > > SELF:dbBarList:Pack() > > > Can anyone think of a way of speeding this up? (Not including my > > favourite > > of using a different NOS) > > > What is the RDD doing via ADS? > > > Thanks > > > Martin- Hide quoted text - > > - Show quoted text -
From: Martin on 4 Feb 2010 06:57 I am in while sequence Is there a direct ask server to do the delete rather than client option? "Joachim Duerr (ADS)" <jojo.duerr(a)gmx.de> wrote in message news:7sr24rF66jU1(a)mid.individual.net... > John Martens wrote: > >>Why reindex ? >>I assume that ADS updates the index when a record is deleted ? > > depends on the index expression/condition: if there's no DELETED() in > any of those, there's no reason to create a new index kex. > > -- > Joachim Duerr > Advantage Presales > check out my new ADS book on http://www.jd-engineering.de/adsbuch
From: Martin on 4 Feb 2010 06:58
Better than :Delete()? I will have to manufacture some usable data "Stephen Quinn" <stevejqNO(a)bigpondSPAM.net.au> wrote in message news:cLman.5462$pv.679(a)news-server.bigpond.net.au... > Martin > > Try this 3 liner (assuming I have the right syntax<bg>) > > SELF:dbBarList:SetOrder(3) > SELF:dbBarList:Eval( {|| Delete() }, _FIELD->PL_PDate <= dClear ) > SELF:dbBarList:Pack() > > CYA > Steve > > > |