Re: FOR loop limit

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Yup...one more than the terminal value.

On Thu, Jan 29, 2009 at 12:32 PM, 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.