RE: Eval Statement Error

["Haas, Matt" <Matt.Haas@xxxxxxxxxxxxxxxxxxx>]

Arlene,

It's time to take a look at the manual. Per the manual, the first and second 
parameters have to be either character, graphic, or UCS-2 so your numeric will 
not work unless you convert it to character first. Since you're using MOVE to 
populate Stru, changing Stru to be defined as 5A should fix the compile problem.

Matt

-----Original Message-----
From: Arlen Nissan [mailto:arlennissan@hotmail.com]
Sent: Thursday, August 15, 2002 10: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)


Arlene Soderlund





_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.