Re: RNF7416 on EVAL statement

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Try this:

/Free
  Monitor;
    thckmindec = %Dec(%subst(szdia1:startc:endc):7:0);    // 7=length,
0=decimals
  On-Error;
    thckmindec = *Zero;     //Let someone know there's an error...
  EndMon;


On Wed, Feb 8, 2012 at 1:39 PM, Willie J. Moore <WJMoore@xxxxxxxxxxxx> wrote:
> I am getting an 'RNF7416 Type of the right and left side do not match in
> the EVAL operation',  error on the following EVAL statement.
>
> C                             z-add     0             thckminall
> 2 0
>
> C
>
> C              '-'           scan      sizeall       endc
> 2 0    30
>
> C     *in30              ifeq      '1'
>
>
> C                             z-add     1             startc
> 2 0
>
> C                             eval      thckmindec =
> %subst(szdia1:startc:endc)
>
> Field 'SZDIA1' is defined in the input file.
>
> I was hoping someone can give me some help on the reason why.
>
>
>
> Thanks,
>
> William Moore
>
> California fine Wire, Co.
>
> 805-489-5144
>
>
>
> --
> This is the RPG programming on the IBM i / System i (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.