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

115
tasks_gen/train/G1110/faulty/m1_scrap_pay.prog.abap Normal file
View File

@@ -0,0 +1,115 @@
REPORT {{p}}scrap_pay.
TYPES: BEGIN OF ty_line,
metal TYPE {{p}}scrap-metal,
total_kg TYPE p LENGTH 13 DECIMALS 3,
total_pay TYPE p LENGTH 15 DECIMALS 2,
deliv_cnt TYPE i,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_metal TYPE RANGE OF {{p}}scrap-metal.
DATA gv_metal TYPE {{p}}scrap-metal.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
METHODS list
IMPORTING iv_date TYPE d
it_metal TYPE tt_metal
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD list.
SELECT metal,
SUM( weight_kg ) AS total_kg,
SUM( weight_kg * price_kg ) AS total_pay,
COUNT( * ) AS deliv_cnt
FROM {{p}}scrap
WHERE deliv_date <> @iv_date
AND metal IN @it_metal
GROUP BY metal
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
IF <ls_line>-total_kg >= c_limit.
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
ENDIF.
ENDLOOP.
SORT rt_lines BY total_pay DESCENDING.
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->list( iv_date = p_date it_metal = s_metal[] ).
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 bonus_above_limit FOR TESTING.
METHODS no_bonus_below_limit FOR TESTING.
METHODS metal_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
go_env->insert_test_data( lt_scrap ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD bonus_above_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
lv_expected = '1540.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
ENDMETHOD.
METHOD no_bonus_below_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
lv_expected = '10.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
ENDMETHOD.
METHOD metal_filter.
DATA(lt_lines) = NEW lcl_report( )->list(
iv_date = '20260115'
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
ENDMETHOD.
ENDCLASS.

115
tasks_gen/train/G1110/faulty/m2_scrap_pay.prog.abap Normal file
View File

@@ -0,0 +1,115 @@
REPORT {{p}}scrap_pay.
TYPES: BEGIN OF ty_line,
metal TYPE {{p}}scrap-metal,
total_kg TYPE p LENGTH 13 DECIMALS 3,
total_pay TYPE p LENGTH 15 DECIMALS 2,
deliv_cnt TYPE i,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_metal TYPE RANGE OF {{p}}scrap-metal.
DATA gv_metal TYPE {{p}}scrap-metal.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
METHODS list
IMPORTING iv_date TYPE d
it_metal TYPE tt_metal
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD list.
SELECT metal,
SUM( weight_kg ) AS total_kg,
SUM( weight_kg * price_kg ) AS total_pay,
COUNT( * ) AS deliv_cnt
FROM {{p}}scrap
WHERE deliv_date = @iv_date
OR metal IN @it_metal
GROUP BY metal
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
IF <ls_line>-total_kg >= c_limit.
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
ENDIF.
ENDLOOP.
SORT rt_lines BY total_pay DESCENDING.
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->list( iv_date = p_date it_metal = s_metal[] ).
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 bonus_above_limit FOR TESTING.
METHODS no_bonus_below_limit FOR TESTING.
METHODS metal_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
go_env->insert_test_data( lt_scrap ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD bonus_above_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
lv_expected = '1540.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
ENDMETHOD.
METHOD no_bonus_below_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
lv_expected = '10.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
ENDMETHOD.
METHOD metal_filter.
DATA(lt_lines) = NEW lcl_report( )->list(
iv_date = '20260115'
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
ENDMETHOD.
ENDCLASS.

115
tasks_gen/train/G1110/faulty/m3_scrap_pay.prog.abap Normal file
View File

@@ -0,0 +1,115 @@
REPORT {{p}}scrap_pay.
TYPES: BEGIN OF ty_line,
metal TYPE {{p}}scrap-metal,
total_kg TYPE p LENGTH 13 DECIMALS 3,
total_pay TYPE p LENGTH 15 DECIMALS 2,
deliv_cnt TYPE i,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_metal TYPE RANGE OF {{p}}scrap-metal.
DATA gv_metal TYPE {{p}}scrap-metal.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
METHODS list
IMPORTING iv_date TYPE d
it_metal TYPE tt_metal
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD list.
SELECT metal,
SUM( weight_kg ) AS total_kg,
SUM( weight_kg * price_kg ) AS total_pay,
COUNT( * ) AS deliv_cnt
FROM {{p}}scrap
WHERE deliv_date = @iv_date
AND metal IN @it_metal
GROUP BY metal
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
IF <ls_line>-total_kg < c_limit.
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
ENDIF.
ENDLOOP.
SORT rt_lines BY total_pay DESCENDING.
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->list( iv_date = p_date it_metal = s_metal[] ).
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 bonus_above_limit FOR TESTING.
METHODS no_bonus_below_limit FOR TESTING.
METHODS metal_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
go_env->insert_test_data( lt_scrap ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD bonus_above_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
lv_expected = '1540.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
ENDMETHOD.
METHOD no_bonus_below_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
lv_expected = '10.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
ENDMETHOD.
METHOD metal_filter.
DATA(lt_lines) = NEW lcl_report( )->list(
iv_date = '20260115'
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
ENDMETHOD.
ENDCLASS.

115
tasks_gen/train/G1110/faulty/m4_scrap_pay.prog.abap Normal file
View File

@@ -0,0 +1,115 @@
REPORT {{p}}scrap_pay.
TYPES: BEGIN OF ty_line,
metal TYPE {{p}}scrap-metal,
total_kg TYPE p LENGTH 13 DECIMALS 3,
total_pay TYPE p LENGTH 15 DECIMALS 2,
deliv_cnt TYPE i,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_metal TYPE RANGE OF {{p}}scrap-metal.
DATA gv_metal TYPE {{p}}scrap-metal.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
METHODS list
IMPORTING iv_date TYPE d
it_metal TYPE tt_metal
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD list.
SELECT metal,
SUM( weight_kg ) AS total_kg,
SUM( weight_kg * price_kg ) AS total_pay,
COUNT( * ) AS deliv_cnt
FROM {{p}}scrap
WHERE deliv_date = @iv_date
AND metal IN @it_metal
GROUP BY metal
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
IF <ls_line>-total_kg >= c_limit.
<ls_line>-total_pay = <ls_line>-total_pay / c_bonus.
ENDIF.
ENDLOOP.
SORT rt_lines BY total_pay DESCENDING.
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->list( iv_date = p_date it_metal = s_metal[] ).
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 bonus_above_limit FOR TESTING.
METHODS no_bonus_below_limit FOR TESTING.
METHODS metal_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
go_env->insert_test_data( lt_scrap ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD bonus_above_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
lv_expected = '1540.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
ENDMETHOD.
METHOD no_bonus_below_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
lv_expected = '10.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
ENDMETHOD.
METHOD metal_filter.
DATA(lt_lines) = NEW lcl_report( )->list(
iv_date = '20260115'
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
ENDMETHOD.
ENDCLASS.

19
tasks_gen/train/G1110/generation.json Normal file
View File

@@ -0,0 +1,19 @@
{
"id": "G1110",
"pool": "train",
"object_type": "PROG",
"category": "E",
"attempts": [
{
"stage": "validate",
"oracle": 100.0,
"null": 0,
"mutation": {
"valid": 4,
"killed": 4,
"ok": true
}
}
],
"accepted": true
}

117
tasks_gen/train/G1110/hidden/scrap_hidden.clas.abap Normal file
View File

@@ -0,0 +1,117 @@
CLASS {{p}}scrap_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
TYPES tt_metal TYPE RANGE OF {{p}}scrap-metal.
METHODS run_report
IMPORTING iv_date TYPE d
it_metal TYPE tt_metal OPTIONAL
RETURNING VALUE(rr_data) TYPE REF TO data.
METHODS lines_of
IMPORTING ir_data TYPE REF TO data
RETURNING VALUE(rv_lines) TYPE i.
METHODS value_of
IMPORTING ir_data TYPE REF TO data
iv_row TYPE i
iv_col TYPE string
RETURNING VALUE(rv_value) TYPE string.
METHODS all_metals FOR TESTING.
METHODS sorted_by_pay FOR TESTING.
METHODS bonus_over_limit FOR TESTING.
METHODS bonus_at_limit FOR TESTING.
METHODS no_bonus_below_limit FOR TESTING.
METHODS metal_filter FOR TESTING.
METHODS date_filter FOR TESTING.
METHODS counts FOR TESTING.
METHODS empty_result FOR TESTING.
ENDCLASS.
CLASS {{p}}scrap_hidden IMPLEMENTATION.
METHOD run_report.
cl_salv_bs_runtime_info=>set( display = abap_false
metadata = abap_false
data = abap_true ).
SUBMIT {{p}}scrap_pay WITH p_date = iv_date WITH s_metal IN it_metal AND RETURN.
TRY.
cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = rr_data ).
CATCH cx_salv_bs_sc_runtime_info.
ENDTRY.
cl_salv_bs_runtime_info=>clear_all( ).
ENDMETHOD.
METHOD lines_of.
FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
IF ir_data IS BOUND.
ASSIGN ir_data->* TO <lt_data>.
rv_lines = lines( <lt_data> ).
ENDIF.
ENDMETHOD.
METHOD value_of.
FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
IF ir_data IS NOT BOUND.
cl_abap_unit_assert=>fail( msg = 'No ALV data' ).
ENDIF.
ASSIGN ir_data->* TO <lt_data>.
ASSIGN <lt_data>[ iv_row ] TO FIELD-SYMBOL(<ls_line>).
ASSIGN COMPONENT iv_col OF STRUCTURE <ls_line> TO FIELD-SYMBOL(<lv_value>).
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = |Column { iv_col } is missing| ).
rv_value = condense( CONV string( <lv_value> ) ).
ENDMETHOD.
METHOD all_metals.
cl_abap_unit_assert=>assert_equals( exp = 4 act = lines_of( run_report( '20260115' ) ) ).
ENDMETHOD.
METHOD sorted_by_pay.
DATA(lr_data) = run_report( '20260115' ).
cl_abap_unit_assert=>assert_equals( exp = `CU` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `METAL` ) ).
cl_abap_unit_assert=>assert_equals( exp = `BR` act = value_of( ir_data = lr_data iv_row = 4 iv_col = `METAL` ) ).
ENDMETHOD.
METHOD bonus_over_limit.
DATA(lr_data) = run_report( '20260115' ).
cl_abap_unit_assert=>assert_equals( exp = `3630.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `TOTAL_PAY` ) ).
cl_abap_unit_assert=>assert_equals( exp = `550.000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `TOTAL_KG` ) ).
ENDMETHOD.
METHOD bonus_at_limit.
DATA(lr_data) = run_report( '20260115' ).
cl_abap_unit_assert=>assert_equals( exp = `759.00` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `TOTAL_PAY` ) ).
cl_abap_unit_assert=>assert_equals( exp = `500.000` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `TOTAL_KG` ) ).
ENDMETHOD.
METHOD no_bonus_below_limit.
DATA(lr_data) = run_report( '20260115' ).
cl_abap_unit_assert=>assert_equals( exp = `80.00` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `TOTAL_PAY` ) ).
cl_abap_unit_assert=>assert_equals( exp = `60.00` act = value_of( ir_data = lr_data iv_row = 4 iv_col = `TOTAL_PAY` ) ).
ENDMETHOD.
METHOD metal_filter.
DATA(lr_data) = run_report( iv_date = '20260115'
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'CU' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `3630.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `TOTAL_PAY` ) ).
ENDMETHOD.
METHOD date_filter.
DATA(lr_data) = run_report( '20260110' ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `3300.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `TOTAL_PAY` ) ).
cl_abap_unit_assert=>assert_equals( exp = `30.00` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `TOTAL_PAY` ) ).
ENDMETHOD.
METHOD counts.
DATA(lr_data) = run_report( '20260115' ).
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DELIV_CNT` ) ).
cl_abap_unit_assert=>assert_equals( exp = `3` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `DELIV_CNT` ) ).
ENDMETHOD.
METHOD empty_result.
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines_of( run_report( '20261231' ) ) ).
ENDMETHOD.
ENDCLASS.

73
tasks_gen/train/G1110/mutation.json Normal file
View File

@@ -0,0 +1,73 @@
{
"task": "G1110",
"mutants": [
{
"object": "{{P}}SCRAP_PAY",
"mutant": "line 35: * -> / (arith)",
"status": "invalid",
"hidden": "0/0",
"failed_tests": []
},
{
"object": "{{P}}SCRAP_PAY",
"mutant": "line 38: = -> <> (eq)",
"status": "killed",
"hidden": "0/9",
"failed_tests": [
"ALL_METALS",
"BONUS_AT_LIMIT",
"BONUS_OVER_LIMIT",
"COUNTS",
"DATE_FILTER",
"EMPTY_RESULT",
"METAL_FILTER",
"NO_BONUS_BELOW_LIMIT",
"SORTED_BY_PAY"
]
},
{
"object": "{{P}}SCRAP_PAY",
"mutant": "line 39: AND -> OR (logic)",
"status": "killed",
"hidden": "2/9",
"failed_tests": [
"BONUS_OVER_LIMIT",
"COUNTS",
"DATE_FILTER",
"EMPTY_RESULT",
"METAL_FILTER",
"NO_BONUS_BELOW_LIMIT",
"SORTED_BY_PAY"
]
},
{
"object": "{{P}}SCRAP_PAY",
"mutant": "line 44: >= -> < (rel)",
"status": "killed",
"hidden": "4/9",
"failed_tests": [
"BONUS_AT_LIMIT",
"BONUS_OVER_LIMIT",
"DATE_FILTER",
"METAL_FILTER",
"NO_BONUS_BELOW_LIMIT"
]
},
{
"object": "{{P}}SCRAP_PAY",
"mutant": "line 45: * -> / (arith)",
"status": "killed",
"hidden": "5/9",
"failed_tests": [
"BONUS_AT_LIMIT",
"BONUS_OVER_LIMIT",
"DATE_FILTER",
"METAL_FILTER"
]
}
],
"valid": 4,
"killed": 4,
"kill_rate": 1.0,
"ok": true
}

115
tasks_gen/train/G1110/reference/scrap_pay.prog.abap Normal file
View File

@@ -0,0 +1,115 @@
REPORT {{p}}scrap_pay.
TYPES: BEGIN OF ty_line,
metal TYPE {{p}}scrap-metal,
total_kg TYPE p LENGTH 13 DECIMALS 3,
total_pay TYPE p LENGTH 15 DECIMALS 2,
deliv_cnt TYPE i,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_metal TYPE RANGE OF {{p}}scrap-metal.
DATA gv_metal TYPE {{p}}scrap-metal.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
METHODS list
IMPORTING iv_date TYPE d
it_metal TYPE tt_metal
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD list.
SELECT metal,
SUM( weight_kg ) AS total_kg,
SUM( weight_kg * price_kg ) AS total_pay,
COUNT( * ) AS deliv_cnt
FROM {{p}}scrap
WHERE deliv_date = @iv_date
AND metal IN @it_metal
GROUP BY metal
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
IF <ls_line>-total_kg >= c_limit.
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
ENDIF.
ENDLOOP.
SORT rt_lines BY total_pay DESCENDING.
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->list( iv_date = p_date it_metal = s_metal[] ).
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 bonus_above_limit FOR TESTING.
METHODS no_bonus_below_limit FOR TESTING.
METHODS metal_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
go_env->insert_test_data( lt_scrap ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD bonus_above_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
lv_expected = '1540.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
ENDMETHOD.
METHOD no_bonus_below_limit.
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
lv_expected = '10.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
ENDMETHOD.
METHOD metal_filter.
DATA(lt_lines) = NEW lcl_report( )->list(
iv_date = '20260115'
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
ENDMETHOD.
ENDCLASS.

13
tasks_gen/train/G1110/seed/scrap.tabl.asabap Normal file
View File

@@ -0,0 +1,13 @@
@EndUserText.label : 'Scrap metal deliveries'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #RESTRICTED
define table {{p}}scrap {
key client : abap.clnt not null;
key deliv_id : abap.int4 not null;
metal : abap.char(4);
deliv_date : abap.dats;
weight_kg : abap.dec(13,3);
price_kg : abap.dec(13,2);
}

105
tasks_gen/train/G1110/seed/scrap_pay.prog.abap Normal file
View File

@@ -0,0 +1,105 @@
REPORT {{p}}scrap_pay.
*--------------------------------------------------------------------*
* Payout list of the recycling yard.
* Legacy program. The output columns and the values must not change.
*--------------------------------------------------------------------*
TYPES: BEGIN OF ty_out,
metal TYPE {{p}}scrap-metal,
total_kg TYPE p LENGTH 13 DECIMALS 3,
total_pay TYPE p LENGTH 15 DECIMALS 2,
deliv_cnt TYPE i,
END OF ty_out.
DATA: gv_metal TYPE {{p}}scrap-metal,
gt_scrap TYPE STANDARD TABLE OF {{p}}scrap,
gt_out TYPE STANDARD TABLE OF ty_out,
gs_out TYPE ty_out.
CONSTANTS: c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10',
c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_metal FOR gv_metal.
START-OF-SELECTION.
PERFORM read_data.
PERFORM build_totals.
PERFORM add_bonus.
PERFORM sort_list.
PERFORM show_list.
*&---------------------------------------------------------------------*
*& Form read_data
*&---------------------------------------------------------------------*
FORM read_data.
CLEAR gt_scrap.
SELECT * FROM {{p}}scrap INTO TABLE gt_scrap
WHERE deliv_date = p_date
AND metal IN s_metal.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form build_totals
*&---------------------------------------------------------------------*
FORM build_totals.
DATA: ls_scrap TYPE {{p}}scrap,
lv_pay TYPE p LENGTH 15 DECIMALS 2,
lv_index TYPE sy-tabix.
CLEAR gt_out.
LOOP AT gt_scrap INTO ls_scrap.
CLEAR lv_index.
READ TABLE gt_out INTO gs_out WITH KEY metal = ls_scrap-metal.
IF sy-subrc = 0.
lv_index = sy-tabix.
ELSE.
CLEAR gs_out.
gs_out-metal = ls_scrap-metal.
ENDIF.
lv_pay = ls_scrap-weight_kg * ls_scrap-price_kg.
gs_out-total_kg = gs_out-total_kg + ls_scrap-weight_kg.
gs_out-total_pay = gs_out-total_pay + lv_pay.
gs_out-deliv_cnt = gs_out-deliv_cnt + 1.
IF lv_index IS INITIAL.
APPEND gs_out TO gt_out.
ELSE.
MODIFY gt_out FROM gs_out INDEX lv_index.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form add_bonus
*&---------------------------------------------------------------------*
FORM add_bonus.
LOOP AT gt_out INTO gs_out.
IF gs_out-total_kg >= c_limit.
gs_out-total_pay = gs_out-total_pay * c_bonus.
MODIFY gt_out FROM gs_out.
ENDIF.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form sort_list
*&---------------------------------------------------------------------*
FORM sort_list.
SORT gt_out BY total_pay DESCENDING.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form show_list
*&---------------------------------------------------------------------*
FORM show_list.
DATA lo_alv TYPE REF TO cl_salv_table.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = lo_alv
CHANGING t_table = gt_out ).
lo_alv->display( ).
CATCH cx_salv_msg INTO DATA(lx_error).
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDFORM.

21
tasks_gen/train/G1110/seed/scrap_seed.clas.abap Normal file
View File

@@ -0,0 +1,21 @@
CLASS {{p}}scrap_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun.
ENDCLASS.
CLASS {{p}}scrap_seed IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
DELETE FROM {{p}}scrap.
INSERT {{p}}scrap FROM TABLE @( VALUE #(
( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '300.000' price_kg = '6.00' )
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '250.000' price_kg = '6.00' )
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '100.000' price_kg = '1.50' )
( deliv_id = 4 metal = 'AL' deliv_date = '20260115' weight_kg = '200.000' price_kg = '1.20' )
( deliv_id = 5 metal = 'AL' deliv_date = '20260115' weight_kg = '200.000' price_kg = '1.50' )
( deliv_id = 6 metal = 'FE' deliv_date = '20260115' weight_kg = '400.000' price_kg = '0.20' )
( deliv_id = 7 metal = 'BR' deliv_date = '20260115' weight_kg = '20.000' price_kg = '3.00' )
( deliv_id = 8 metal = 'CU' deliv_date = '20260110' weight_kg = '500.000' price_kg = '6.00' )
( deliv_id = 9 metal = 'BR' deliv_date = '20260110' weight_kg = '10.000' price_kg = '3.00' ) ) ).
out->write( sy-dbcnt ).
ENDMETHOD.
ENDCLASS.

52
tasks_gen/train/G1110/spec.md Normal file
View File

@@ -0,0 +1,52 @@
# 1. Goal
The recycling yard pays its customers for scrap metal deliveries. The report
{{P}}SCRAP_PAY shows the payout of each metal type for one delivery day in an
ALV list. The yard uses the list to check the daily payouts.
The report is a legacy program. It works, but its code is hard to read and hard
to maintain. Refactor the report. The behavior stays the same.
# 2. Open questions
None.
# 3. Context
- Table {{P}}SCRAP exists in package $TMP and contains data.
Fields: DELIV_ID (INT4, key), METAL (CHAR 4), DELIV_DATE (DATS),
WEIGHT_KG (DEC 13,3), PRICE_KG (DEC 13,2).
- The executable program {{P}}SCRAP_PAY exists in package $TMP and is active.
It has a selection screen and shows an ALV list.
- The program {{P}}SCRAP_PAY contains the business rules of the payout list.
Read the code of the program before you change it.
# 4. Contract
- Refactor the executable program {{P}}SCRAP_PAY in package $TMP. The name stays
the same.
- The selection screen stays the same:
- Parameter P_DATE, type DATS, mandatory: the delivery day.
- Select-option S_METAL for the metal type.
- The ALV list stays the same. The output table has these columns with these
names and these value formats:
- METAL: the metal type.
- TOTAL_KG: the total weight of the metal in kg, 3 decimals.
- TOTAL_PAY: the total payout for the metal, 2 decimals.
- DELIV_CNT: the number of deliveries of the metal.
# 5. Business rules
- The behavior of the program stays the same. The code of the legacy program
{{P}}SCRAP_PAY defines every rule: which deliveries are included, how the
totals are calculated, and in which order the lines are shown.
- The rules of the legacy program are correct. Do not correct, add or remove a
rule.
# 6. Constraints
- Release target: SAP_BASIS 816 (ABAP Platform 2025).
- Coding standards: Clean ABAP. Small methods, clear names, no unused code, no
FORM routine. Read the data of the list with one database access.
No ATC priority 1 or 2 finding.
- Out of scope: do not change the table {{P}}SCRAP. Do not change the selection
screen, the ALV column names or the values of the ALV list.
# 7. Acceptance
- The program {{P}}SCRAP_PAY is active and has no syntax error.
- The hidden tests pass.
- Write ABAP Unit tests as local test classes in the program.

66
tasks_gen/train/G1110/task.json Normal file
View File

@@ -0,0 +1,66 @@
{
"id": "G1110",
"category": "E",
"object_type": "PROG",
"difficulty": 2,
"release_target": "v816",
"expected_outcome": "implement",
"budget": {
"max_tool_calls": 60,
"max_activations": 15
},
"seed": [
{
"type": "TABL",
"name": "{{P}}SCRAP",
"file": "seed/scrap.tabl.asabap",
"description": "Scrap metal deliveries of the recycling yard"
},
{
"type": "PROG",
"name": "{{P}}SCRAP_PAY",
"file": "seed/scrap_pay.prog.abap",
"description": "Legacy payout report (contract object, refactor in place)"
},
{
"type": "CLAS",
"name": "{{P}}SCRAP_SEED",
"file": "seed/scrap_seed.clas.abap",
"description": "Seed data for {{P}}SCRAP",
"run": true
}
],
"contract": [
{
"type": "PROG",
"name": "{{P}}SCRAP_PAY",
"parameters": [
"p_date",
"s_metal"
]
}
],
"out_of_scope": [
"{{P}}SCRAP"
],
"hidden_tests": [
{
"type": "CLAS",
"name": "{{P}}SCRAP_HIDDEN",
"file": "hidden/scrap_hidden.clas.abap",
"description": "Hidden tests for the payout report"
}
],
"reference": [
{
"type": "PROG",
"name": "{{P}}SCRAP_PAY",
"file": "reference/scrap_pay.prog.abap",
"description": "Refactored payout report"
}
],
"craft_checks": [
"db_operation_in_loop",
"method_length"
]
}