Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
245
tasks_gen/train/G1133/reference/taxi_day.prog.abap
Normal file
245
tasks_gen/train/G1133/reference/taxi_day.prog.abap
Normal file
@@ -0,0 +1,245 @@
|
||||
REPORT {{p}}taxi_day.
|
||||
|
||||
DATA gv_base TYPE {{p}}driver-base_code.
|
||||
|
||||
PARAMETERS p_from TYPE d OBLIGATORY.
|
||||
PARAMETERS p_to TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_base FOR gv_base.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES ty_amount TYPE p LENGTH 8 DECIMALS 2.
|
||||
TYPES:
|
||||
BEGIN OF ty_line,
|
||||
driver_id TYPE {{p}}driver-driver_id,
|
||||
driver_name TYPE {{p}}driver-driver_name,
|
||||
base_code TYPE {{p}}driver-base_code,
|
||||
trips TYPE i,
|
||||
km TYPE ty_amount,
|
||||
fare TYPE ty_amount,
|
||||
avg_fare TYPE ty_amount,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
|
||||
TYPES tt_base TYPE RANGE OF {{p}}driver-base_code.
|
||||
METHODS collect
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
it_base TYPE tt_base
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
PRIVATE SECTION.
|
||||
TYPES:
|
||||
BEGIN OF ty_driver,
|
||||
driver_id TYPE {{p}}driver-driver_id,
|
||||
driver_name TYPE {{p}}driver-driver_name,
|
||||
base_code TYPE {{p}}driver-base_code,
|
||||
END OF ty_driver,
|
||||
tt_driver TYPE SORTED TABLE OF ty_driver WITH UNIQUE KEY driver_id.
|
||||
TYPES:
|
||||
BEGIN OF ty_trip,
|
||||
driver_id TYPE {{p}}trip-driver_id,
|
||||
km TYPE {{p}}trip-km,
|
||||
fare TYPE {{p}}trip-fare,
|
||||
END OF ty_trip,
|
||||
tt_trip TYPE STANDARD TABLE OF ty_trip WITH EMPTY KEY.
|
||||
TYPES:
|
||||
BEGIN OF ty_sum,
|
||||
driver_id TYPE {{p}}driver-driver_id,
|
||||
driver_name TYPE {{p}}driver-driver_name,
|
||||
base_code TYPE {{p}}driver-base_code,
|
||||
trips TYPE i,
|
||||
km TYPE ty_amount,
|
||||
fare TYPE ty_amount,
|
||||
END OF ty_sum,
|
||||
tt_sum TYPE SORTED TABLE OF ty_sum WITH UNIQUE KEY driver_id.
|
||||
METHODS read_trips
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
RETURNING VALUE(rt_trips) TYPE tt_trip.
|
||||
METHODS read_drivers
|
||||
IMPORTING it_trips TYPE tt_trip
|
||||
RETURNING VALUE(rt_drivers) TYPE tt_driver.
|
||||
METHODS base_matches
|
||||
IMPORTING is_driver TYPE ty_driver
|
||||
it_base TYPE tt_base
|
||||
RETURNING VALUE(rv_matches) TYPE abap_bool.
|
||||
METHODS add_trip
|
||||
IMPORTING is_trip TYPE ty_trip
|
||||
is_driver TYPE ty_driver
|
||||
CHANGING ct_sum TYPE tt_sum.
|
||||
METHODS build_lines
|
||||
IMPORTING it_sum TYPE tt_sum
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD collect.
|
||||
DATA(lt_trips) = read_trips( iv_from = iv_from iv_to = iv_to ).
|
||||
IF lt_trips IS INITIAL.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
DATA(lt_drivers) = read_drivers( lt_trips ).
|
||||
DATA lt_sum TYPE tt_sum.
|
||||
|
||||
LOOP AT lt_trips INTO DATA(ls_trip).
|
||||
READ TABLE lt_drivers INTO DATA(ls_driver)
|
||||
WITH TABLE KEY driver_id = ls_trip-driver_id.
|
||||
IF sy-subrc <> 0.
|
||||
CONTINUE.
|
||||
ENDIF.
|
||||
IF base_matches( is_driver = ls_driver it_base = it_base ) = abap_false.
|
||||
CONTINUE.
|
||||
ENDIF.
|
||||
add_trip( EXPORTING is_trip = ls_trip
|
||||
is_driver = ls_driver
|
||||
CHANGING ct_sum = lt_sum ).
|
||||
ENDLOOP.
|
||||
|
||||
rt_lines = build_lines( lt_sum ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD read_trips.
|
||||
SELECT driver_id, km, fare
|
||||
FROM {{p}}trip
|
||||
WHERE trip_date >= @iv_from
|
||||
AND trip_date <= @iv_to
|
||||
INTO TABLE @rt_trips.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD read_drivers.
|
||||
DATA lt_ids TYPE RANGE OF {{p}}driver-driver_id.
|
||||
lt_ids = VALUE #( FOR ls_trip IN it_trips
|
||||
( sign = 'I' option = 'EQ' low = ls_trip-driver_id ) ).
|
||||
|
||||
SELECT driver_id, driver_name, base_code
|
||||
FROM {{p}}driver
|
||||
WHERE driver_id IN @lt_ids
|
||||
INTO TABLE @rt_drivers.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD base_matches.
|
||||
IF it_base IS INITIAL.
|
||||
rv_matches = abap_true.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
IF is_driver-base_code IN it_base.
|
||||
rv_matches = abap_true.
|
||||
ELSE.
|
||||
rv_matches = abap_false.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD add_trip.
|
||||
READ TABLE ct_sum ASSIGNING FIELD-SYMBOL(<ls_sum>)
|
||||
WITH TABLE KEY driver_id = is_driver-driver_id.
|
||||
IF sy-subrc = 0.
|
||||
<ls_sum>-trips = <ls_sum>-trips + 1.
|
||||
<ls_sum>-km = <ls_sum>-km + is_trip-km.
|
||||
<ls_sum>-fare = <ls_sum>-fare + is_trip-fare.
|
||||
ELSE.
|
||||
INSERT VALUE #( driver_id = is_driver-driver_id
|
||||
driver_name = is_driver-driver_name
|
||||
base_code = is_driver-base_code
|
||||
trips = 1
|
||||
km = is_trip-km
|
||||
fare = is_trip-fare )
|
||||
INTO TABLE ct_sum.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD build_lines.
|
||||
DATA lv_avg_fare TYPE ty_amount.
|
||||
LOOP AT it_sum INTO DATA(ls_sum).
|
||||
lv_avg_fare = ls_sum-fare / ls_sum-trips.
|
||||
INSERT VALUE #( driver_id = ls_sum-driver_id
|
||||
driver_name = ls_sum-driver_name
|
||||
base_code = ls_sum-base_code
|
||||
trips = ls_sum-trips
|
||||
km = ls_sum-km
|
||||
fare = ls_sum-fare
|
||||
avg_fare = lv_avg_fare )
|
||||
INTO TABLE rt_lines.
|
||||
ENDLOOP.
|
||||
SORT rt_lines BY fare DESCENDING driver_id ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
TRY.
|
||||
cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
|
||||
CHANGING t_table = ct_lines ).
|
||||
lo_alv->display( ).
|
||||
CATCH cx_salv_msg INTO DATA(lx_error).
|
||||
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
|
||||
ENDTRY.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
|
||||
START-OF-SELECTION.
|
||||
DATA(go_report) = NEW lcl_report( ).
|
||||
DATA(gt_lines) = go_report->collect( iv_from = p_from
|
||||
iv_to = p_to
|
||||
it_base = s_base[] ).
|
||||
go_report->display( CHANGING ct_lines = gt_lines ).
|
||||
|
||||
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
|
||||
CLASS-METHODS class_setup.
|
||||
CLASS-METHODS class_teardown.
|
||||
METHODS totals_per_driver FOR TESTING.
|
||||
METHODS base_filter FOR TESTING.
|
||||
METHODS orphan_trip FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create(
|
||||
i_dependency_list = VALUE #( ( '{{P}}TRIP' ) ( '{{P}}DRIVER' ) ) ).
|
||||
|
||||
DATA lt_driver TYPE STANDARD TABLE OF {{p}}driver WITH EMPTY KEY.
|
||||
lt_driver = VALUE #( ( driver_id = 'D1' driver_name = 'Anna' base_code = 'NORTH' )
|
||||
( driver_id = 'D2' driver_name = 'Ben' base_code = 'SOUTH' ) ).
|
||||
go_env->insert_test_data( lt_driver ).
|
||||
|
||||
DATA lt_trip TYPE STANDARD TABLE OF {{p}}trip WITH EMPTY KEY.
|
||||
lt_trip = VALUE #( ( trip_id = 1 driver_id = 'D1' trip_date = '20260110' km = '10.00' fare = '30.00' )
|
||||
( trip_id = 2 driver_id = 'D1' trip_date = '20260111' km = '5.00' fare = '15.00' )
|
||||
( trip_id = 3 driver_id = 'D2' trip_date = '20260110' km = '8.00' fare = '40.00' )
|
||||
( trip_id = 4 driver_id = 'D9' trip_date = '20260110' km = '1.00' fare = '5.00' ) ).
|
||||
go_env->insert_test_data( lt_trip ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_driver.
|
||||
DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101'
|
||||
iv_to = '20260131'
|
||||
it_base = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'D1' act = lt_lines[ 1 ]-driver_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 1 ]-trips ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV lcl_report=>ty_amount( 45 )
|
||||
act = lt_lines[ 1 ]-fare ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD base_filter.
|
||||
DATA(lt_lines) = NEW lcl_report( )->collect(
|
||||
iv_from = '20260101'
|
||||
iv_to = '20260131'
|
||||
it_base = VALUE #( ( sign = 'I' option = 'EQ' low = 'NORTH' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'D1' act = lt_lines[ 1 ]-driver_id ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD orphan_trip.
|
||||
DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101'
|
||||
iv_to = '20260131'
|
||||
it_base = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user