Re: Fastest way to delete records.

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

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
+---