erhan/abap-llm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pipeline controller: plan 2 (hard +, error +50 %), backlog throttle, 2 trajectory workers, stop rules, summaries every 50; budget reserve

Browse Source 
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 13:35:54 +02:00
parent 1c4667a0fc
commit 13360292dd
781 changed files with 50211 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

133
tasks_gen/train/G1015/faulty/m0_towing_fee.clas.abap Normal file
View File

@@ -0,0 +1,133 @@
CLASS {{p}}towing_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_status TYPE c LENGTH 8.
TYPES ty_amount TYPE i.
TYPES ty_class TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_result,
status TYPE ty_status,
fee TYPE ty_amount,
END OF ty_result.
CONSTANTS:
BEGIN OF c_status,
ok TYPE ty_status VALUE 'OK',
bad_class TYPE ty_status VALUE 'CLASS',
bad_distance TYPE ty_status VALUE 'DISTANCE',
bad_hour TYPE ty_status VALUE 'HOUR',
END OF c_status.
METHODS calculate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
iv_is_weekend TYPE abap_bool
RETURNING VALUE(rs_result) TYPE ty_result.
PRIVATE SECTION.
CONSTANTS:
c_base_small TYPE ty_amount VALUE 60,
c_base_medium TYPE ty_amount VALUE 90,
c_base_large TYPE ty_amount VALUE 140,
c_free_km TYPE i VALUE 10,
c_km_rate TYPE ty_amount VALUE 2,
c_night_percent TYPE i VALUE 25,
c_weekend_percent TYPE i VALUE 15,
c_minimum_fee TYPE ty_amount VALUE 80,
c_round_step TYPE ty_amount VALUE 5,
c_max_distance TYPE i VALUE 500.
METHODS validate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
RETURNING VALUE(rv_status) TYPE ty_status.
METHODS base_fee
IMPORTING iv_vehicle_class TYPE ty_class
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS distance_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS is_night
IMPORTING iv_hour TYPE i
RETURNING VALUE(rv_night) TYPE abap_bool.
METHODS surcharge
IMPORTING iv_subtotal TYPE ty_amount
iv_percent TYPE i
RETURNING VALUE(rv_surcharge) TYPE ty_amount.
METHODS round_up
IMPORTING iv_amount TYPE ty_amount
RETURNING VALUE(rv_amount) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}towing_fee IMPLEMENTATION.
METHOD calculate.
DATA(lv_status) = validate( iv_vehicle_class = iv_vehicle_class
iv_distance_km = iv_distance_km
iv_hour = iv_hour ).
IF lv_status <> c_status-ok.
rs_result = VALUE #( status = lv_status fee = 0 ).
RETURN.
ENDIF.
DATA(lv_subtotal) = base_fee( iv_vehicle_class ) + distance_fee( iv_distance_km ).
DATA(lv_total) = lv_subtotal.
IF is_night( iv_hour ) = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_night_percent ).
ENDIF.
IF iv_is_weekend <> abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_weekend_percent ).
ENDIF.
IF lv_total < c_minimum_fee.
lv_total = c_minimum_fee.
ENDIF.
rs_result = VALUE #( status = c_status-ok
fee = round_up( lv_total ) ).
ENDMETHOD.
METHOD validate.
IF iv_vehicle_class <> 'S' AND iv_vehicle_class <> 'M' AND iv_vehicle_class <> 'L'.
rv_status = c_status-bad_class.
ELSEIF iv_distance_km < 1 OR iv_distance_km > c_max_distance.
rv_status = c_status-bad_distance.
ELSEIF iv_hour < 0 OR iv_hour > 23.
rv_status = c_status-bad_hour.
ELSE.
rv_status = c_status-ok.
ENDIF.
ENDMETHOD.
METHOD base_fee.
CASE iv_vehicle_class.
WHEN 'S'.
rv_fee = c_base_small.
WHEN 'M'.
rv_fee = c_base_medium.
WHEN 'L'.
rv_fee = c_base_large.
ENDCASE.
ENDMETHOD.
METHOD distance_fee.
DATA(lv_chargeable_km) = iv_distance_km - c_free_km.
IF lv_chargeable_km < 0.
lv_chargeable_km = 0.
ENDIF.
rv_fee = lv_chargeable_km * c_km_rate.
ENDMETHOD.
METHOD is_night.
rv_night = xsdbool( iv_hour >= 22 OR iv_hour <= 5 ).
ENDMETHOD.
METHOD surcharge.
rv_surcharge = iv_subtotal * iv_percent DIV 100.
ENDMETHOD.
METHOD round_up.
rv_amount = ( ( iv_amount + c_round_step - 1 ) DIV c_round_step ) * c_round_step.
ENDMETHOD.
ENDCLASS.

133
tasks_gen/train/G1015/faulty/m1_towing_fee.clas.abap Normal file
View File

@@ -0,0 +1,133 @@
CLASS {{p}}towing_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_status TYPE c LENGTH 8.
TYPES ty_amount TYPE i.
TYPES ty_class TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_result,
status TYPE ty_status,
fee TYPE ty_amount,
END OF ty_result.
CONSTANTS:
BEGIN OF c_status,
ok TYPE ty_status VALUE 'OK',
bad_class TYPE ty_status VALUE 'CLASS',
bad_distance TYPE ty_status VALUE 'DISTANCE',
bad_hour TYPE ty_status VALUE 'HOUR',
END OF c_status.
METHODS calculate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
iv_is_weekend TYPE abap_bool
RETURNING VALUE(rs_result) TYPE ty_result.
PRIVATE SECTION.
CONSTANTS:
c_base_small TYPE ty_amount VALUE 60,
c_base_medium TYPE ty_amount VALUE 90,
c_base_large TYPE ty_amount VALUE 140,
c_free_km TYPE i VALUE 10,
c_km_rate TYPE ty_amount VALUE 2,
c_night_percent TYPE i VALUE 25,
c_weekend_percent TYPE i VALUE 15,
c_minimum_fee TYPE ty_amount VALUE 80,
c_round_step TYPE ty_amount VALUE 5,
c_max_distance TYPE i VALUE 500.
METHODS validate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
RETURNING VALUE(rv_status) TYPE ty_status.
METHODS base_fee
IMPORTING iv_vehicle_class TYPE ty_class
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS distance_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS is_night
IMPORTING iv_hour TYPE i
RETURNING VALUE(rv_night) TYPE abap_bool.
METHODS surcharge
IMPORTING iv_subtotal TYPE ty_amount
iv_percent TYPE i
RETURNING VALUE(rv_surcharge) TYPE ty_amount.
METHODS round_up
IMPORTING iv_amount TYPE ty_amount
RETURNING VALUE(rv_amount) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}towing_fee IMPLEMENTATION.
METHOD calculate.
DATA(lv_status) = validate( iv_vehicle_class = iv_vehicle_class
iv_distance_km = iv_distance_km
iv_hour = iv_hour ).
IF lv_status <> c_status-ok.
rs_result = VALUE #( status = lv_status fee = 0 ).
RETURN.
ENDIF.
DATA(lv_subtotal) = base_fee( iv_vehicle_class ) + distance_fee( iv_distance_km ).
DATA(lv_total) = lv_subtotal.
IF is_night( iv_hour ) = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_night_percent ).
ENDIF.
IF iv_is_weekend = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_weekend_percent ).
ENDIF.
IF lv_total < c_minimum_fee.
lv_total = c_minimum_fee.
ENDIF.
rs_result = VALUE #( status = c_status-ok
fee = round_up( lv_total ) ).
ENDMETHOD.
METHOD validate.
IF iv_vehicle_class <> 'S' AND iv_vehicle_class = 'M' AND iv_vehicle_class <> 'L'.
rv_status = c_status-bad_class.
ELSEIF iv_distance_km < 1 OR iv_distance_km > c_max_distance.
rv_status = c_status-bad_distance.
ELSEIF iv_hour < 0 OR iv_hour > 23.
rv_status = c_status-bad_hour.
ELSE.
rv_status = c_status-ok.
ENDIF.
ENDMETHOD.
METHOD base_fee.
CASE iv_vehicle_class.
WHEN 'S'.
rv_fee = c_base_small.
WHEN 'M'.
rv_fee = c_base_medium.
WHEN 'L'.
rv_fee = c_base_large.
ENDCASE.
ENDMETHOD.
METHOD distance_fee.
DATA(lv_chargeable_km) = iv_distance_km - c_free_km.
IF lv_chargeable_km < 0.
lv_chargeable_km = 0.
ENDIF.
rv_fee = lv_chargeable_km * c_km_rate.
ENDMETHOD.
METHOD is_night.
rv_night = xsdbool( iv_hour >= 22 OR iv_hour <= 5 ).
ENDMETHOD.
METHOD surcharge.
rv_surcharge = iv_subtotal * iv_percent DIV 100.
ENDMETHOD.
METHOD round_up.
rv_amount = ( ( iv_amount + c_round_step - 1 ) DIV c_round_step ) * c_round_step.
ENDMETHOD.
ENDCLASS.

133
tasks_gen/train/G1015/faulty/m2_towing_fee.clas.abap Normal file
View File

@@ -0,0 +1,133 @@
CLASS {{p}}towing_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_status TYPE c LENGTH 8.
TYPES ty_amount TYPE i.
TYPES ty_class TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_result,
status TYPE ty_status,
fee TYPE ty_amount,
END OF ty_result.
CONSTANTS:
BEGIN OF c_status,
ok TYPE ty_status VALUE 'OK',
bad_class TYPE ty_status VALUE 'CLASS',
bad_distance TYPE ty_status VALUE 'DISTANCE',
bad_hour TYPE ty_status VALUE 'HOUR',
END OF c_status.
METHODS calculate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
iv_is_weekend TYPE abap_bool
RETURNING VALUE(rs_result) TYPE ty_result.
PRIVATE SECTION.
CONSTANTS:
c_base_small TYPE ty_amount VALUE 60,
c_base_medium TYPE ty_amount VALUE 90,
c_base_large TYPE ty_amount VALUE 140,
c_free_km TYPE i VALUE 10,
c_km_rate TYPE ty_amount VALUE 2,
c_night_percent TYPE i VALUE 25,
c_weekend_percent TYPE i VALUE 15,
c_minimum_fee TYPE ty_amount VALUE 80,
c_round_step TYPE ty_amount VALUE 5,
c_max_distance TYPE i VALUE 500.
METHODS validate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
RETURNING VALUE(rv_status) TYPE ty_status.
METHODS base_fee
IMPORTING iv_vehicle_class TYPE ty_class
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS distance_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS is_night
IMPORTING iv_hour TYPE i
RETURNING VALUE(rv_night) TYPE abap_bool.
METHODS surcharge
IMPORTING iv_subtotal TYPE ty_amount
iv_percent TYPE i
RETURNING VALUE(rv_surcharge) TYPE ty_amount.
METHODS round_up
IMPORTING iv_amount TYPE ty_amount
RETURNING VALUE(rv_amount) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}towing_fee IMPLEMENTATION.
METHOD calculate.
DATA(lv_status) = validate( iv_vehicle_class = iv_vehicle_class
iv_distance_km = iv_distance_km
iv_hour = iv_hour ).
IF lv_status <> c_status-ok.
rs_result = VALUE #( status = lv_status fee = 0 ).
RETURN.
ENDIF.
DATA(lv_subtotal) = base_fee( iv_vehicle_class ) + distance_fee( iv_distance_km ).
DATA(lv_total) = lv_subtotal.
IF is_night( iv_hour ) = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_night_percent ).
ENDIF.
IF iv_is_weekend = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_weekend_percent ).
ENDIF.
IF lv_total < c_minimum_fee.
lv_total = c_minimum_fee.
ENDIF.
rs_result = VALUE #( status = c_status-ok
fee = round_up( lv_total ) ).
ENDMETHOD.
METHOD validate.
IF iv_vehicle_class <> 'S' AND iv_vehicle_class <> 'M' AND iv_vehicle_class <> 'L'.
rv_status = c_status-bad_class.
ELSEIF iv_distance_km < 1 OR iv_distance_km > c_max_distance.
rv_status = c_status-bad_distance.
ELSEIF iv_hour < 0 AND iv_hour > 23.
rv_status = c_status-bad_hour.
ELSE.
rv_status = c_status-ok.
ENDIF.
ENDMETHOD.
METHOD base_fee.
CASE iv_vehicle_class.
WHEN 'S'.
rv_fee = c_base_small.
WHEN 'M'.
rv_fee = c_base_medium.
WHEN 'L'.
rv_fee = c_base_large.
ENDCASE.
ENDMETHOD.
METHOD distance_fee.
DATA(lv_chargeable_km) = iv_distance_km - c_free_km.
IF lv_chargeable_km < 0.
lv_chargeable_km = 0.
ENDIF.
rv_fee = lv_chargeable_km * c_km_rate.
ENDMETHOD.
METHOD is_night.
rv_night = xsdbool( iv_hour >= 22 OR iv_hour <= 5 ).
ENDMETHOD.
METHOD surcharge.
rv_surcharge = iv_subtotal * iv_percent DIV 100.
ENDMETHOD.
METHOD round_up.
rv_amount = ( ( iv_amount + c_round_step - 1 ) DIV c_round_step ) * c_round_step.
ENDMETHOD.
ENDCLASS.

133
tasks_gen/train/G1015/faulty/m3_towing_fee.clas.abap Normal file
View File

@@ -0,0 +1,133 @@
CLASS {{p}}towing_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_status TYPE c LENGTH 8.
TYPES ty_amount TYPE i.
TYPES ty_class TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_result,
status TYPE ty_status,
fee TYPE ty_amount,
END OF ty_result.
CONSTANTS:
BEGIN OF c_status,
ok TYPE ty_status VALUE 'OK',
bad_class TYPE ty_status VALUE 'CLASS',
bad_distance TYPE ty_status VALUE 'DISTANCE',
bad_hour TYPE ty_status VALUE 'HOUR',
END OF c_status.
METHODS calculate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
iv_is_weekend TYPE abap_bool
RETURNING VALUE(rs_result) TYPE ty_result.
PRIVATE SECTION.
CONSTANTS:
c_base_small TYPE ty_amount VALUE 60,
c_base_medium TYPE ty_amount VALUE 90,
c_base_large TYPE ty_amount VALUE 140,
c_free_km TYPE i VALUE 10,
c_km_rate TYPE ty_amount VALUE 2,
c_night_percent TYPE i VALUE 25,
c_weekend_percent TYPE i VALUE 15,
c_minimum_fee TYPE ty_amount VALUE 80,
c_round_step TYPE ty_amount VALUE 5,
c_max_distance TYPE i VALUE 500.
METHODS validate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
RETURNING VALUE(rv_status) TYPE ty_status.
METHODS base_fee
IMPORTING iv_vehicle_class TYPE ty_class
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS distance_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS is_night
IMPORTING iv_hour TYPE i
RETURNING VALUE(rv_night) TYPE abap_bool.
METHODS surcharge
IMPORTING iv_subtotal TYPE ty_amount
iv_percent TYPE i
RETURNING VALUE(rv_surcharge) TYPE ty_amount.
METHODS round_up
IMPORTING iv_amount TYPE ty_amount
RETURNING VALUE(rv_amount) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}towing_fee IMPLEMENTATION.
METHOD calculate.
DATA(lv_status) = validate( iv_vehicle_class = iv_vehicle_class
iv_distance_km = iv_distance_km
iv_hour = iv_hour ).
IF lv_status <> c_status-ok.
rs_result = VALUE #( status = lv_status fee = 0 ).
RETURN.
ENDIF.
DATA(lv_subtotal) = base_fee( iv_vehicle_class ) + distance_fee( iv_distance_km ).
DATA(lv_total) = lv_subtotal.
IF is_night( iv_hour ) = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_night_percent ).
ENDIF.
IF iv_is_weekend = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_weekend_percent ).
ENDIF.
IF lv_total < c_minimum_fee.
lv_total = c_minimum_fee.
ENDIF.
rs_result = VALUE #( status = c_status-ok
fee = round_up( lv_total ) ).
ENDMETHOD.
METHOD validate.
IF iv_vehicle_class <> 'S' AND iv_vehicle_class <> 'M' AND iv_vehicle_class <> 'L'.
rv_status = c_status-bad_class.
ELSEIF iv_distance_km < 1 OR iv_distance_km > c_max_distance.
rv_status = c_status-bad_distance.
ELSEIF iv_hour < 0 OR iv_hour > 23.
rv_status = c_status-bad_hour.
ELSE.
rv_status = c_status-ok.
ENDIF.
ENDMETHOD.
METHOD base_fee.
CASE iv_vehicle_class.
WHEN 'S'.
rv_fee = c_base_small.
WHEN 'M'.
rv_fee = c_base_medium.
WHEN 'L'.
rv_fee = c_base_large.
ENDCASE.
ENDMETHOD.
METHOD distance_fee.
DATA(lv_chargeable_km) = iv_distance_km - c_free_km.
IF lv_chargeable_km < 0.
lv_chargeable_km = 0.
ENDIF.
rv_fee = lv_chargeable_km * c_km_rate.
ENDMETHOD.
METHOD is_night.
rv_night = xsdbool( iv_hour >= 23 OR iv_hour <= 5 ).
ENDMETHOD.
METHOD surcharge.
rv_surcharge = iv_subtotal * iv_percent DIV 100.
ENDMETHOD.
METHOD round_up.
rv_amount = ( ( iv_amount + c_round_step - 1 ) DIV c_round_step ) * c_round_step.
ENDMETHOD.
ENDCLASS.

133
tasks_gen/train/G1015/faulty/m4_towing_fee.clas.abap Normal file
View File

@@ -0,0 +1,133 @@
CLASS {{p}}towing_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_status TYPE c LENGTH 8.
TYPES ty_amount TYPE i.
TYPES ty_class TYPE c LENGTH 1.
TYPES:
BEGIN OF ty_result,
status TYPE ty_status,
fee TYPE ty_amount,
END OF ty_result.
CONSTANTS:
BEGIN OF c_status,
ok TYPE ty_status VALUE 'OK',
bad_class TYPE ty_status VALUE 'CLASS',
bad_distance TYPE ty_status VALUE 'DISTANCE',
bad_hour TYPE ty_status VALUE 'HOUR',
END OF c_status.
METHODS calculate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
iv_is_weekend TYPE abap_bool
RETURNING VALUE(rs_result) TYPE ty_result.
PRIVATE SECTION.
CONSTANTS:
c_base_small TYPE ty_amount VALUE 60,
c_base_medium TYPE ty_amount VALUE 90,
c_base_large TYPE ty_amount VALUE 140,
c_free_km TYPE i VALUE 10,
c_km_rate TYPE ty_amount VALUE 2,
c_night_percent TYPE i VALUE 25,
c_weekend_percent TYPE i VALUE 15,
c_minimum_fee TYPE ty_amount VALUE 80,
c_round_step TYPE ty_amount VALUE 5,
c_max_distance TYPE i VALUE 500.
METHODS validate
IMPORTING iv_vehicle_class TYPE ty_class
iv_distance_km TYPE i
iv_hour TYPE i
RETURNING VALUE(rv_status) TYPE ty_status.
METHODS base_fee
IMPORTING iv_vehicle_class TYPE ty_class
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS distance_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS is_night
IMPORTING iv_hour TYPE i
RETURNING VALUE(rv_night) TYPE abap_bool.
METHODS surcharge
IMPORTING iv_subtotal TYPE ty_amount
iv_percent TYPE i
RETURNING VALUE(rv_surcharge) TYPE ty_amount.
METHODS round_up
IMPORTING iv_amount TYPE ty_amount
RETURNING VALUE(rv_amount) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}towing_fee IMPLEMENTATION.
METHOD calculate.
DATA(lv_status) = validate( iv_vehicle_class = iv_vehicle_class
iv_distance_km = iv_distance_km
iv_hour = iv_hour ).
IF lv_status <> c_status-ok.
rs_result = VALUE #( status = lv_status fee = 0 ).
RETURN.
ENDIF.
DATA(lv_subtotal) = base_fee( iv_vehicle_class ) + distance_fee( iv_distance_km ).
DATA(lv_total) = lv_subtotal.
IF is_night( iv_hour ) = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_night_percent ).
ENDIF.
IF iv_is_weekend = abap_true.
lv_total = lv_total + surcharge( iv_subtotal = lv_subtotal
iv_percent = c_weekend_percent ).
ENDIF.
IF lv_total < c_minimum_fee.
lv_total = c_minimum_fee.
ENDIF.
rs_result = VALUE #( status = c_status-ok
fee = round_up( lv_total ) ).
ENDMETHOD.
METHOD validate.
IF iv_vehicle_class <> 'S' AND iv_vehicle_class <> 'M' AND iv_vehicle_class <> 'L'.
rv_status = c_status-bad_class.
ELSEIF iv_distance_km < 1 OR iv_distance_km > c_max_distance.
rv_status = c_status-bad_distance.
ELSEIF iv_hour < 0 OR iv_hour > 23.
rv_status = c_status-bad_hour.
ELSE.
rv_status = c_status-ok.
ENDIF.
ENDMETHOD.
METHOD base_fee.
CASE iv_vehicle_class.
WHEN 'S'.
rv_fee = c_base_small.
WHEN 'M'.
rv_fee = c_base_medium.
WHEN 'L'.
rv_fee = c_base_large.
ENDCASE.
ENDMETHOD.
METHOD distance_fee.
DATA(lv_chargeable_km) = iv_distance_km - c_free_km.
IF lv_chargeable_km < 0.
lv_chargeable_km = 0.
ENDIF.
rv_fee = lv_chargeable_km * c_km_rate.
ENDMETHOD.
METHOD is_night.
rv_night = xsdbool( iv_hour >= 22 OR iv_hour <= 5 ).
ENDMETHOD.
METHOD surcharge.
rv_surcharge = iv_subtotal * iv_percent DIV 100.
ENDMETHOD.
METHOD round_up.
rv_amount = ( ( iv_amount + c_round_step + 1 ) DIV c_round_step ) * c_round_step.
ENDMETHOD.
ENDCLASS.