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



Oops, Sorry, misunderstood your post. When you wrote "stopped at.." I
thought it had stopped with an error. :-(

My apologies for the confusion (translating circuits not up to par this
morning :-) )

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Tue, Oct 11, 2011 at 10:38 AM, Luis Rodriguez <luisro58@xxxxxxxxx> wrote:

Rob,

Using STRDBG (5250) and V5R3 I didn't get any particular error. PTF check
time, perhaps?

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Tue, Oct 11, 2011 at 9:53 AM, <rob@xxxxxxxxx> wrote:

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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.