Giving spaces dynamically

Question

Hi,
The requirement is i have a field in internal table of length say 35. i have to concatenate the data in this field  along with other data into a variable of length 100.
eg -
field a(35) type c.
variable txt(100).
if the field A contains 10 character value then remaining 25 i have to give spaces while concatenating.
if it contains 20 charachter value, then remaining 15 should be give spaces while concatenating.
so, there can be any combination of values and spaces. I have to handle it dynamically.
Best Regards,

Answer 1

Hi Mohammadi siddiqui,
You can use this :
REPORT ztest1.
DATA :
      lv_text1(10) VALUE 'abc',
      lv_text2(20).
START-OF-SELECTION.
  WRITE lv_text1 TO lv_text2 RIGHT-JUSTIFIED. <-- right-justified fills the left part with spaces automatically
Also you can calculate length difference and use SHIFT command like this code :
REPORT ztest1.
DATA :
      lv_text1(10) VALUE 'abc',
      lv_text2(20).
DATA :
      lv_len1 TYPE i,
      lv_len2 TYPE i,
      lv_diff TYPE i.
START-OF-SELECTION.
  " 1 move text
  lv_text2 = lv_text1.
  " 2 Find difference of length :
  lv_len1 = STRLEN( lv_text1 ). 
  DESCRIBE FIELD lv_text2 LENGTH lv_len2 IN CHARACTER MODE.
  lv_diff = lv_len2 - lv_len1.
  " 3 Shift value abc in text lv_text2
  SHIFT lv_text2 RIGHT BY lv_diff PLACES.
Edited by: Bulent Balci on Aug 6, 2010 11:15 AM