FUNCTION {{p}}bowl_fee_old
  IMPORTING
    iv_players TYPE i
    iv_games   TYPE i
    iv_day     TYPE i
    iv_shoes   TYPE abap_bool
  EXPORTING
    ev_fee     TYPE decfloat34
    ev_note    TYPE string
  EXCEPTIONS
    invalid_input.

  DATA: lv_lanes TYPE i,
        lv_rate  TYPE p LENGTH 8 DECIMALS 2,
        lv_sum   TYPE p LENGTH 15 DECIMALS 2.

  IF iv_players < 1.
    RAISE invalid_input.
  ENDIF.
  IF iv_games < 1.
    RAISE invalid_input.
  ENDIF.

  COMPUTE lv_lanes = iv_players DIV 6.
  IF iv_players MOD 6 > 0.
    ADD 1 TO lv_lanes.
  ENDIF.

  IF iv_day > 5.
    MOVE '5.00' TO lv_rate.
  ELSE.
    MOVE '3.50' TO lv_rate.
  ENDIF.

  COMPUTE lv_sum = lv_lanes * iv_games * lv_rate.

  IF iv_shoes = 'X'.
    COMPUTE lv_sum = lv_sum + iv_players * '2.00'.
  ENDIF.

  ev_note = 'BOOKED'.

  IF iv_players >= 12.
    COMPUTE lv_sum = lv_sum - '10.00'.
    ev_note = 'GROUP'.
  ENDIF.

  ev_fee = lv_sum.

ENDFUNCTION.