RE: OPNQRYF question

["Shaw, David" <dshaw@xxxxxxxxxxx>]

Performance suggestion - if you're reading the result sequentially, set the
ALWCPYDTA parameter to *OPTIMIZE rather than the default *YES.  This allows the
optimizer to use a sort into QTEMP rather than copying data to QTEMP and then
doing an index build over it.  Of course, this only _allows_ the sort, it
doesn't make it use it, but chances are that on this big a file it will and will
therefor save some time and workload doing it.
  
Dave Shaw
Spartan International, Inc.
Spartanburg, SC

> -----Original Message-----
> From: Billy Rowe [mailto:billyrowe@usa.net]
> Sent: Wednesday, March 08, 2000 1:12 PM
> To: RPG400-L@midrange.com
> Subject: RE: OPNQRYF question
> 
> 
> > Subject: OPNQRYF question
> > 
> > 
> > I need to select and sort a group of records from a 200,000 
> > record file. 
> > OPNQRYF seems the right tool, but performance is horrid plus 
> > there's one 
> > step that I can't figure out.
> > 
> > The finished file has to be in order by substringing Column 3 
> > through 27 
> > of FIELDB.  The Physical file is already keyed by FIELDB.   
> > For sorting I 
> > tried KEYFIELD(*MAPFLD/FIELDBNBR) MAPFLD(FIELDBNBR 
> > '%SST(FIELDB 3 25)' ) 
> > but that wouldn't compile.
> 
> Booth,
> 
> The following OPNQRYF does what you are attempting to accomplish by
> substringing part of a field into another for sorting(i.e. 
> Key Sequence)
> The field being mapped into can only be used for input.
> 
>  /* The OPNQRYF remaps the area code & prefix portion of the 
> billing + 
>     phone# to BDAD1B so that the key will be the area code 
> and       + 
>     phone prefix.                                             
>       */ 
>  OpnQryf File((BDMASTP)) Option(*INP *UPD) +                          
>          QrySlt('bdplby *eq "SUN"') +                         
>          
>          KeyFld((BDAD1B)) +                                   
>          
>          MapFld((BDAD1B '%SST(BDdnam 1 6)')) 
> 
> 
> Hope this helps!!                          
> 
> +---
> | 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
+---