Re: How do you receive multiple results from the same Product Number?

["Larry Ackerman" <xlore@xxxxxxxxxxxxx>]

You're making this much harder than it needs to be.  Basic logic could be
like this:

Print Headings
Until EOF
    Read
    If NOT EOF
        z-add -9's to hisls
        z-add 9's to losls
        z-add 0 to himth
        z-add 0 to lomth
        do 12 in X
            if mthsls(x) > hisls
                z-add x himth
                z-add sls to hisls
            if mthsls(x) < losls
                z-add x lomth
                z-add sls to losls
            add mthsls(x) totsls(x)
        excpt detail with product, hisls, mth(himth), losls, mth(lomth)
DO 12 x
        excpt totals with mth(x), totsls(x)

I left out the part for ties, think about it for a while, if you don't get
post again or email me directly.  Forget the Multi Occur data structures
that's both unnecessary and much later in the course.

Good luck and welcome to RPG

larry



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