Re: RPG Error or ?

[Luis Rodriguez <luisro58@xxxxxxxxx>]

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.