Re: RPG Error or ?

If I understand your question, it is a misunderstanding.

For comparisons, alphameric fields are padded with blanks until they are equal length. In your case, you were comparing x'4040...' against x'4015...' (since x'40' is an EBCDIC blank - at least in USA). In that comparison, '' is not less than x'4015'.

I would have gone with if %len(string) > *Zero, personally.
++
Dennis
++
"Nothing is more humiliating than to see idiots succeed in enterprises we have failed in."
-- Flaubert




Sent from my Galaxy tablet phone. Please excuse my brevity.
For any grammatic/spelling errors, there is no excuse.
++


"Henrik Rützou" <hr@xxxxxxxxxxxx> wrote:

Is it me that has misunderstood something or what would you expect
displayed from this code:

d string s 52a varying

string = x'0515' + 'abc';
or
string = x'4015' + 'abc';

// dosn't work (but works if x'4040' + 'abc')
if string > '';
dsply 'hello 1';
endif;

// works
if string <> '';
dsply 'hello 1';
endif;

// works
if %len(string) > 0;
dsply 'hello 2';
endif;


--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>
--
This is the RPG programming on the IBM i / System i (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.