RE: Using an Expression to control a FOR loop

Arrrggghhh! Of course it's being re-calculated at each 'endfor'! And why
didn't I think of that?
Thanks, James.

Arthur J. Marino
RockTenn Corporation
(631) 297-2276

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of James Perkins
Sent: Wednesday, March 25, 2009 11:16 AM
To: RPG programming on the IBM i / System i
Subject: Re: Using an Expression to control a FOR loop

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.

--
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.


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 omissions in content caused by transmission.
(c) RockTenn, Norcross, GA.