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.