RE: Moving a field and removing blanks

If you eval the 30 char field into the substringed portion of the 50
character field, you only lose the data you are covering. One of the first
suggestions even went so far as to only substring the not blank amount of
the 30 character field and not just replace all 30 characters. These
options don't clear the field to completely replace it as a standard evalr
50charfield = 30charfield would do.



From:
"Dennis Lovelady" <iseries@xxxxxxxxxxxx>
To:
"'RPG programming on the IBM i / System i'" <rpg400-l@xxxxxxxxxxxx>
Date:
12/01/2010 09:18 AM
Subject:
RE: Moving a field and removing blanks
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



All of these solutions will, as far as I can see. If they don't the
result
won't be as sought. Do you really care that the field is momentarily
blank,
since there's no chance to intercept it in that condition? Or maybe I
don't
understand your objection.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
Shin bone: (n) A device for finding furniture in a dark room.

However the OP wanted to retain data that is in the result field. Eval
or EvalR will clear the field before assigning the value.

-Kurt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx] On Behalf Of Vern Hamberg
Sent: Wednesday, December 01, 2010 8:09 AM
To: RPG programming on the IBM i / System i
Subject: Re: Moving a field and removing blanks

But EVALR trumps them all - as other posts have suggested. No
intermediate field - no substring - no length function.

It came out in V4R4, so far as I can tell, so everyone should be able
to use it.

Nothing much cleaner than

evalr text = %trim(text);

Vern

On 11/30/2010 9:59 PM, Joe Pluta wrote:

On 11/30/2010 5:56 PM, Alan Campin wrote:

VaryingField30 = %Trim(Field30);
%Subst(Field50:
(%Size(Field50) - %Len(VaryingField30)) + 1:
%Len(VaryingField30) = VaryingField30 ;

Without intermediate field:

%Subst(Field50:
(51 - %Len(%Trimr(Field30))):
%Len(%Trimr(Field30)))
= %Trimr(Field30);


With an intermediate field, Alan's is probably the best. And even
overall, I like Alan's because it only trims the field once. That's
worth the tradeoff of an intermediate field. Note that either method
will require you to check for a blank string; if Field30 is all

blanks

either of these will give you an RNX0100 string position error.

Joe

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