RE: Fastest way to delete records.

The only problem I have with generic RGZPFM is when you should use the
KEYFILE parameter to speed up access time.  Converting your CL to RPG and
then chaining against an exceptions-to-the-rule file might be a thought.

Rob Berendt

==================
Remember the Cole!


                                                                                
                                       
                    Terry.Rhoades@blu                                           
                                       
                    m.com                    To:     RPG400-L@midrange.com      
                                       
                    Sent by:                 cc:                                
                                       
                    owner-rpg400-l@mi        Subject:     RE: Fastest way to 
delete records.                           
                    drange.com                                                  
                                       
                                                                                
                                       
                                                                                
                                       
                    02/08/01 03:58 PM                                           
                                       
                    Please respond to                                           
                                       
                    RPG400-L                                                    
                                       
                                                                                
                                       
                                                                                
                                       





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



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