RE: The Dark Side of the Do Loop

What's setting *in30 on? From what you show, the program will only leave
the loop if the value of er(V) is found in alphac starting at a.  


Mark Walter
Senior Programmer/Analyst
IBM Certified RPG Developer
Hainey Business Systems
(717) 771-2362
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
Sent: Tuesday, January 31, 2006 3:23 PM
To: RPG programming on the AS400 / iSeries
Subject: The Dark Side of the Do Loop

I have a subroutine that is predicated on a Doueq.

This cond. is met, yet the program keeps going back into there at the
first ELSE point, then it goes back to the prev. ENDSR. *in30 has been
set on. All of this, shows up in my debugging.

IOW, it is stuck. I cannot understand how to unravel this.


 c                   endsr
 c     rest          begsr
 c     *in30         doueq     *on
 c                   eval      a = j + 10
 c     er(V)         scan      alphc:a       fl1               2 0
 c                   if        %found
 c                   exsr      movar
 c                   leave
 c                   else
--
This is the RPG programming on the AS400 / iSeries (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.