ADT fallback: Accept headers for FUNC; G0189 accepted; regen2 results
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
127
tasks_gen/eval/G0124/reference/fleet_dist.prog.abap
Normal file
127
tasks_gen/eval/G0124/reference/fleet_dist.prog.abap
Normal file
@@ -0,0 +1,127 @@
|
||||
REPORT {{p}}fleet_dist.
|
||||
|
||||
TYPES:
|
||||
BEGIN OF ty_line,
|
||||
veh_id TYPE {{p}}veh-veh_id,
|
||||
depot TYPE {{p}}veh-depot,
|
||||
distance TYPE i,
|
||||
readings TYPE i,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_depot TYPE RANGE OF {{p}}veh-depot.
|
||||
|
||||
DATA gv_depot TYPE {{p}}veh-depot.
|
||||
|
||||
PARAMETERS p_from TYPE d OBLIGATORY.
|
||||
PARAMETERS p_to TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_depot FOR gv_depot.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
METHODS select_distances
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
it_depot TYPE tt_depot
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
PRIVATE SECTION.
|
||||
TYPES:
|
||||
BEGIN OF ty_raw,
|
||||
veh_id TYPE {{p}}veh-veh_id,
|
||||
depot TYPE {{p}}veh-depot,
|
||||
max_odo TYPE {{p}}odom-odometer,
|
||||
min_odo TYPE {{p}}odom-odometer,
|
||||
readings TYPE i,
|
||||
END OF ty_raw,
|
||||
tt_raw TYPE STANDARD TABLE OF ty_raw WITH EMPTY KEY.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_distances.
|
||||
DATA lt_raw TYPE tt_raw.
|
||||
SELECT v~veh_id, v~depot, MAX( o~odometer ) AS max_odo, MIN( o~odometer ) AS min_odo,
|
||||
COUNT( * ) AS readings
|
||||
FROM {{p}}veh AS v
|
||||
INNER JOIN {{p}}odom AS o ON o~veh_id = v~veh_id
|
||||
WHERE o~read_date >= @iv_from
|
||||
AND o~read_date <= @iv_to
|
||||
AND v~depot IN @it_depot
|
||||
GROUP BY v~veh_id, v~depot
|
||||
HAVING COUNT( * ) >= 2
|
||||
INTO CORRESPONDING FIELDS OF TABLE @lt_raw.
|
||||
LOOP AT lt_raw ASSIGNING FIELD-SYMBOL(<ls_raw>).
|
||||
APPEND VALUE #( veh_id = <ls_raw>-veh_id
|
||||
depot = <ls_raw>-depot
|
||||
distance = <ls_raw>-max_odo - <ls_raw>-min_odo
|
||||
readings = <ls_raw>-readings ) TO rt_lines.
|
||||
ENDLOOP.
|
||||
SORT rt_lines BY distance DESCENDING veh_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->select_distances( iv_from = p_from iv_to = p_to it_depot = s_depot[] ).
|
||||
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 distances_per_vehicle FOR TESTING.
|
||||
METHODS depot_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create(
|
||||
i_dependency_list = VALUE #( ( '{{P}}VEH' ) ( '{{P}}ODOM' ) ) ).
|
||||
DATA lt_veh TYPE STANDARD TABLE OF {{p}}veh WITH EMPTY KEY.
|
||||
lt_veh = VALUE #( ( veh_id = 'V1' depot = 'D1' )
|
||||
( veh_id = 'V2' depot = 'D2' )
|
||||
( veh_id = 'V3' depot = 'D2' ) ).
|
||||
go_env->insert_test_data( lt_veh ).
|
||||
DATA lt_odom TYPE STANDARD TABLE OF {{p}}odom WITH EMPTY KEY.
|
||||
lt_odom = VALUE #( ( read_id = 1 veh_id = 'V1' read_date = '20260101' odometer = 100 )
|
||||
( read_id = 2 veh_id = 'V1' read_date = '20260110' odometer = 400 )
|
||||
( read_id = 3 veh_id = 'V2' read_date = '20260105' odometer = 50 )
|
||||
( read_id = 4 veh_id = 'V3' read_date = '20260102' odometer = 200 )
|
||||
( read_id = 5 veh_id = 'V3' read_date = '20260112' odometer = 500 )
|
||||
( read_id = 6 veh_id = 'V3' read_date = '20260122' odometer = 900 ) ).
|
||||
go_env->insert_test_data( lt_odom ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD distances_per_vehicle.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_distances(
|
||||
iv_from = '20260101' iv_to = '20260131' it_depot = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'V3' act = lt_lines[ 1 ]-veh_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 700 act = lt_lines[ 1 ]-distance ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 3 act = lt_lines[ 1 ]-readings ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 300 act = lt_lines[ 2 ]-distance ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD depot_filter.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_distances(
|
||||
iv_from = '20260101' iv_to = '20260131'
|
||||
it_depot = VALUE #( ( sign = 'I' option = 'EQ' low = 'D2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'V3' act = lt_lines[ 1 ]-veh_id ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
@@ -1,170 +0,0 @@
|
||||
REPORT {{p}}milk_sum.
|
||||
|
||||
DATA gv_region TYPE {{p}}farm-region.
|
||||
|
||||
PARAMETERS p_from TYPE d OBLIGATORY.
|
||||
PARAMETERS p_to TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_reg FOR gv_region.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES:
|
||||
BEGIN OF ty_line,
|
||||
farm_id TYPE {{p}}farm-farm_id,
|
||||
farm_name TYPE {{p}}farm-farm_name,
|
||||
region TYPE {{p}}farm-region,
|
||||
litres TYPE {{p}}milk-litres,
|
||||
deliveries TYPE i,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_region TYPE RANGE OF {{p}}farm-region.
|
||||
METHODS select_data
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
it_region TYPE tt_region
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
PRIVATE SECTION.
|
||||
TYPES:
|
||||
BEGIN OF ty_sum,
|
||||
farm_id TYPE {{p}}milk-farm_id,
|
||||
litres TYPE {{p}}milk-litres,
|
||||
deliveries TYPE i,
|
||||
END OF ty_sum,
|
||||
tt_sum TYPE HASHED TABLE OF ty_sum WITH UNIQUE KEY farm_id.
|
||||
METHODS sum_deliveries
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
RETURNING VALUE(rt_sum) TYPE tt_sum.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_data.
|
||||
SELECT farm_id, farm_name, region
|
||||
FROM {{p}}farm
|
||||
WHERE region IN @it_region
|
||||
INTO TABLE @DATA(lt_farm).
|
||||
|
||||
DATA(lt_sum) = sum_deliveries( iv_from = iv_from iv_to = iv_to ).
|
||||
|
||||
LOOP AT lt_farm INTO DATA(ls_farm).
|
||||
DATA(ls_line) = VALUE ty_line( farm_id = ls_farm-farm_id
|
||||
farm_name = ls_farm-farm_name
|
||||
region = ls_farm-region ).
|
||||
READ TABLE lt_sum ASSIGNING FIELD-SYMBOL(<ls_sum>)
|
||||
WITH TABLE KEY farm_id = ls_farm-farm_id.
|
||||
IF sy-subrc = 0.
|
||||
ls_line-litres = <ls_sum>-litres.
|
||||
ls_line-deliveries = <ls_sum>-deliveries.
|
||||
ENDIF.
|
||||
APPEND ls_line TO rt_lines.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY litres DESCENDING farm_id ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD sum_deliveries.
|
||||
SELECT farm_id, litres
|
||||
FROM {{p}}milk
|
||||
WHERE deliv_date BETWEEN @iv_from AND @iv_to
|
||||
INTO TABLE @DATA(lt_milk).
|
||||
|
||||
LOOP AT lt_milk INTO DATA(ls_milk).
|
||||
READ TABLE rt_sum ASSIGNING FIELD-SYMBOL(<ls_sum>)
|
||||
WITH TABLE KEY farm_id = ls_milk-farm_id.
|
||||
IF sy-subrc <> 0.
|
||||
DATA(ls_new) = VALUE ty_sum( farm_id = ls_milk-farm_id ).
|
||||
INSERT ls_new INTO TABLE rt_sum ASSIGNING <ls_sum>.
|
||||
ENDIF.
|
||||
<ls_sum>-litres += ls_milk-litres.
|
||||
<ls_sum>-deliveries += 1.
|
||||
ENDLOOP.
|
||||
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->select_data( iv_from = p_from iv_to = p_to it_region = s_reg[] ).
|
||||
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 sums_and_counts FOR TESTING.
|
||||
METHODS missing_delivery FOR TESTING.
|
||||
METHODS date_range FOR TESTING.
|
||||
METHODS tie_break FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create(
|
||||
i_dependency_list = VALUE #( ( '{{P}}FARM' ) ( '{{P}}MILK' ) ) ).
|
||||
DATA lt_farm TYPE STANDARD TABLE OF {{p}}farm WITH EMPTY KEY.
|
||||
lt_farm = VALUE #( ( farm_id = '1' farm_name = 'A' region = 'X' )
|
||||
( farm_id = '2' farm_name = 'B' region = 'X' )
|
||||
( farm_id = '3' farm_name = 'C' region = 'Y' )
|
||||
( farm_id = '4' farm_name = 'D' region = 'Y' )
|
||||
( farm_id = '5' farm_name = 'E' region = 'X' ) ).
|
||||
go_env->insert_test_data( lt_farm ).
|
||||
DATA lt_milk TYPE STANDARD TABLE OF {{p}}milk WITH EMPTY KEY.
|
||||
lt_milk = VALUE #( ( deliv_id = 1 farm_id = '1' deliv_date = '20260110' litres = 10 )
|
||||
( deliv_id = 2 farm_id = '1' deliv_date = '20260120' litres = 5 )
|
||||
( deliv_id = 3 farm_id = '2' deliv_date = '20260115' litres = 40 )
|
||||
( deliv_id = 4 farm_id = '3' deliv_date = '20260116' litres = 20 )
|
||||
( deliv_id = 5 farm_id = '5' deliv_date = '20260111' litres = 15 ) ).
|
||||
go_env->insert_test_data( lt_milk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD sums_and_counts.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_data(
|
||||
iv_from = '20260101' iv_to = '20260131' it_region = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 5 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '2' act = lt_lines[ 1 ]-farm_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}milk-litres( 40 ) act = lt_lines[ 1 ]-litres ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lt_lines[ 1 ]-deliveries ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD missing_delivery.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_data(
|
||||
iv_from = '20260101' iv_to = '20260131' it_region = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '4' act = lt_lines[ 5 ]-farm_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 5 ]-deliveries ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 5 ]-litres ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD date_range.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_data(
|
||||
iv_from = '20260115' iv_to = '20260131' it_region = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 5 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '2' act = lt_lines[ 1 ]-farm_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}milk-litres( 40 ) act = lt_lines[ 1 ]-litres ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '1' act = lt_lines[ 3 ]-farm_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}milk-litres( 5 ) act = lt_lines[ 3 ]-litres ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lt_lines[ 3 ]-deliveries ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD tie_break.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_data(
|
||||
iv_from = '20260101' iv_to = '20260131' it_region = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '1' act = lt_lines[ 3 ]-farm_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '5' act = lt_lines[ 4 ]-farm_id ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user