Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
67
tasks_gen/train/G1104/reference/golf_fee.func.abap
Normal file
67
tasks_gen/train/G1104/reference/golf_fee.func.abap
Normal file
@@ -0,0 +1,67 @@
|
||||
FUNCTION {{p}}golf_fee
|
||||
IMPORTING
|
||||
iv_category TYPE string
|
||||
iv_holes TYPE i
|
||||
iv_players TYPE i
|
||||
iv_tee_hour TYPE i
|
||||
EXPORTING
|
||||
ev_fee TYPE decfloat34
|
||||
RAISING
|
||||
{{p}}cx_golf.
|
||||
|
||||
CONSTANTS: c_member TYPE decfloat34 VALUE '25.00',
|
||||
c_guest TYPE decfloat34 VALUE '62.50',
|
||||
c_junior TYPE decfloat34 VALUE '12.50'.
|
||||
|
||||
DATA lv_per_player TYPE decfloat34.
|
||||
|
||||
IF iv_players < 1 OR iv_players > 4.
|
||||
RAISE EXCEPTION TYPE {{p}}cx_golf
|
||||
EXPORTING
|
||||
iv_reason = 'INVALID_PLAYERS'
|
||||
iv_message = 'Number of players must be between 1 and 4'.
|
||||
ENDIF.
|
||||
|
||||
IF iv_holes <> 9 AND iv_holes <> 18.
|
||||
RAISE EXCEPTION TYPE {{p}}cx_golf
|
||||
EXPORTING
|
||||
iv_reason = 'INVALID_HOLES'
|
||||
iv_message = 'Number of holes must be 9 or 18'.
|
||||
ENDIF.
|
||||
|
||||
CASE iv_category.
|
||||
WHEN 'M'.
|
||||
lv_per_player = c_member.
|
||||
WHEN 'G'.
|
||||
lv_per_player = c_guest.
|
||||
WHEN 'J'.
|
||||
lv_per_player = c_junior.
|
||||
WHEN OTHERS.
|
||||
RAISE EXCEPTION TYPE {{p}}cx_golf
|
||||
EXPORTING
|
||||
iv_reason = 'INVALID_CATEGORY'
|
||||
iv_message = 'Player category must be M, G or J'.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_tee_hour < 6 OR iv_tee_hour > 20.
|
||||
RAISE EXCEPTION TYPE {{p}}cx_golf
|
||||
EXPORTING
|
||||
iv_reason = 'INVALID_TEE_HOUR'
|
||||
iv_message = 'Tee hour must be between 6 and 20'.
|
||||
ENDIF.
|
||||
|
||||
IF iv_holes = 9.
|
||||
lv_per_player = lv_per_player / 2.
|
||||
ENDIF.
|
||||
|
||||
IF iv_tee_hour >= 18.
|
||||
lv_per_player = round( val = lv_per_player * 75 / 100 dec = 2 mode = cl_abap_math=>round_half_up ).
|
||||
ENDIF.
|
||||
|
||||
ev_fee = lv_per_player * iv_players.
|
||||
|
||||
IF iv_players = 4.
|
||||
ev_fee = round( val = ev_fee * 90 / 100 dec = 2 mode = cl_abap_math=>round_half_up ).
|
||||
ENDIF.
|
||||
|
||||
ENDFUNCTION.
|
||||
Reference in New Issue
Block a user