Re: Reduce code of CHAIN

How about
C                   Eval      Rst@rc = MER#PE
C     Rst@rc        Chain     MMF3REST
C                   If        %Found(ABCREST)
C                   exsr      Commonrtn
C     MERNBR        Chain     SFILE
C                   If        %Found(SFILE)
C                   exsr      Commonrtn

C             Commonrtn               begsr
C                   EXSR      TEST
C                   EXSR      TEST1
C                   EVAL      OUTXP =  %trim(%char(MER#PE))
C                   Eval      MERNBR = MER#PE
C                                                   endsr



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/11/2006 12:14:50 PM:

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.