FUNCTION {{p}}mkt_stall_fee
  IMPORTING
    iv_stall_size TYPE string
    iv_days       TYPE i
    iv_power      TYPE abap_bool
  EXPORTING
    ev_fee        TYPE decfloat34
  EXCEPTIONS
    invalid_days
    invalid_size.

  CONSTANTS c_small   TYPE decfloat34 VALUE '12.00'.
  CONSTANTS c_medium  TYPE decfloat34 VALUE '20.00'.
  CONSTANTS c_large   TYPE decfloat34 VALUE '35.00'.
  CONSTANTS c_power   TYPE decfloat34 VALUE '2.50'.
  CONSTANTS c_rebate  TYPE decfloat34 VALUE '15'.
  CONSTANTS c_hundred TYPE decfloat34 VALUE '100'.

  DATA lv_daily_fee TYPE decfloat34.
  DATA lv_total_fee TYPE decfloat34.
  DATA lv_reduction TYPE decfloat34.

  ev_fee = 0.

  IF iv_days < 1.
    RAISE invalid_days.
  ENDIF.

  CASE iv_stall_size.
    WHEN 'S'.
      lv_daily_fee = c_small.
    WHEN 'M'.
      lv_daily_fee = c_medium.
    WHEN 'L'.
      lv_daily_fee = c_large.
    WHEN OTHERS.
      RAISE invalid_size.
  ENDCASE.

  IF iv_power <> abap_true.
    lv_daily_fee = lv_daily_fee + c_power.
  ENDIF.

  lv_total_fee = lv_daily_fee * iv_days.

  IF iv_days >= 5.
    lv_reduction = round( val = lv_total_fee * c_rebate / c_hundred dec = 2 ).
    ev_fee = lv_total_fee - lv_reduction.
  ELSE.
    ev_fee = lv_total_fee.
  ENDIF.

ENDFUNCTION.