|
Yes a primary input with update, the old cycle is not dead! No key processing for fast delete unless... You have a logical already created, sequenced descending, over the infamous 10 million rcd file and setll by the highest date value that can be deleted and read the remainder of the file in keyed sequence. You would only be processing the target group which is slower than sequentially processing the same group if you could. You could create OPNQRYF and cpyfrmqryf to temp file as reference point, but that eats up time. New logicals for a 1 shot time deletion, takes the hit during creation. When deleting rcds from any large physicals, check the # of logicals. If such a deletion job is to be run off hours, chg the logicals to access path maint to *DLY, this will also speed up the deletion. Obviously chg back to *IMMED before the production day, open and close the files to rebuild paths. Again you have to take a hit, but at the back end. Any better ways? Please inform. >From: Marcin Sagan <itbamsag@bh.com.pl> >Reply-To: RPG400-L@midrange.com >To: RPG400-L@midrange.com >Subject: Re: Odp: Re: Fastest way to delete records. >Date: Fri, 09 Feb 2001 14:57:38 +0100 >MIME-Version: 1.0 >Received: from [192.160.127.90] by hotmail.com (3.2) with ESMTP id >MHotMailBC4DCF7700B640043217C0A07F5A0F3B0; Fri Feb 09 15:59:57 2001 >Received: (from uucp@localhost)by uucphost.mcs.net (8.11.1/8.11.1) with >UUCP id f1A00Uw90800;Fri, 9 Feb 2001 18:00:30 -0600 (CST)(envelope-from >rpg400-l-owner@midrange.com) >Received: from localhost (mail@localhost)by linux.midrange.com >(8.9.3/8.8.7) with SMTP id SAA24418;Fri, 9 Feb 2001 18:30:54 -0600 >Received: by linux.midrange.com (bulk_mailer v1.13); Fri, 9 Feb 2001 >18:30:52 -0600 >Received: (from majordom@localhost)by linux.midrange.com (8.9.3/8.8.7) id >SAA24349for rpg400-l-outgoing; Fri, 9 Feb 2001 18:30:49 -0600 >Received: (from uucp@localhost)by linux.midrange.com (8.9.3/8.8.7) with >UUCP id SAA24343for RPG400-L@midrange.com; Fri, 9 Feb 2001 18:30:48 -0600 >Received: from mailhub2.bh.com.pl (mailhub2.bh.com.pl [195.136.38.233])by >uucphost.mcs.net (8.11.1/8.11.1) with ESMTP id f19NOkA85034for ><RPG400-L@midrange.com>; Fri, 9 Feb 2001 17:24:46 -0600 (CST)(envelope-from >itbamsag@bh.com.pl) >Received: from bh.com.plby mailhub2.bh.com.pl (8.9.3/8.9.3) with SMTP id >DAA26058for <RPG400-L@midrange.com>; Sat, 10 Feb 2001 03:04:10 +0100 >Received: from route#u#internet-Message_Server by bh.com.plwith >Novell_GroupWise; Fri, 09 Feb 2001 14:58:13 +0100 >From rpg400-l-owner@midrange.com Fri Feb 09 16:01:37 2001 >Message-Id: <sa840585.059@bh.com.pl> >X-Mailer: Novell GroupWise 4.1 >Sender: owner-rpg400-l@midrange.com >X-List-Name: RPG/400 Discussion Mailing List (RPG400-L@midrange.com) > >Hi Terry >Yes you right, I missed it. >Thank you. > >Regards, >Marcin > > >>> <Terry.Rhoades@blum.com> 02/09 2:13 >>> > >Hi Marcin, > >Your way is better, if you only wanted to delete the records. My example >was based on the premise that the "deleted" records were >to be archived to tape before being deleted off the system. And I was >trying to prevent the same records ending up on different >archive tapes. >(eq. - run program, save BKUPFILE to tape1, CLRPFM BKUPFILE, wait a month >or so, run program, save BKUPFILE to tape2, CLRPFM >BKUPFILE, etc. ) > >Regards, > >Terry > > > > > > Marcin Sagan > <itbamsag@bh.com. To: RPG400-L@midrange.com > pl> cc: > Sent by: Subject: Odp: Re: Fastest >way to delete records. > owner-rpg400-l@mi > drange.com > > > 02/08/01 10:48 AM > Please respond to > RPG400-L > > > > > >Why not > >H >FORIGFILE IP E DISK >FBKUPFILE O E DISK >C IF TIMESTAMP > YYYYMMDD >C WRITE BKUPFILE >C ENDIF > >and then rename files to corect names? > >Regards >Marcin Sagan > > >>> <Terry.Rhoades@blum.com> 02/08 4:26 >>> > > >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> > > > > > > > > > Quazy > <quazy@SoftHome.n To: RPG400-L@midrange.com > et> cc: > Sent by: Subject: Re: Fastest way >to delete records. > owner-rpg400-l@mi > drange.com > > > 02/08/01 09:13 AM > Please respond to > RPG400-L > > > > > >sounds good, but I can't create a logical on timestamp alone. As then I >would have many duplicate keys. as there are 40,000 employee numbers each >with many timestamps. > >At 01:49 PM 2/7/01 -0800, you wrote: > >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 >+--- > > > > >+--- >| 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 >+--- _________________________________________________________________ Get your FREE download of MSN Explorer at http://explorer.msn.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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
