RE: %Trim dilemma

Yes. 
*ALL'x' normally generates a temp var that is equal in size to the
corresponding value it is being compared with.
In an expression, when the size can't be determined, it is determining the
number of '9' (in this case) at runtime. Since the l-value has a length of
0, the r-value also will have a length of zero in this situation.
If   %trim(myFiled) = *ALL'9'

Endif
True if %len(%trim(myField)) > 0 and equal to only 9's.
True if %len(%trim(myField)) = 0 as an empty r-value is generated.

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of michael@xxxxxxxxxxxxxxxxxx
Sent: Friday, January 27, 2006 1:06 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: %Trim dilemma

However, this is different:

/Free                       
 *InLR = *On;               
 If %Trim(Field) = *All'9'; 
   Eval Out = 'Equal';      
 Else;                      
   Eval Out = 'Not Equal';  
 EndIf;                     
 If %Trim(Field) = '999999';
   Eval Out = 'Equal';      
 Else;                      
   Eval Out = 'Not Equal';  
 EndIf;                     

It's true in the first case and false in the second. Must be something
in the *ALL when it's compared to Null?

> -------- Original Message --------
> Subject: Re: %Trim dilemma
> From: RPower@xxxxxxxxxx
> Date: Fri, January 27, 2006 1:55 pm
> To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> I just tried this on our system and put in debug and sure enough you are 
> right.  This doesn't make sense to be honest.
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
>
___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. - 
> Sir Winston Churchill
> 
> 
> 
> 
> "Ellsberry, Steve" <steve.ellsberry@xxxxxxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/01/27 03:15 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> "'RPG List'" <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> %Trim dilemma
> 
> 
> 
> 
> 
> 
> Hey guys,
>  
> Maybe someone can explain this one to me. 
>  
> >From the statements below you can see that WSSIMN is defined as 20 bytes
> alpha. When the program using this field runs and if WSSIMN is blank the
> statement tests as true and all statements within the if group are 
> executed.
> The idea behind the statement is to allow a "dummy" serial number that
> equals '99999999999999999999' to be used for internal testing.  Obviously
> the developer can get around it by testing for <> to blank prior to the
> %Trim test but my concern is we may have other programs in the field that
> are doing the same thing. 
>  
> Any ideas on why this would test true if Wssimn is blank? If %TRIM removes
> leading and trailing blanks and if the entire field is blank, what's being
> compared? 
>  
>  
> D  WSSIMN                        20A  
>  
> C          If      %Trim(Wssimn) = *All'9'
>  
>  
>  
>  
>  
>  
> -- 
> 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.
> 
> 
> -- 
> 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.