RE: Fastest way to delete records.

Hi Gene,

Don't laugh!!!  <G>     But here is an "ugly" CL program, I wrote a few years 
ago to RGZPFM files that > 15% deleted records.
We auto-scheduled it to run on the weekends over selected libraries.  It worked 
well, but we never had files with millions of
records either.

Terry


STRCLPGM:   PGM        PARM(&LIBRARY)
            DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
            DCL        VAR(&PERCENT) TYPE(*DEC) LEN(4 3)
            DCLF       FILE(QTEMP/WORKFILE) RCDFMT(QWHFDMBR)
            DSPFD      FILE(&LIBRARY/*ALL) TYPE(*MBR) +
                         OUTPUT(*OUTFILE) OUTFILE(QTEMP/WORKFILE)
NEXT:       RCVF       RCDFMT(QWHFDMBR)
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDCLPGM))
            IF         COND(&MBFILA *EQ '*PHY') THEN(DO)
            CHGVAR     VAR(&PERCENT) VALUE(&MBNDTR / &MBNRCD)
            MONMSG     MSGID(MCH1211) EXEC(GOTO CMDLBL(NEXT))
            IF         COND(&PERCENT *GT .15) THEN(DO)
            SBMJOB     CMD(RGZPFM FILE(&MBLIB/&MBFILE) MBR(&MBNAME))
            ENDDO
            ENDDO
            GOTO       CMDLBL(NEXT)
ENDCLPGM:   DLTF       FILE(QTEMP/WORKFILE)
            ENDPGM







                                                                                
                              
                    "Hockemeyer,                                                
                              
                    Gene"                    To:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>        
                    <HockemG@sunbeam.        cc:                                
                              
                    com>                     Subject:     RE: Fastest way to 
delete records.                  
                    Sent by:                                                    
                              
                    owner-rpg400-l@mi                                           
                              
                    drange.com                                                  
                              
                                                                                
                              
                                                                                
                              
                    02/08/01 02:13 PM                                           
                              
                    Please respond to                                           
                              
                    RPG400-L                                                    
                              
                                                                                
                              
                                                                                
                              



Also ... the big time consumer is still there .. REORGING THE FILES .. to
recover the DASD..! .. This process is dependent on the number of Logical
files as well as the size of the original physical file! .. This is still my
favored archiving solution.

-----Original Message-----
From: Rich Duzenbury [mailto:rduz@westernmidrange.com]
Sent: Thursday, February 08, 2001 1:23 PM
To: RPG400-L@midrange.com
Subject: Re: Fastest way to delete records.


Whoops, I forgot to add: Delete the 'K' on Terry.Rhoades example file specs
so the files will process in arrival sequence!

Regards,
Rich


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




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