Re: Deleting all records in a PF

On 05/04/2005, at 3:43 AM, Douglas W. Palme wrote:

I know that I can use SQL to completely clear a physcial file, and in the
end I might end up doing just that, but for educational purposes, what does
everyone consider the easiest method of clearing all records using strictly
RPGLE?

Pure RPG would be:

C                               DOU                     NOT(%FOUND(filename))
C                               EVAL        rrn = rrn + 1
C               rrn             DELETE          filename
C                               ENDDO

C                               READ            filename
C                               DOW                     NOT(%EOF(filename))
C                               DELETE          filename
C                               READ            filename
C                               ENDDO

which would delete all records in the file.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------