Re: evalr pad 0

[Alan Shore <AlanShore@xxxxxxxx>]

Try the following
>    evalr char10 = '0000000' + %editc(num3 :'X');
>    *inlr = *on;
What I THINK is happening with your code is that you are first filling your
10 character field with 10 zeroes, and then concatenating the rest past the
end of the 10 character field.



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx

rpg400-l-bounces@xxxxxxxxxxxx wrote on 11/15/2006 09:47:27 AM:

> Question 1: just curious as why compiler would give me this error below?
>    *RNF7421 30      5 000500  Operands are not compatible with the type
> of operator.
>
> D num3            s              3  0 inz(123)
> D char10          s             10
>  /free
>
>    evalr char10 = *all'0' + %editc(num3 :'X');
>    *inlr = *on;
>
>  /end-free
>
>
>
> Question 2: Without hardcode length of any field, anybody know of an
> easier way to evalr without pad blank on the left ()?
>   Below is what I came up with and they are kind of ugly:
>   %subst(char10
>         :%len(char10)-%len(num3)+1
>         :%len(num3)) = %editc(num3 :'X');
>
> or
>
>   char10 = %subst(char10:1:%len(char10)-%len(num3)) +
>            %editc(num3 :'X');
>
> --
> 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.