RE: New RPG Redbook (was Sub Files).(and quick sort)

 >> Here's a test program I wrote last year to play with qsort().  Don't vouch
for the quality or style.

Just a couple of comments to help others understand some of the additional
potential of the functionality here.

First the invocation of qsort can use the BIFs directly since the parms are
passed by value - there is no need to copy the BIF result to a variable.

   C                   callp     sortit( %Addr(array) : numelems     :
   C                             %Size(array) : %PAddr('COMPFUNC') )

One of the benefits of qsort and bsearch is that they don't have to sort/search
the whole array so the value "x" would be better than "numelems" - although in
your example they are the same anyway <grin>.

The based variables in the compare procedure can be coded using LIKE - that way
there's no chance for a mis-match.  I also like to make a point of _always_
leaving at least one space after the D spec Id - that way not all of your
variables read as if they started with the letter D <bg>


    D key              s                   based(lookfor) Like(Array)
    D arrelt           s                   based(arreltptr) Like(Array)

Last but not least don't forget that these functions can be used to sort/search
a Multiple Occurrence Data Structure every bit as easily as an array.


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