RE: Eval Statement Error

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Arlene,

I don't know exactly what you are trying to do here but the second parameter
to %replace is the source string that you want to change.  You are passing
Stru which is a numeric field.

Scott Mildenberger

> -----Original Message-----
> From: Arlen Nissan [mailto:arlennissan@hotmail.com]
> Sent: Thursday, August 15, 2002 8:05 AM
> To: rpg400-l@midrange.com
> Subject: Eval Statement Error
>
>
> I get compile error, anybody have any ideas about doing this better.
> *RNF0382 30      1 The second parameter for %REPLACE is not valid.
>
> D POS             S              5U 0
> D Str             S              5S 0
> D StrU            S              5U 0
> D Chk             S             18A
>
> C                   z-add     0             Pos
> C                   EVAL      pos = %scan(' ' : PYEPMT) - 1
> C                   If        Pos  > 0
> C     18            sub       pos           Str
> C                   Move      Str           Stru
> C                   EVAL      CHk = %REPLACE(%SUBST(PYEPMT :1 :POS)
> C                             :Stru : Pos)
>
>