Re: [EXTERNAL] Select Max value question 2

["Art Tostaine, Jr." <atostaine@xxxxxxxxx>]

Yes that looks like what it was.  This is working

            exec sql SELECT cls, qty into :pkgGroup, :noqty
                     from whso313f
                     where sty = :pkgStyle
                     group by cls, qty
                     order by qty desc
                     fetch first row only;


On Wed, May 30, 2018 at 10:00 PM, Alan Shore <ashore@xxxxxxxx> wrote:

> HI Art
> Even though you do a group by, I don't see an order by therefore (I'm
> guessing) that the fetch first row only can result in different values
>
>
>
> Sent via the Samsung GALAXY S® 5, an AT&T 4G LTE smartphone
>
>
> -------- Original message --------
> From: "Art Tostaine, Jr." <atostaine@xxxxxxxxx>
> Date: 5/30/18 9:47 PM (GMT-05:00)
> To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> Subject: [EXTERNAL] Select Max value question 2
>
> Do I have to do anything to clean up when I run multiple Select into
> statements in an RPG program?  I'm seeing joblog messages like ODP not
> deleted.
>
> My RPG statement looks like this:
>
>             exec sql SELECT cls, max(qty) into :pkgGroup, :wkqty
>                      from whso313f
>                      where sty = :pkgStyle
>                      group by cls
>                      fetch first row only;
>
> The wrong result CLS = 4 is returned, verified with debug and it's being
> written to another table.
>
> If I break before that statement, and F3 and then run the statement on
> STRSQL, I get the correct answer, CLS = '2'
>
>
> --
> Art Tostaine
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD