Re: RPG Error or ?

Weird. Stopped at line 14 in debug.
*MODULE ENTRY AND MAIN PROCEDURE ENTRY
1 d string s 52a varying
2
3 /free
4 *inlr=*on;
5 string = x'0515' + 'abc';
6 // or
7 // string = x'4015' + 'abc';
8
9 // dosn't work (but works if x'4040' + 'abc')
10 if string > '';
11 dsply 'hello 1';
12 endif;
13 if string < '';
14 dsply 'hello 1B';

eval string :x
00050515 81828300 00000000 00000000 - ....abc.........


Rob Berendt
--
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: Henrik Rützou <hr@xxxxxxxxxxxx>
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date: 10/11/2011 10:00 AM
Subject: RPG Error or ?
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



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


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