Re: Multiple Conditions on a DOW loop

Hi Bryce
yes - you can put multiple conditions on a do loop
a dow checks the condition on top
a dou checks the condition at the end

so in your case
dow myVariable <> '' and myVariable <> 'A';
line 1
line 2
line 3
line 4
line 5
if certain condition;
myVariable = 'A';
endif;
line 7
line 8
line 9
line 10
enddo

at the beginning, myVariable <> 'A'
after line 5
myVariable is set to 'A'
line 7 through line 10 are also processed
BUT it will NOT go through the DO loop again



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 06/12/2009 04:13:18 PM:

Ok Group. I have run into an interesting problem...

I have this loop structure...

dow myVariable <> '' and myVariable <> 'A';
// I do some stuff
// At some point myVariable could be set to '' or A or another value
// at which point we want to run the loop again.

enddo;

But when myVariable = 'A' the loop runs anyway.

Can we not put multiple conditions on a DOW loop? Is my brain not

reading

my logic correctly today?


Thanks
Bryce Martin
Programmer/Analyst I
570-546-4777
--- This message (including any attachments) is intended only for
the use of the individual or entity to which it is addressed and may
contain information that is non-public, proprietary, privileged,
confidential, and exempt from disclosure under applicable law. If
you are not the intended recipient, you are hereby notified that any
use, dissemination, distribution, or copying of this communication
is strictly prohibited. If you have received this communication in
error, please notify us and destroy this message immediately. ---
--
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.