Re: evalr pad 0

["M Lazarus" <mlazarus@xxxxxxxx>]

Lim,

 This should work for you:

evalr char10 = %editc(num3 :'X');
char10 = %xlate(' ': '0': char10) ;

 -mark

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