ExchangeRate USD to AED

static void TIDF_ExchangeRate(Args _args)
{

    ExchangeRate     exchangeRate;
    ExchangeRateType ExchangeRateType;
    ExchangeRateCurrencyPair exchangeRateCurrencyPair;
    Amount4decimal             exchRate;

    CurrencyCode fromCurrency  = "USD";
    CurrencyCode toCurrency    = "AED";
    TransDate    transDate     = today();


    select firstonly exchangeRateCurrencyPair
    where
        exchangeRateCurrencyPair.ExchangeRateType == 5637145326
    &&  exchangeRateCurrencyPair.FromCurrencyCode == fromCurrency
    &&  exchangeRateCurrencyPair.ToCurrencyCode   == toCurrency;
    exchRate = exchangeRate::findByDate(exchangeRateCurrencyPair.RecId,transDate).ExchangeRate;
    info(strFmt("%1",exchRate/100));

}