Re: Using an Expression to control a FOR loop

After the first iteration, the length of coldta has changed from 3 to 4,
therefore the for loop condition is met at that point


Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 03/25/2009 11:01:01 AM:

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.