RE: replacing characters using %subst

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

lol 

Was thinking about that when I wrote my reply.

Thanks Joe 





"Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces+bhopkins=libertyhardware.com@xxxxxxxxxxxx
08/18/2003 01:20 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     "'RPG programming on the AS400 / iSeries'" 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        RE: replacing characters using %subst


Booth asked:
> Lets say I want to substring characters 3 through 8 from the string
> abcdefghijklmnopqrst and put those characters in position  13 through
18
> of a field named FIELD2 which is large enough.

Don wrote: 
> EVAL %SUBST(FIELD2,13,6) = %SUBST(FIELD1,3,6)

Rob wrote:
> /free
>  %subst(field2:13:18)=%subst('abcdefghijklmnopqrst':3:8);
> /end-free


The correct answer is:

EVAL %SUBST(FIELD2:13:6) = %SUBST(FIELD1:3:6)

/free syntax removes the EVAL.


Joe

(And the problem is that the MOVE instruction is confusing?)

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