Re: Reduce code of CHAIN

[jeffw@xxxxxxxxxxxxxxxx]

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)