Re: Truncating when concatenating text

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

Finding confirmation in the manual was on my list for this morning.  You
saved me the trouble - thanks!

What I had in mind was putting as much of the text into the field as will
fit.  It looks like this happens by default.  What could be easier?


On Thu, Jun 14, 2012 at 4:52 PM, Anderson, Kurt <KAnderson@xxxxxxxxxxxx>wrote:

> Hi Jeff,
>
> I believe this kind of truncation has always been how it worked.
>
> "A character, graphic, or UCS-2 result will be left justified and padded
> with blanks on the right or truncated as required."
>
> http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Frzasd%2Fsc092508941.htm
>
> -Kurt Anderson
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Jeff Crosby
> Sent: Thursday, June 14, 2012 3:43 PM
> To: RPG programming on the IBM i / System i
> Subject: Truncating when concatenating text
>
> All,
>
> Maybe everyone else already knows this.  I have a situation where I'm
> stringing various pieces of text into a single text field.  On rare
> occasions, the length of the text I want to string in _could_ be longer
> than the text field where I'm storing it.  If that happens, I don't want
> the last piece of text to cause an exception or halt or whatever.
>
> I decided maybe a Monitor group for the last concatenate would be the best
> so I did a little quickie program to test what would happen.  In this
> program I defined a text field 60A and put in these 2 statements:
>
>        Text = 'L18.9000A18.90M19.0700LS22.97AS22.97';
>        Text = %Trim(Text) + 'L18.9000A18.90M19.0700LS22.97AS22.97';
>
> The 2nd statement will overflow the field.  When I ran the test without a
> Monitor group, I got no error!  The program dump shows this:
>
> TEXT CHAR(60)
> 'L18.9000A18.90M19.0700LS22.97AS22.97L18.9000A18.90M19.0700LS'
>
> so it filled the field and then stopped.  That is not what I expected.
>
> I'm going to RTFM to confirm this is expected, but it just startled me.
>
> --
> Jeff Crosby
> VP Information Systems
> UniPro FoodService/Dilgard
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
> www.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
> --
> 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.