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


  1.  Home
  2. RPG400-L
  3. December 2010

Re: Moving a field and removing blanks

Hard to find, since there is no such thing as %move - IBM left that out.

On 12/1/2010 11:53 AM, hockchai Lim wrote:
I can't seem to be able to find the doc for %move bif ;) . So I guess you
could try this:

d char50 s 50 inz(*all'A')
d char30 s 30 inz('BBB')

d ix s 5i 0
/free

ix = %size(char50) - %len(%trimr(char30));
char50 = %subst(char50 :1 :ix) + %trimr(char30);


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.