Re: evalr pad 0

[Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx>]

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