RE: SELECT & WHENEQ Question

If you can change $100 to be a sub-procedure that accept K@FAC as parm
with return value as W@GOOD, then you can do below

//Try 30 first 
Eval    W@Good = $100(30) 

//Try 10 when 30 failed
If      W@Good = *blank
Eval    W@Good = $100(10) 

//Try 20 when 30 failed
If      W@Good = *blank
Eval    W@Good = $100(20) 
Endif


If above is not an option, below might improve a bit:

C                   eval      W@Good = 'NO'   
C                   for       tryCount=1 to 3 
 * determine value of retry                   
C                   select                    
C                   when      tryCount = 1    
C                   eval      K@FAC = 30      
C                   when      tryCount = 2    
C                   eval      K@FAC = 10      
C                   when      tryCount = 3    
C                   eval      K@FAC = 20      
C                   endsl                     
                                              
C                   exsr      $100            
C                   endfor                    


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
THarteau@xxxxxxxxxxxxxxxxxx
Sent: Monday, August 14, 2006 11:45 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: SELECT & WHENEQ Question



Hi,
      Thanks for the sharp eyes. I missed the missing DO loop.  Now a
related question, since I am trying to modernize this program a bit,
what would be the best way to rewrite this?
      Just add the DO loop
      Change it to a series of IF statements
      Come other way

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
"The danger in life is not that we aim too high and miss.
The problem is that we aim too low and hit the mark."  -- Michelangelo
****************




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