RE: evalr pad 0

["Kurt Anderson" <kjanderson@xxxxxxxxxxxxx>]

And just a slight deviation on what Wayne said:

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


Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wayne McAlpine
Sent: Wednesday, November 15, 2006 9:20 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: 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');                         
--
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.