Re: RPG Error or ?

[Luis Rodriguez <luisro58@xxxxxxxxx>]

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.