Re: Reduce code of CHAIN

I have a question. For the last few years we have been coding chain 
statements like this:

abc chain file1
    if %found(file1) and not %eof(file1)

Do we not have to use the %eof on chains? I know you have to use them on 
reads? Any help would be appreciated. thank you

Jeff Williams


On Thu, 12 Oct 2006 00:14:50 +0800, Joseph Pascoguin wrote

Hi,
In this below example, is there anyway I can combine chain 
statements and other statements, I see lots of similarities, can 
some one advise please? C                   Eval      Rst@rc = 
MER#PE C     Rst@rc        Chain     MMF3REST C                   If 
       %Found(ABCREST) C                   EXSR      TEST C          
         EXSR      TEST1 C                   EVAL      OUTXP = 
 %trim(%char(MER#PE)) C                   Eval      MERNBR = MER#PE 
C     MERNBR        Chain     SFILE C                   If       
 %Found(SFILE) C                   EXSR      TEST C                  
 EXSR      TEST1 C                   EVAL      OUTXP = 
 %trim(%char(MER#PE))

Warm Regards,
JoeP

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's 
FREE! http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

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

--
WOW! Homepage (http://www.wowway.com)