From: Stephen Quinn on
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
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
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
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
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
>
>
>