Exchange Rate: Routine to copy the "Exchange Rate" value From TCURR table

Question

Dear experts,
I have created a cutomised Key Figure (ZEXCHRATE) with the 0currency as the unit and this field is included in my ZCOPA_C21 Infocube.
In the update rule, it was then appointed with a simple routine below;
(PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: TCURR.
DATA: IT_TCURT Type TCURR occurs 0 with header line.
$$ end of global - insert your declaration only before this line   -
FORM compute_data_field
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
  USING    COMM_STRUCTURE LIKE /BIC/CSZCOPA_TPL_IS
           RECORD_NO LIKE SY-TABIX
           RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING RESULT LIKE /BIC/VZCOPA_C21T-/BIC/ZEXCHRATE
           RETURNCODE LIKE SY-SUBRC
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal table "MONITOR", to make monitor entries
  SELECT        * FROM  TCURR appending corresponding fields of table
  IT_TCURT
         WHERE  KURST  = 'M'
         AND    FCURR  = 'USD'
         AND    TCURR  = 'IDR'.
      AND    GDATU  = ___.
      AND    UKURS  = ___.
  Sort IT_TCURT by GDATU descending.
  Loop at IT_TCURT.
    Move IT_TCURT-UKURS to RESULT.
    Exit.
  Endloop.
result value of the routine
RESULT = space.
if the returncode is not equal zero, the result will not be updated
  RETURNCODE = 0.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine)
Which will basically copy all the contents of TCURR into an internal table (IT_TCURT), sort it and then only copy out the UKURS (Exchange rate) data into the customised ZEXCHRATE to get the latest exchange rate value.
Routine was checked and its fine.
The problem is, upon checking the update rule, it returned an error message;
"No Unit maintain for Key Figure Exchange Rate Local".
Double checked the declaration of ZEXCHRATE, the unit was there.
My questions;
1. Is this the correct way of doing it ? I just want to be able to show the exchange rate value in my query (hence the existence of ZEXCHRATE).
2. Is there an alternative way of achieving the same result ?
Your help or advice will be greatly appreciated.
Thanks
KG

Answer 1

Hi Sreeni,
Referring to the " but the conversion from VEF to USD is happening at a rate @0.23256 which is valid till 02/13/2013 only" part in your post, the date given in OB08 for currency rate is valid from and not valid till.  Hence, please check the setting once.  Once you enter the rate from 02/13/2013, the rate is valid till you enter another date later than 02/13/2013.
Regards,