×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Thanks all. Barbara's code did the trick.
If does lead me to another question on %trim, %trimr. If you know for sure the field is left justified and you want to trim off trailing blanks, is using %trimr more efficient than %trim? They would both have the same results. I tend to always user %trim for everything
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Wednesday, April 30, 2008 10:35 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: %trim blanks or nulls?
Mike Cunningham wrote:
Does the %trim bif look for just blanks (hex 40) or does it also trim
nulls (hex 00) I have two 15 character fields. One is coming from a
database, one is passed as a parameter. Both contain an IP address
(aaa.bbb.ccc.ddd). In the database field the trailing characters are
always spaces if the ipaddress is not the full 15 characters. The
parameter being passed will sometimes end in spaces and sometimes end
in nulls (hex '00'). I did a compare using... If %trim(dbfield) <>
%trim(parameter); And when the parameter field ended in hex 00 the if
was evaluated as true.
You can trim any combination of blanks or nulls if you use the second
parameter of %trim.
If %trimr(dbfield) <> %trimr(parameter : ' ' + x'00');
If parameter = 'a.b.c.d ' or 'a.b.c.dnnnnn' or even a mixture of
blanks an nulls like 'a.b.c.dn nn n ', the result of the second %trimr
of parameter would be 'a.b.c.d'. (where n = null)
--
This is the RPG programming on the AS400 / 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.
As an Amazon Associate we earn from qualifying purchases.