topic shift in Application Development and Automation Discussions

shift

Former Member — Tue, 25 Jul 2006 14:11:22 GMT

I am having one field called v_ref with length of 18 .

This filed sometimes coming with length 10 and others

spaces in the right handside.Some times with length 13

and other 5 spaces.I need to populated this field in to

some other fileld without any spaces.When it is 10 I need

to populate in to one field and if it is 13 then I need to

populate in to some other field.Can you please suggest.

Re: shift

RichHeilman — Tue, 25 Jul 2006 14:17:03 GMT

You can check the length using the STRLEN .

report zrich_0001.

data: str1 type string.

data: var1(18) type c.
data: var2(13) type c.

data: len type i.


str1 = 'ABCDEFGHIJK'.

len = strlen( str1 ).

if len > 13.
  var1 = str1.
else.
  var2 = str1.
endif.


write:/ var1.
write:/ var2.

Regards,

Rich Heilman

Re: shift

Laxmana_Appana_ — Tue, 25 Jul 2006 14:21:49 GMT

Hi,

Find the size of the contents and transfer the contents.

ex: x_fld is your field.

condense x_fld no-gaps.

x_len = strlen(x_fld).

if x_len = 10.

move x_fld to x_fld1

elseif x_len = 13.

move x_fld to x_fld2

endif.

Regards

Appana

Re: shift

ibrahim_u — Tue, 25 Jul 2006 14:26:04 GMT

if there are spaces you can use CONDENSE for clear spaces.

later you can learn how long is it using STRLEN.



data sample(18) type c.
data len type i.

sample = ' 1234567890       '.
len = STRLEN( sample ). "len=11
condense sample. "sample = '1234567890'
len = STRLEN( sample ). "len=10

i hope this will help

thanks ibrahim