Re: evalr pad 0

This also will give you what you want:

   /free
     char10=*all'0';
     evalr char10=char10 + %editc(num3:'X');
   /end-free



Lim Hock-Chai wrote:

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');