RE: Fastest way to delete records.

["Nick Runnalls" <nick_runnalls@xxxxxxxxxxxxxx>]

Unless the employee file is for the Chinese Army the majority are to be
deleted, could use CPYF or SQL to copy out good records then remove all
logical file members from original, copy data back re-add all logical file
members. This may be faster, will also reorganize the file. Depends on
number and complexity of logical Files


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

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