How to show value and unit in different columns

Question

Hi All,
I need ABAP help for the below requirement in BI7.0
Data source contains  the field Amount in local currency (Data source is flat file of CSV format)
Amount in local currency
       1000  INR
       2000  INR
       1000  GBP
       2000  EUR
I have to get this value in target like below( value and unit should be in different columns)
Amount in local currency              0currency
       1000                                           INR
       2000                                           INR
       1000                                           GBP
       2000                                           EUR
Can any one help me how to declare the data type for  Amount in local currency and how to show this value in two columns in the target.
Thanks,
kishore.

Answer 1

TYPES:BEGIN OF ty_stru,
  s1 TYPE string,
END OF ty_stru,
BEGIN OF ty_stru1,
  s2 TYPE string,
  s3 TYPE string,
  END OF ty_stru1.
DATA:itab TYPE TABLE OF ty_stru,
      wa LIKE LINE OF itab.
DATA:itab1 TYPE TABLE OF ty_stru1,
     wa1 LIKE LINE OF itab1.
START-OF-SELECTION.
"--Input--
In input 1000 and USD having space
  wa-s1 = '1000 USD'.
   APPEND wa TO itab.
  wa-s1 = '1000 INR'.
   APPEND wa TO itab.
  wa-s1 = '1000 EUR'.
  APPEND wa TO itab.
"--Input--
  LOOP AT itab INTO wa.
SPLIT wa-s1 AT space INTO  wa1-s2 wa1-s3.*------> split command
APPEND  wa1 TO itab1.*---------------->splited value store into another internal table
  ENDLOOP.
"--Display--
  LOOP AT itab1 inTO wa1.
    WRITE: wa1-s2,
           wa1-s3.
  ENDLOOP.
"--Display--
Output:
1000 USD
1000 INR
1000 EUR
This is simple prgram for split a string into two different string based on space
regards
Dharma
Edited by: dharma raj on Aug 19, 2009 2:01 PM