Re: %Trim dilemma

[rick baird <rick.baird@xxxxxxxxx>]

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.

On 1/27/06, Ellsberry, Steve <steve.ellsberry@xxxxxxxxxxxx> wrote:
> 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.
>
>