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

Stage 2 summary at 50 accepted trajectories

Browse Source 
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 18:02:52 +02:00
parent 332fb4601d
commit 5bcd1bf9cd
1230 changed files with 77563 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

167
tasks_gen/train/G1153/reference/dealer_sum.prog.abap Normal file
View File

@@ -0,0 +1,167 @@
REPORT {{p}}dealer_sum.
PARAMETERS p_from TYPE d OBLIGATORY.
PARAMETERS p_to TYPE d OBLIGATORY.
PARAMETERS p_city TYPE {{p}}dealer-city.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_line,
dealer TYPE {{p}}dealer-dealer_name,
city TYPE {{p}}dealer-city,
sales TYPE i,
revenue TYPE {{p}}vsale-price,
top_model TYPE {{p}}vsale-model_code,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
BEGIN OF ty_model,
dealer_id TYPE {{p}}dealer-dealer_id,
dealer_name TYPE {{p}}dealer-dealer_name,
city TYPE {{p}}dealer-city,
model_code TYPE {{p}}vsale-model_code,
model_sum TYPE {{p}}vsale-price,
model_cnt TYPE i,
END OF ty_model,
tt_model TYPE STANDARD TABLE OF ty_model WITH EMPTY KEY.
METHODS select_summary
IMPORTING iv_from TYPE d
iv_to TYPE d
iv_city TYPE {{p}}dealer-city
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS read_models
IMPORTING iv_from TYPE d
iv_to TYPE d
iv_city TYPE {{p}}dealer-city
RETURNING VALUE(rt_models) TYPE tt_model.
METHODS reduce
IMPORTING it_models TYPE tt_model
RETURNING VALUE(rt_lines) TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_summary.
rt_lines = reduce( read_models( iv_from = iv_from iv_to = iv_to iv_city = iv_city ) ).
ENDMETHOD.
METHOD read_models.
IF iv_city IS INITIAL.
SELECT d~dealer_id, d~dealer_name, d~city, s~model_code,
SUM( s~price ) AS model_sum, COUNT( * ) AS model_cnt
FROM {{p}}vsale AS s
INNER JOIN {{p}}dealer AS d ON d~dealer_id = s~dealer_id
WHERE s~sale_date BETWEEN @iv_from AND @iv_to
GROUP BY d~dealer_id, d~dealer_name, d~city, s~model_code
ORDER BY d~dealer_id, s~model_code
INTO CORRESPONDING FIELDS OF TABLE @rt_models.
ELSE.
SELECT d~dealer_id, d~dealer_name, d~city, s~model_code,
SUM( s~price ) AS model_sum, COUNT( * ) AS model_cnt
FROM {{p}}vsale AS s
INNER JOIN {{p}}dealer AS d ON d~dealer_id = s~dealer_id
WHERE s~sale_date BETWEEN @iv_from AND @iv_to
AND d~city = @iv_city
GROUP BY d~dealer_id, d~dealer_name, d~city, s~model_code
ORDER BY d~dealer_id, s~model_code
INTO CORRESPONDING FIELDS OF TABLE @rt_models.
ENDIF.
ENDMETHOD.
METHOD reduce.
DATA ls_line TYPE ty_line.
DATA lv_dealer_id TYPE {{p}}dealer-dealer_id.
DATA lv_top_sum TYPE {{p}}vsale-price.
LOOP AT it_models INTO DATA(ls_model).
IF ls_model-dealer_id <> lv_dealer_id.
IF lv_dealer_id IS NOT INITIAL.
APPEND ls_line TO rt_lines.
ENDIF.
CLEAR ls_line.
lv_dealer_id = ls_model-dealer_id.
lv_top_sum = ls_model-model_sum.
ls_line-dealer = ls_model-dealer_name.
ls_line-city = ls_model-city.
ls_line-top_model = ls_model-model_code.
ls_line-revenue = ls_model-model_sum.
ls_line-sales = ls_model-model_cnt.
ELSE.
ls_line-revenue = ls_line-revenue + ls_model-model_sum.
ls_line-sales = ls_line-sales + ls_model-model_cnt.
IF ls_model-model_sum > lv_top_sum.
lv_top_sum = ls_model-model_sum.
ls_line-top_model = ls_model-model_code.
ENDIF.
ENDIF.
ENDLOOP.
IF lv_dealer_id IS NOT INITIAL.
APPEND ls_line TO rt_lines.
ENDIF.
SORT rt_lines BY revenue DESCENDING dealer 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_summary( iv_from = p_from iv_to = p_to iv_city = p_city ).
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 revenue_per_dealer FOR TESTING.
METHODS city_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create(
i_dependency_list = VALUE #( ( '{{P}}DEALER' ) ( '{{P}}VSALE' ) ) ).
DATA lt_dealer TYPE STANDARD TABLE OF {{p}}dealer WITH EMPTY KEY.
lt_dealer = VALUE #( ( dealer_id = 'D1' dealer_name = 'One' city = 'X' )
( dealer_id = 'D2' dealer_name = 'Two' city = 'Y' ) ).
go_env->insert_test_data( lt_dealer ).
DATA lt_sale TYPE STANDARD TABLE OF {{p}}vsale WITH EMPTY KEY.
lt_sale = VALUE #( ( sale_id = 1 dealer_id = 'D1' sale_date = '20260101' model_code = 'A' price = 10 )
( sale_id = 2 dealer_id = 'D1' sale_date = '20260102' model_code = 'B' price = 30 )
( sale_id = 3 dealer_id = 'D2' sale_date = '20260103' model_code = 'A' price = 5 ) ).
go_env->insert_test_data( lt_sale ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD revenue_per_dealer.
DATA(lt_lines) = NEW lcl_report( )->select_summary(
iv_from = '20260101' iv_to = '20260131' iv_city = '' ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'One' act = lt_lines[ 1 ]-dealer ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 1 ]-sales ).
ENDMETHOD.
METHOD city_filter.
DATA(lt_lines) = NEW lcl_report( )->select_summary(
iv_from = '20260101' iv_to = '20260131' iv_city = 'X' ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B' act = lt_lines[ 1 ]-top_model ).
ENDMETHOD.
ENDCLASS.