× 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.



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.
>
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.