RE: Fastest way to delete records.

That's exactly what I was going to write.


-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Jim Langston
Sent: Wednesday, February 07, 2001 1:50 PM
To: RPG400-L@midrange.com
Subject: Re: Fastest way to delete records.

Hmm...
create a logical on the time stamp.

Open Combined Full procedural this file
Do while not LR
  if  TimeStamp <= ToTimeStamp
  Delete  Record
  else
  SetOn LR
  EndIf
End Do

Can anyone think of a faster way?

Regards,

Jim Langston


Quazy wrote:
>
> I have a file with about 10 million records.  It is keyed on  Company #,
> Employee #, and Time stamp.
>
> I need to delete all records that have a time stamp before a certain time
> period.
>
> Any suggestions on the fastest approach?
> Speed is a very important factor.
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---