Re: %Trim dilemma

[rick baird <rick.baird@xxxxxxxxx>]

working as designed.

see my earlier reply

On 1/27/06, Holden Tommy <Tommy.Holden@xxxxxxxxxxxxxxxxx> wrote:
> Compiler bug??
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx] On
> Behalf Of RPower@xxxxxxxxxx
> Sent: Friday, January 27, 2006 12:59 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: %Trim dilemma
>
> Then why does it evaluate to be equal???
>
> 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
>
>
>
>
> "Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/01/27 03:23 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
> %Trim dilemma
>
>
>
>
>
>
> In the scenario presented if the field was all blanks & you test using
> %trim() then the comparison value will be null.
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ellsberry, Steve
> Sent: Friday, January 27, 2006 12:45 PM
> To: 'RPG List'
> Subject: **SPAM** %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.
>
>
> --
> 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.
>
>