Re: Additional RPGLE Enhancement Requests

Concatenate several fields into one new field in the DS array, then sort by
the new field.  

I also use a variable field called sort in work files.  Program 1 prompts
for the selection and sorting criteria.  Program 2 builds a keyed work
file.  Program 3 prints it.   The key to the work file is a field called
SORT.  

I also implemented a data warehouse application using this technique.  I
keep 50 different combinations of "sorts" and "totals" in 1 file, with one
Inquiry program. This gives instantaneous results.  The application is
Merchandise totals.  You can get totals by company, department, class,
item, sku, etc.   This lets you start at the top and drill down.  That is,
you can see company totals, then see departments in company, or items
within class, or departments within item.  
        K       MDTYPE          3  0    Total Type
        K       MDSORT          40      Sort Field
        K       MDYEAR          4  0    Year    
        K       MDMNTH          2  0    Month
                MDITEM          10      Item
                MDSKU           10      Item Size & Color
                MDCMPNY 2       Company
                MDDVSN          2       Division
                MDCLAS          2       Sales Class
                MDWHSE          2       Warehouse
                MDBUYR          10      Buyer
                MDRRCL          5       Purchasing Class
                MDDEPT          2       Department
                MDSALA          11 2    MDS Sales Dollars
                MDCOST          11 2    Cost of goods sold
                MDSALU          7  0    Sales Units
                MDONHN          7  0    On Hand
                MDONOR          7  0    On Order
                Etc.

Steven Easton 
seaston@ionet.net
Midrange Systems Design
http://www.ionet.net/virtual/dpma/
Century Martial Art Supply
http://www.centuryma.com/

> You can only do a SORTA on ONE of the arrays.  You define an overlaying
> array to encompass 2 arrays but they must be contiguous.  I want the
ability
> to sort the arrays by any combination of the arrays, contiguous or not.
> 
> 
> Charlie Massoglia, Massoglia Technical Consulting, Inc.
> PO Box 1065, Okemos, MI 48854, USA
> 517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *