Currency translation routine - pls correct ABAP code

Question

Hi,
I am trying to implement a scenario for currency conversion at the transformation level.(i am using BI 7.0)
My source data is flat file.
My scenario here is like
I have 2 masters - country & supplier.
I added 0loc_currcy as an attribute to the country.
The master data of country is as below:
Cid    cname         local currency
C1     INDIA         INR
C2     SWISS         CHF
C3     America       USD
For supplier master data is:
supp id  Sname
S1         raghu
S2         tej
S3         harish
S4         reddy
I defined 2 key figures one Zprice1 & Zprice2.
Zprice1 has currency type 0DOC_CURRCY
Zprice2 has currency type 0LOC_CURRCY
In the PSA the data is as below:
cid    sid     0calday         price1         doc_curr
C1     S1     01.01.2007    300,00        INR
C1     S2     01.02.2007    400,00        CHF
C1     S3     03.01.2007    350,00        USD
C1     S4     15.04.2007    450,00        EUR
C2     S1     31.05.2007    600,00        INR
C2     S2     21.06.2007    250,00        CHF
C2     S3     01.01.2007    900,00        USD
C2     S4     01.02.2007    1.300,00      EUR
C3     S1     03.01.2007    1.250,00      INR
C3     S2     15.04.2007    500,00        CHF
C3     S3     31.05.2007    50,00         USD
C3     S4     21.06.2007    300,00        EUR
I am expecting my data in the cube to be as below:
cid  sid  0calday     price1 doc_curr   price2    loc_curr
C1  S2  01.02.2007 400,00   CHF      350,00    INR
(bcoz c1->INR)
C3  S1  03.01.2007 1.250,00 INR       25,00     USD
(bcoz c3->USD)
Based on cid the loc_curr value(amount & currency after conversion) should be displayed.
in the transformation i assigned
/BIC/zprice1 -> zprice1
DOC_CURRCY -> zprice1
/BIC/zprice1 -> zprice2
DOC_CURRCY -> zprice2
For zprice2 i selected rule details.
In IOassignment of source fields i assigned ZPRICE1
and 0DOC_CURRCY.
In currency tab of rule details now it is like :
Target Currency                 0LOC_CURRCY
Currency                           from source
Source Currency                DOC_CURRCY
Now in rule type i selected routine and inserted code shown below:
data: ZResult_Val type f,
CALMONTH type rsgeneral-chavl .
CALL FUNCTION 'RSW_CURRENCY_TRANSLATION'
  EXPORTING
    I_CTTNM                = 'ANYCALMON'
    I_AMOUNT              = SOURCE_FIELDS-/BIC/ZPRIC1
    I_SCUR                = SOURCE_FIELDS-DOC_CURRCY
    I_TCUR                = 'EUR'  --- (what should i give here for target currency should be taken based on cid)
    I_TIME_IOBJVL         = CALMONTH
  I_SCUR_IOBJVL         =
  I_TCUR_IOBJVL         =
  I_PERIV               =
    I_RATE                = 'M'
  I_VDATE               =
  IR_MSG                =
  I_MSG_TYPES           =
IMPORTING
    E_AMOUNT              = ZResult_Val
    E_RATE                = 'M'
    E_SCUR                = SOURCE_FIELDS-DOC_CURRCY
    E_TCUR                = 'EUR'
EXCEPTIONS
  SCUR_NOT_FOUND        = 1
  TCUR_NOT_FOUND        = 2
  DATE_NOT_FOUND        = 3
  CTT_NOT_FOUND         = 4
  SCUR_CONFLICT         = 5
  TCUR_CONFLICT         = 6
  DATE_CONFLICT         = 7
  INVALID_SCUR          = 8
  INVALID_TCUR          = 9
  RATE_NOT_FOUND        = 10
  X_MESSAGE             = 11
  INHERITED_ERROR       = 12
  OTHERS                = 13
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
RESULT = ZResult_Val.
I am new to ABAP coding; infact this is my first peace of code.
Can any one tell me some tips of writing code-
->how to see all the syntax error at a time ; By clicking on check(ctrl+F2) i could see only the first syntax error.
-> how to check what each perameter mean? like what does I_CTTNM in this function call 'RSW_CURRENCY_TRANSLATION'. mean?
please help.
Thanks,
Raghu

Answer 1

I have written a test program as below:
<code>
REPORT  ZCURRENCY.
data: tgtcurr type /BI0/OILOC_CURRCY,
      ZResult_Val type F.
select LOC_CURRCY into tgtcurr from /BIC/PZCONTRY1 where /BIC/ZCONTRY1 =
'C3'.
endselect.
CALL FUNCTION 'RSW_CURRENCY_TRANSLATION'
    EXPORTING
    I_CTTNM = 'TEJ5' --currency trans type defined in RSCUR
    I_AMOUNT = 10
    I_SCUR = 'INR'
    I_TCUR = tgtcurr
*I_TIME_IOBJVL = CALMONTH
    IMPORTING
    E_AMOUNT = ZResult_Val
    E_TCUR = tgtcurr.
    write: ZResult_Val
</code>
It is working fine
But the following code is not working for my scenario can some debug pls:
<code>
data: ZResult_Val type f,
ZSrc_val type f,
locvar type /BI0/OILOC_CURRCY.
Zsrc_val = SOURCE_FIELDS_RULE-/BIC/ZPRIC1.
select LOC_CURRCY into locvar from /BIC/PZCONTRY1 where /BIC/ZCONTRY1 =
SOURCE_FIELDS_RULE-/BIC/ZCONTRY1.
endselect.
CALL FUNCTION 'RSW_CURRENCY_TRANSLATION'
EXPORTING
I_CTTNM = 'TEJ5'
I_AMOUNT = 10
I_SCUR = 'INR'
I_TCUR = locvar
IMPORTING
E_AMOUNT = ZResult_Val
E_TCUR = locvar
RESULT = ZResult_Val.
</code>