RE: Fastest way to delete record

[Mark Walter <mwalter@xxxxxxxxxx>]

No external procedures, no embedded SQL, Just the plain old RPG Cycle. 
Beautifully stated Dan.

-----Original Message-----
From:   D.BALE@handleman.com [SMTP:D.BALE@handleman.com]
Sent:   Thursday, February 08, 2001 12:29 PM
To:     RPG400-L@midrange.com
Subject:        Re: Fastest way to delete record

A perfect KISS example!!!

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------

H
FORIGFILE  UP   E           K DISK
FBKUPFILE  O    E           K DISK
C                   IF        TIMESTAMP <=  YYYYMMDD
C                   WRITE     BKUPFILE
C                   DELETE    ORIGFILE
C                   ENDIF


It's not pretty, and it's not the fastest.   But if you compile it and run it
 in batch, it will be done before everyone is finished
discussing it.  <G>
+---
| 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
+---