evalr pad 0

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