abap-llm/tasks_gen/eval/G0144/reference/ski_rental_old.func.abap

FUNCTION {{p}}ski_rental_old
  IMPORTING
    iv_equipment TYPE string
    iv_days TYPE i
    iv_customer TYPE string
    iv_insurance TYPE abap_bool
  EXPORTING
    ev_price TYPE decfloat34
    ev_deposit TYPE decfloat34
  EXCEPTIONS
    invalid_equipment
    invalid_days
    invalid_customer.

  CLASS lcx_invalid_equipment DEFINITION INHERITING FROM cx_static_check.
  ENDCLASS.
  CLASS lcx_invalid_equipment IMPLEMENTATION.
  ENDCLASS.

  CLASS lcx_invalid_days DEFINITION INHERITING FROM cx_static_check.
  ENDCLASS.
  CLASS lcx_invalid_days IMPLEMENTATION.
  ENDCLASS.

  CLASS lcx_invalid_customer DEFINITION INHERITING FROM cx_static_check.
  ENDCLASS.
  CLASS lcx_invalid_customer IMPLEMENTATION.
  ENDCLASS.

  CLASS lcl_ski_pricer DEFINITION.
    PUBLIC SECTION.
      TYPES: BEGIN OF ty_result,
               price TYPE decfloat34,
               deposit TYPE decfloat34,
             END OF ty_result.
      CLASS-METHODS calculate
        IMPORTING iv_equipment TYPE string
                  iv_days TYPE i
                  iv_customer TYPE string
                  iv_insurance TYPE abap_bool
        RETURNING VALUE(rs_result) TYPE ty_result
        RAISING lcx_invalid_equipment lcx_invalid_days lcx_invalid_customer.
    PRIVATE SECTION.
      CLASS-METHODS get_daily_rate
        IMPORTING iv_equipment TYPE string
        RETURNING VALUE(rv_rate) TYPE decfloat34
        RAISING lcx_invalid_equipment.
      CLASS-METHODS get_deposit
        IMPORTING iv_equipment TYPE string
        RETURNING VALUE(rv_deposit) TYPE decfloat34
        RAISING lcx_invalid_equipment.
      CLASS-METHODS get_customer_discount
        IMPORTING iv_customer TYPE string
        RETURNING VALUE(rv_discount) TYPE decfloat34
        RAISING lcx_invalid_customer.
      CLASS-METHODS get_duration_discount
        IMPORTING iv_days TYPE i
        RETURNING VALUE(rv_discount) TYPE decfloat34.
  ENDCLASS.

  CLASS lcl_ski_pricer IMPLEMENTATION.
    METHOD calculate.
      CONSTANTS: c_insurance_per_day TYPE decfloat34 VALUE 5,
                 c_insurance_deposit TYPE decfloat34 VALUE 50.
      IF iv_days < 1.
        RAISE EXCEPTION TYPE lcx_invalid_days.
      ENDIF.
      DATA(lv_daily_rate) = get_daily_rate( iv_equipment ).
      DATA(lv_customer_disc) = get_customer_discount( iv_customer ).
      DATA(lv_total) = lv_daily_rate * iv_days.
      lv_total = lv_total - lv_total * lv_customer_disc / 100.
      DATA(lv_duration_disc) = get_duration_discount( iv_days ).
      lv_total = lv_total - lv_total * lv_duration_disc / 100.
      IF iv_insurance = abap_true.
        lv_total = lv_total + c_insurance_per_day * iv_days.
      ENDIF.
      rs_result-price = round( val = lv_total dec = 2 mode = cl_abap_math=>round_half_up ).
      rs_result-deposit = get_deposit( iv_equipment ).
      IF iv_insurance = abap_true.
        rs_result-deposit = rs_result-deposit + c_insurance_deposit.
      ENDIF.
    ENDMETHOD.

    METHOD get_daily_rate.
      CONSTANTS: c_ski_rate TYPE decfloat34 VALUE 25,
                 c_snowboard_rate TYPE decfloat34 VALUE 30,
                 c_boots_rate TYPE decfloat34 VALUE 10,
                 c_helmet_rate TYPE decfloat34 VALUE 5.
      CASE iv_equipment.
        WHEN 'SKI'.
          rv_rate = c_ski_rate.
        WHEN 'SNOWBOARD'.
          rv_rate = c_snowboard_rate.
        WHEN 'BOOTS'.
          rv_rate = c_boots_rate.
        WHEN 'HELMET'.
          rv_rate = c_helmet_rate.
        WHEN OTHERS.
          RAISE EXCEPTION TYPE lcx_invalid_equipment.
      ENDCASE.
    ENDMETHOD.

    METHOD get_deposit.
      CONSTANTS: c_ski_deposit TYPE decfloat34 VALUE 100,
                 c_snowboard_deposit TYPE decfloat34 VALUE 120,
                 c_boots_deposit TYPE decfloat34 VALUE 20,
                 c_helmet_deposit TYPE decfloat34 VALUE 10.
      CASE iv_equipment.
        WHEN 'SKI'.
          rv_deposit = c_ski_deposit.
        WHEN 'SNOWBOARD'.
          rv_deposit = c_snowboard_deposit.
        WHEN 'BOOTS'.
          rv_deposit = c_boots_deposit.
        WHEN 'HELMET'.
          rv_deposit = c_helmet_deposit.
        WHEN OTHERS.
          RAISE EXCEPTION TYPE lcx_invalid_equipment.
      ENDCASE.
    ENDMETHOD.

    METHOD get_customer_discount.
      CONSTANTS: c_child_discount TYPE decfloat34 VALUE 50,
                 c_senior_discount TYPE decfloat34 VALUE 20.
      CASE iv_customer.
        WHEN 'ADULT'.
          rv_discount = 0.
        WHEN 'CHILD'.
          rv_discount = c_child_discount.
        WHEN 'SENIOR'.
          rv_discount = c_senior_discount.
        WHEN OTHERS.
          RAISE EXCEPTION TYPE lcx_invalid_customer.
      ENDCASE.
    ENDMETHOD.

    METHOD get_duration_discount.
      CONSTANTS: c_disc_7 TYPE decfloat34 VALUE 10,
                 c_disc_3 TYPE decfloat34 VALUE 5.
      IF iv_days >= 7.
        rv_discount = c_disc_7.
      ELSEIF iv_days >= 3.
        rv_discount = c_disc_3.
      ELSE.
        rv_discount = 0.
      ENDIF.
    ENDMETHOD.
  ENDCLASS.

  TRY.
      DATA(ls_result) = lcl_ski_pricer=>calculate(
        iv_equipment = iv_equipment
        iv_days = iv_days
        iv_customer = iv_customer
        iv_insurance = iv_insurance ).
      ev_price = ls_result-price.
      ev_deposit = ls_result-deposit.
    CATCH lcx_invalid_equipment.
      RAISE invalid_equipment.
    CATCH lcx_invalid_days.
      RAISE invalid_days.
    CATCH lcx_invalid_customer.
      RAISE invalid_customer.
  ENDTRY.

ENDFUNCTION.