× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ah ok... makes sense now... 
I'm glad I'm off in 18 minutes...

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




rick baird <rick.baird@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/01/27 04:05 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: %Trim dilemma






Ron, I feel your pain, but it's the only correct way to evaluate that 
statement.

I think where you are getting tripped up is that you 'think' you're
comparing stupidfield to a string of 9s.   You are not comparing
stupidfield to a string of 9s.

You are comparing the bif %trim() to the special value *all'9'

*all'9' has it's own quirks, which have not changed since the
beginning (at least RPGii).   %trim() has it's own rules which have
not changed since it's inception as well.

Rick

On 1/27/06, RPower@xxxxxxxxxx <RPower@xxxxxxxxxx> wrote:
> It still doesn't sit right with me though.  I can "see" why now, but I 
can
> also see myself thinking that %Trim() evals to *blanks, not a field len 
of
> 0...
> Based on the field len of 0, then this should fail:
> stupidfield = *blanks;
> If %Trim(stupidfield) = *blanks;
>        dosomethingstupid();
> Endif;
>
> Won't that If statement evaluate to true?
>
> 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
>
>
>
>
> "Bob Cozzi" <cozzi@xxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/01/27 03:37 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> RE: %Trim dilemma
>
>
>
>
>
>
> Rick,
> This is exactly what is going one, for the most part.
>
> -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 rick baird
> Sent: Friday, January 27, 2006 12:57 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: %Trim dilemma
>
> my guess is that the *all'9' is being dynamically sized to the size of
> %trim()
>
> since the size of %trim() is 0, then the size of *all'9' is also zero,
> and thus cannot contain any 9s.
>
> so, it's as if you're comparing ( '' = '' ) which is true.
>
>
> --
> 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.
>
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.