Re: FOR loop limit

[Alan Campin <alan0307d@xxxxxxxxx>]

The solution is simple. Don't use packed decimal for loop index. Many,
many times slower. Always, always use integers. The compiler is
working correctly.

On Thu, Jan 29, 2009 at 10:32 AM, Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx> wrote:
> I learned something new today.
>
> Take the following program:
>
>     D x               S              3P 0
>     D y               S              3P 0
>
>      /free
>
>       *INLR = *On;
>       Y = 999;
>
>       For X = 1 To Y By 1;
>       EndFor;
>
>       Return;
>
>      /end-free
>
>
> The program bombs with the dreaded "Message . . . . :   The target for a
> numeric operation is too small to hold the result (C G D F)."
>
> I guess when the endfor is reached the last time through, it attempts to set
> the value of x to 1,000.
>
> Live and learn.
>
> --
> Jeff Crosby
> UniPro FoodService/Dilgard
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
> www.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
>
>
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.