RE: Fastest way to delete records.

Unfortunately the original post doesn't state WHY the records are to be deleted,
or WHEN.  These (to me ) are the critical questions.  The HOW then comes about
as a result.

The WHY & WHEN that need to be considered include
-  Is this a 'once off', or something to be done on a regular basis (e.g.
monthly)?
-  Do the deletions need to be audited in any way?
-  Does a history have to be kept?
-  Is this going to be run by the users or IT?

If it is a once off, run by IT, with no auditing or History, SQL would be fine.
It would be quickest and easiest.  While CPYF would be an alternative, I
wouldn't recommend it, as it would have more activities than the SQL, leading to
more possible points to make a mistake in the operation.

If, on the other hand, this is a regular job, or run by users, or auditing is
required, or the records need to go to some form of History, then the LF
suggested would probably be more appropriate.




"Nick Runnalls" <nick_runnalls@hawkbridge.com> on 08/02/2001 08:36:14

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: STEVEN J RYAN/DIAU)

Subject:  RE: Fastest way to delete records.




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






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