Re: Using an Expression to control a FOR loop

[James Perkins <jrperkinsjr@xxxxxxxxx>]

In the for loop, the length (%LEN()) is being calculated each time. You are
extending the length of "coldta" so on the second loop your asking: is (5 -
4) >= 2.

Your better off doing something like this.
len = %len(coldta);
for i = cwdth(#col) to len by 1;
  coldta = '0' + coldta;
endfor;

--
James R. Perkins


On Wed, Mar 25, 2009 at 08:01, Arthur Marino <amarino@xxxxxxxxxxxx> wrote:

> This FOR loop is supposed to prefix the 'varying' character field
> "coldta" with zeros so as to right-justify the value in the column's
> defined field length. "i" is defined as 5i 0.
>
> for i = 1 to (cwdth(#col)-%len(coldta));
> coldta = '0' + coldta;
> endfor;
>
> Debug tells me:
> cwdth(#col) = 5         (the column's defined field length)
> coldta = '134'  (%len(coldta)=3, I inserted an explicit calc to be sure)
>
> "coldta" should wind up being '00134'.
>
> I expect the loop to iterate twice (5 - 3). Yet, it does so only ONCE.
> After the 'endfor' i = 2, not 3 as I'd expect, and coldta contains 0134
> (only 4 bytes).
>
> When I insert the calc "len = cwdth(#col)-%len(coldta);" and replace the
> expression with "for i = 1 to len", it iterates twice, i = 3 after the
> 'endfor', and coldta=00134 (5 bytes).
>
> Is there something I'm not getting about the evaluation of the
> expression in the FOR loop? It certainly appears that 5 - 3 results in
> 1, not 2.
>
> Thanks.
>
> Arthur Marino
>
> This message, including its attachments, constitutes an electronic
> communication within the meaning of the Electronic Communications Privacy
> Act, 18 U.S.C. Section 2510.  This message is the confidential property of
> RockTenn, and disclosure is strictly limited to recipients intended by the
> sender.  Unless previously authorized in writing, this message does not
> constitute an offer, acceptance, or agreement of any kind.  This message may
> contain confidential attorney-client privileged information and attorney
> work product.  If you are not the intended recipient, or responsible for
> delivering e-mail to the intended recipient, you are advised that use,
> dissemination, forwarding, printing, or copying of this message is STRICTLY
> PROHIBITED.  If you receive this message in error, please notify the sender
> immediately by return e-mail and delete the message entirely from your
> system.  Sender is not liable for damage caused by viruses transmitted with
> this message, or errors or omissi!
>  ons in content caused by transmission.
> (c) RockTenn, Norcross, GA.
> --
> 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.