RE: To trim or not to trim?

Hi Bill,

My suggestion(from midrange) pasted here so others see what I'm referring to:
" %char does an implicit %trim, fyi.
Try this:
Value = %char( field1 ) + '-' + %trim( field2 ) + '-' + %char( field3 );

If you want to suppress the leading zeros in field 2, you can change %trim to:
%trimR( %trimL( field2: '0') ) (I believe that would work, just typing it in Outlook and not in RDi.)"


The inside trim is actually %trimL - the L is important, as Peter is saying. The trimL shown will trim leading zeros. In fact, it would trim all zeros if your value was something like 000. So you might want to do %char( %int( field2 ) ) which would trim all leading zeros, but leave you with a 0 if the value is actually 0.

It's to your benefit (cleaner code) to pay attention to the comments made in the thread to not use %trim on a %char because the %char already does it.

-Kurt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Dow
Sent: Wednesday, January 15, 2014 3:52 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: To trim or not to trim?

Hi Bill,

Do you really want to trim trailing 0s from plregister? If you had

plretailer: 36
plregister: 020
pltransnum: 3208

your result would be 36-2-3208. It seems more likely you'd want to get 36-20-3208; but then again, I know nothing about your application.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx> pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>/


On 1/15/2014 11:34 AM, William Howie wrote:

Charles/Kurt/Buck,

I was able to get it to work. Basically I think it was a hybrid of all the solutions. Here's the code:

wmctl# = %trim(%char(plretailer)) + '-' + %trim(plregister:'0 ') +
'-' + %trim(%char(pltransnum));

I think what was throwing me was the fact that I was at one point running it with the "pltransnum" field not on there, because I wasn't seeing the third field with it in the code, so I started working backward, eliminating things to see what it would do. So at one point the statement ended with appending the second dash, and I wasn't seeing the second dash. So that's what got me wondering. Anyway, it's working now. Thanks for the help guys!!

Bill Howie
Software Developer
AmTrust North America
________________________________
Confidentiality Notice: This email message is intended only for the individual or entity to which it is addressed. This email may contain information that is proprietary or privileged, confidential and exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you received this email by accident, please notify the sender immediately and destroy this email and all copies of it.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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.