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

137
tasks_gen/train/G1130/faulty/m0_groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,137 @@
REPORT {{p}}groom_bill_old.
TYPES: ty_charge TYPE p LENGTH 9 DECIMALS 2,
BEGIN OF ty_line,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE ty_charge,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_pet TYPE RANGE OF {{p}}groom-pet.
DATA gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
CLASS lcl_groom_bill DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS: c_service_basic TYPE {{p}}groom-service VALUE 'BASIC',
c_service_full TYPE {{p}}groom-service VALUE 'FULL',
c_coat_long TYPE {{p}}groom-coat VALUE 'LONG',
c_coat_curly TYPE {{p}}groom-coat VALUE 'CURLY',
c_charge_basic TYPE ty_charge VALUE '30.00',
c_charge_full TYPE ty_charge VALUE '50.00',
c_surch_long TYPE ty_charge VALUE '10.00',
c_surch_curly TYPE ty_charge VALUE '15.00',
c_surch_heavy TYPE ty_charge VALUE '20.00',
c_discount TYPE ty_charge VALUE '5.00',
c_heavy_kg TYPE {{p}}groom-weight_kg VALUE '25.0'.
METHODS bill
IMPORTING iv_date TYPE d
it_pet TYPE tt_pet
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS charge_of
IMPORTING is_groom TYPE {{p}}groom
RETURNING VALUE(rv_charge) TYPE ty_charge.
ENDCLASS.
CLASS lcl_groom_bill IMPLEMENTATION.
METHOD bill.
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
SELECT *
FROM {{p}}groom
WHERE visit_date = @iv_date
OR pet IN @it_pet
ORDER BY groom_id
INTO TABLE @lt_groom.
rt_lines = VALUE #(
FOR ls_groom IN lt_groom
( groom_id = ls_groom-groom_id
pet = ls_groom-pet
service = ls_groom-service
charge = charge_of( ls_groom ) ) ).
ENDMETHOD.
METHOD charge_of.
IF is_groom-service = c_service_full.
rv_charge = c_charge_full.
ELSEIF is_groom-service = c_service_basic.
rv_charge = c_charge_basic.
ENDIF.
IF is_groom-coat = c_coat_long.
rv_charge = rv_charge + c_surch_long.
ELSEIF is_groom-coat = c_coat_curly.
rv_charge = rv_charge + c_surch_curly.
ENDIF.
IF is_groom-weight_kg > c_heavy_kg.
rv_charge = rv_charge + c_surch_heavy.
ENDIF.
IF is_groom-service = c_service_full AND is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_discount.
ENDIF.
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_msg).
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_bill) = NEW lcl_groom_bill( ).
DATA(gt_lines) = go_bill->bill( iv_date = p_date it_pet = s_pet[] ).
go_bill->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_bill 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 charges FOR TESTING.
METHODS pet_filter FOR TESTING.
ENDCLASS.
CLASS ltc_bill IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GROOM' ) ) ).
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
lt_groom = VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '10.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'CAT' coat = 'CURLY' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'FULL' visit_date = '20260331' ) ).
go_env->insert_test_data( lt_groom ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD charges.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill( iv_date = '20260401' it_pet = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '30.00' act = |{ lt_lines[ 1 ]-charge }| ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 2 ]-charge }| ).
ENDMETHOD.
METHOD pet_filter.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill(
iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 1 ]-charge }| ).
ENDMETHOD.
ENDCLASS.

137
tasks_gen/train/G1130/faulty/m1_groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,137 @@
REPORT {{p}}groom_bill_old.
TYPES: ty_charge TYPE p LENGTH 9 DECIMALS 2,
BEGIN OF ty_line,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE ty_charge,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_pet TYPE RANGE OF {{p}}groom-pet.
DATA gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
CLASS lcl_groom_bill DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS: c_service_basic TYPE {{p}}groom-service VALUE 'BASIC',
c_service_full TYPE {{p}}groom-service VALUE 'FULL',
c_coat_long TYPE {{p}}groom-coat VALUE 'LONG',
c_coat_curly TYPE {{p}}groom-coat VALUE 'CURLY',
c_charge_basic TYPE ty_charge VALUE '30.00',
c_charge_full TYPE ty_charge VALUE '50.00',
c_surch_long TYPE ty_charge VALUE '10.00',
c_surch_curly TYPE ty_charge VALUE '15.00',
c_surch_heavy TYPE ty_charge VALUE '20.00',
c_discount TYPE ty_charge VALUE '5.00',
c_heavy_kg TYPE {{p}}groom-weight_kg VALUE '25.0'.
METHODS bill
IMPORTING iv_date TYPE d
it_pet TYPE tt_pet
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS charge_of
IMPORTING is_groom TYPE {{p}}groom
RETURNING VALUE(rv_charge) TYPE ty_charge.
ENDCLASS.
CLASS lcl_groom_bill IMPLEMENTATION.
METHOD bill.
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
SELECT *
FROM {{p}}groom
WHERE visit_date = @iv_date
AND pet IN @it_pet
ORDER BY groom_id
INTO TABLE @lt_groom.
rt_lines = VALUE #(
FOR ls_groom IN lt_groom
( groom_id = ls_groom-groom_id
pet = ls_groom-pet
service = ls_groom-service
charge = charge_of( ls_groom ) ) ).
ENDMETHOD.
METHOD charge_of.
IF is_groom-service = c_service_full.
rv_charge = c_charge_full.
ELSEIF is_groom-service = c_service_basic.
rv_charge = c_charge_basic.
ENDIF.
IF is_groom-coat <> c_coat_long.
rv_charge = rv_charge + c_surch_long.
ELSEIF is_groom-coat = c_coat_curly.
rv_charge = rv_charge + c_surch_curly.
ENDIF.
IF is_groom-weight_kg > c_heavy_kg.
rv_charge = rv_charge + c_surch_heavy.
ENDIF.
IF is_groom-service = c_service_full AND is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_discount.
ENDIF.
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_msg).
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_bill) = NEW lcl_groom_bill( ).
DATA(gt_lines) = go_bill->bill( iv_date = p_date it_pet = s_pet[] ).
go_bill->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_bill 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 charges FOR TESTING.
METHODS pet_filter FOR TESTING.
ENDCLASS.
CLASS ltc_bill IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GROOM' ) ) ).
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
lt_groom = VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '10.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'CAT' coat = 'CURLY' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'FULL' visit_date = '20260331' ) ).
go_env->insert_test_data( lt_groom ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD charges.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill( iv_date = '20260401' it_pet = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '30.00' act = |{ lt_lines[ 1 ]-charge }| ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 2 ]-charge }| ).
ENDMETHOD.
METHOD pet_filter.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill(
iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 1 ]-charge }| ).
ENDMETHOD.
ENDCLASS.

137
tasks_gen/train/G1130/faulty/m2_groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,137 @@
REPORT {{p}}groom_bill_old.
TYPES: ty_charge TYPE p LENGTH 9 DECIMALS 2,
BEGIN OF ty_line,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE ty_charge,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_pet TYPE RANGE OF {{p}}groom-pet.
DATA gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
CLASS lcl_groom_bill DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS: c_service_basic TYPE {{p}}groom-service VALUE 'BASIC',
c_service_full TYPE {{p}}groom-service VALUE 'FULL',
c_coat_long TYPE {{p}}groom-coat VALUE 'LONG',
c_coat_curly TYPE {{p}}groom-coat VALUE 'CURLY',
c_charge_basic TYPE ty_charge VALUE '30.00',
c_charge_full TYPE ty_charge VALUE '50.00',
c_surch_long TYPE ty_charge VALUE '10.00',
c_surch_curly TYPE ty_charge VALUE '15.00',
c_surch_heavy TYPE ty_charge VALUE '20.00',
c_discount TYPE ty_charge VALUE '5.00',
c_heavy_kg TYPE {{p}}groom-weight_kg VALUE '25.0'.
METHODS bill
IMPORTING iv_date TYPE d
it_pet TYPE tt_pet
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS charge_of
IMPORTING is_groom TYPE {{p}}groom
RETURNING VALUE(rv_charge) TYPE ty_charge.
ENDCLASS.
CLASS lcl_groom_bill IMPLEMENTATION.
METHOD bill.
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
SELECT *
FROM {{p}}groom
WHERE visit_date = @iv_date
AND pet IN @it_pet
ORDER BY groom_id
INTO TABLE @lt_groom.
rt_lines = VALUE #(
FOR ls_groom IN lt_groom
( groom_id = ls_groom-groom_id
pet = ls_groom-pet
service = ls_groom-service
charge = charge_of( ls_groom ) ) ).
ENDMETHOD.
METHOD charge_of.
IF is_groom-service = c_service_full.
rv_charge = c_charge_full.
ELSEIF is_groom-service = c_service_basic.
rv_charge = c_charge_basic.
ENDIF.
IF is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_surch_long.
ELSEIF is_groom-coat = c_coat_curly.
rv_charge = rv_charge + c_surch_curly.
ENDIF.
IF is_groom-weight_kg > c_heavy_kg.
rv_charge = rv_charge + c_surch_heavy.
ENDIF.
IF is_groom-service = c_service_full AND is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_discount.
ENDIF.
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_msg).
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_bill) = NEW lcl_groom_bill( ).
DATA(gt_lines) = go_bill->bill( iv_date = p_date it_pet = s_pet[] ).
go_bill->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_bill 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 charges FOR TESTING.
METHODS pet_filter FOR TESTING.
ENDCLASS.
CLASS ltc_bill IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GROOM' ) ) ).
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
lt_groom = VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '10.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'CAT' coat = 'CURLY' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'FULL' visit_date = '20260331' ) ).
go_env->insert_test_data( lt_groom ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD charges.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill( iv_date = '20260401' it_pet = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '30.00' act = |{ lt_lines[ 1 ]-charge }| ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 2 ]-charge }| ).
ENDMETHOD.
METHOD pet_filter.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill(
iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 1 ]-charge }| ).
ENDMETHOD.
ENDCLASS.

137
tasks_gen/train/G1130/faulty/m3_groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,137 @@
REPORT {{p}}groom_bill_old.
TYPES: ty_charge TYPE p LENGTH 9 DECIMALS 2,
BEGIN OF ty_line,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE ty_charge,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_pet TYPE RANGE OF {{p}}groom-pet.
DATA gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
CLASS lcl_groom_bill DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS: c_service_basic TYPE {{p}}groom-service VALUE 'BASIC',
c_service_full TYPE {{p}}groom-service VALUE 'FULL',
c_coat_long TYPE {{p}}groom-coat VALUE 'LONG',
c_coat_curly TYPE {{p}}groom-coat VALUE 'CURLY',
c_charge_basic TYPE ty_charge VALUE '30.00',
c_charge_full TYPE ty_charge VALUE '50.00',
c_surch_long TYPE ty_charge VALUE '10.00',
c_surch_curly TYPE ty_charge VALUE '15.00',
c_surch_heavy TYPE ty_charge VALUE '20.00',
c_discount TYPE ty_charge VALUE '5.00',
c_heavy_kg TYPE {{p}}groom-weight_kg VALUE '25.0'.
METHODS bill
IMPORTING iv_date TYPE d
it_pet TYPE tt_pet
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS charge_of
IMPORTING is_groom TYPE {{p}}groom
RETURNING VALUE(rv_charge) TYPE ty_charge.
ENDCLASS.
CLASS lcl_groom_bill IMPLEMENTATION.
METHOD bill.
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
SELECT *
FROM {{p}}groom
WHERE visit_date = @iv_date
AND pet IN @it_pet
ORDER BY groom_id
INTO TABLE @lt_groom.
rt_lines = VALUE #(
FOR ls_groom IN lt_groom
( groom_id = ls_groom-groom_id
pet = ls_groom-pet
service = ls_groom-service
charge = charge_of( ls_groom ) ) ).
ENDMETHOD.
METHOD charge_of.
IF is_groom-service = c_service_full.
rv_charge = c_charge_full.
ELSEIF is_groom-service = c_service_basic.
rv_charge = c_charge_basic.
ENDIF.
IF is_groom-coat = c_coat_long.
rv_charge = rv_charge + c_surch_long.
ELSEIF is_groom-coat = c_coat_curly.
rv_charge = rv_charge + c_surch_curly.
ENDIF.
IF is_groom-weight_kg <= c_heavy_kg.
rv_charge = rv_charge + c_surch_heavy.
ENDIF.
IF is_groom-service = c_service_full AND is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_discount.
ENDIF.
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_msg).
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_bill) = NEW lcl_groom_bill( ).
DATA(gt_lines) = go_bill->bill( iv_date = p_date it_pet = s_pet[] ).
go_bill->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_bill 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 charges FOR TESTING.
METHODS pet_filter FOR TESTING.
ENDCLASS.
CLASS ltc_bill IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GROOM' ) ) ).
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
lt_groom = VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '10.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'CAT' coat = 'CURLY' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'FULL' visit_date = '20260331' ) ).
go_env->insert_test_data( lt_groom ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD charges.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill( iv_date = '20260401' it_pet = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '30.00' act = |{ lt_lines[ 1 ]-charge }| ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 2 ]-charge }| ).
ENDMETHOD.
METHOD pet_filter.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill(
iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 1 ]-charge }| ).
ENDMETHOD.
ENDCLASS.

137
tasks_gen/train/G1130/faulty/m4_groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,137 @@
REPORT {{p}}groom_bill_old.
TYPES: ty_charge TYPE p LENGTH 9 DECIMALS 2,
BEGIN OF ty_line,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE ty_charge,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_pet TYPE RANGE OF {{p}}groom-pet.
DATA gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
CLASS lcl_groom_bill DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS: c_service_basic TYPE {{p}}groom-service VALUE 'BASIC',
c_service_full TYPE {{p}}groom-service VALUE 'FULL',
c_coat_long TYPE {{p}}groom-coat VALUE 'LONG',
c_coat_curly TYPE {{p}}groom-coat VALUE 'CURLY',
c_charge_basic TYPE ty_charge VALUE '30.00',
c_charge_full TYPE ty_charge VALUE '50.00',
c_surch_long TYPE ty_charge VALUE '10.00',
c_surch_curly TYPE ty_charge VALUE '15.00',
c_surch_heavy TYPE ty_charge VALUE '20.00',
c_discount TYPE ty_charge VALUE '5.00',
c_heavy_kg TYPE {{p}}groom-weight_kg VALUE '25.0'.
METHODS bill
IMPORTING iv_date TYPE d
it_pet TYPE tt_pet
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS charge_of
IMPORTING is_groom TYPE {{p}}groom
RETURNING VALUE(rv_charge) TYPE ty_charge.
ENDCLASS.
CLASS lcl_groom_bill IMPLEMENTATION.
METHOD bill.
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
SELECT *
FROM {{p}}groom
WHERE visit_date = @iv_date
AND pet IN @it_pet
ORDER BY groom_id
INTO TABLE @lt_groom.
rt_lines = VALUE #(
FOR ls_groom IN lt_groom
( groom_id = ls_groom-groom_id
pet = ls_groom-pet
service = ls_groom-service
charge = charge_of( ls_groom ) ) ).
ENDMETHOD.
METHOD charge_of.
IF is_groom-service = c_service_full.
rv_charge = c_charge_full.
ELSEIF is_groom-service = c_service_basic.
rv_charge = c_charge_basic.
ENDIF.
IF is_groom-coat = c_coat_long.
rv_charge = rv_charge + c_surch_long.
ELSEIF is_groom-coat = c_coat_curly.
rv_charge = rv_charge + c_surch_curly.
ENDIF.
IF is_groom-weight_kg > c_heavy_kg.
rv_charge = rv_charge + c_surch_heavy.
ENDIF.
IF is_groom-service = c_service_full OR is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_discount.
ENDIF.
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_msg).
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_bill) = NEW lcl_groom_bill( ).
DATA(gt_lines) = go_bill->bill( iv_date = p_date it_pet = s_pet[] ).
go_bill->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_bill 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 charges FOR TESTING.
METHODS pet_filter FOR TESTING.
ENDCLASS.
CLASS ltc_bill IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GROOM' ) ) ).
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
lt_groom = VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '10.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'CAT' coat = 'CURLY' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'FULL' visit_date = '20260331' ) ).
go_env->insert_test_data( lt_groom ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD charges.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill( iv_date = '20260401' it_pet = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '30.00' act = |{ lt_lines[ 1 ]-charge }| ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 2 ]-charge }| ).
ENDMETHOD.
METHOD pet_filter.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill(
iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 1 ]-charge }| ).
ENDMETHOD.
ENDCLASS.

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

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

94
tasks_gen/train/G1130/hidden/groom_hidden.clas.abap Normal file
View File

@@ -0,0 +1,94 @@
CLASS {{p}}groom_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
TYPES tt_pet TYPE RANGE OF {{p}}groom-pet.
METHODS run IMPORTING iv_date TYPE d it_pet TYPE tt_pet OPTIONAL
RETURNING VALUE(rr_data) TYPE REF TO data.
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 lines_of IMPORTING ir_data TYPE REF TO data RETURNING VALUE(rv_lines) TYPE i.
METHODS all_orders FOR TESTING.
METHODS pet_filter FOR TESTING.
METHODS other_date FOR TESTING.
METHODS basic_charge FOR TESTING.
METHODS full_charge FOR TESTING.
METHODS heavy_pet FOR TESTING.
METHODS long_coat FOR TESTING.
METHODS no_orders FOR TESTING.
ENDCLASS.
CLASS {{p}}groom_hidden IMPLEMENTATION.
METHOD run.
cl_salv_bs_runtime_info=>set( display = abap_false metadata = abap_false data = abap_true ).
SUBMIT {{p}}groom_bill_old WITH p_date = iv_date WITH s_pet IN it_pet 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.
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 } missing| ).
rv_value = condense( CONV string( <lv_value> ) ).
ENDMETHOD.
METHOD all_orders.
DATA(lr_data) = run( '20260401' ).
cl_abap_unit_assert=>assert_equals( exp = 6 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `1` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `GROOM_ID` ) ).
cl_abap_unit_assert=>assert_equals( exp = `DOG` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `PET` ) ).
ENDMETHOD.
METHOD pet_filter.
DATA(lr_data) = run( iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `30.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `CHARGE` ) ).
cl_abap_unit_assert=>assert_equals( exp = `65.00` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `CHARGE` ) ).
ENDMETHOD.
METHOD other_date.
DATA(lr_data) = run( '20260331' ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `40.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `CHARGE` ) ).
ENDMETHOD.
METHOD basic_charge.
DATA(lr_data) = run( '20260401' ).
cl_abap_unit_assert=>assert_equals( exp = `BASIC` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `SERVICE` ) ).
cl_abap_unit_assert=>assert_equals( exp = `30.00` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `CHARGE` ) ).
ENDMETHOD.
METHOD full_charge.
DATA(lr_data) = run( '20260401' ).
cl_abap_unit_assert=>assert_equals( exp = `65.00` act = value_of( ir_data = lr_data iv_row = 4 iv_col = `CHARGE` ) ).
ENDMETHOD.
METHOD heavy_pet.
DATA(lr_data) = run( '20260401' ).
cl_abap_unit_assert=>assert_equals( exp = `65.00` act = value_of( ir_data = lr_data iv_row = 5 iv_col = `CHARGE` ) ).
cl_abap_unit_assert=>assert_equals( exp = `70.00` act = value_of( ir_data = lr_data iv_row = 6 iv_col = `CHARGE` ) ).
ENDMETHOD.
METHOD long_coat.
DATA(lr_data) = run( '20260401' ).
cl_abap_unit_assert=>assert_equals( exp = `75.00` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `CHARGE` ) ).
ENDMETHOD.
METHOD no_orders.
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines_of( run( '20260101' ) ) ).
ENDMETHOD.
ENDCLASS.

72
tasks_gen/train/G1130/mutation.json Normal file
View File

@@ -0,0 +1,72 @@
{
"task": "G1130",
"mutants": [
{
"object": "{{P}}GROOM_BILL_OLD",
"mutant": "line 50: AND -> OR (logic)",
"status": "killed",
"hidden": "3/8",
"failed_tests": [
"ALL_ORDERS",
"HEAVY_PET",
"NO_ORDERS",
"OTHER_DATE",
"PET_FILTER"
]
},
{
"object": "{{P}}GROOM_BILL_OLD",
"mutant": "line 69: = -> <> (eq)",
"status": "killed",
"hidden": "2/8",
"failed_tests": [
"BASIC_CHARGE",
"FULL_CHARGE",
"HEAVY_PET",
"LONG_COAT",
"OTHER_DATE",
"PET_FILTER"
]
},
{
"object": "{{P}}GROOM_BILL_OLD",
"mutant": "line 70: + -> - (arith)",
"status": "killed",
"hidden": "6/8",
"failed_tests": [
"LONG_COAT",
"OTHER_DATE"
]
},
{
"object": "{{P}}GROOM_BILL_OLD",
"mutant": "line 75: > -> <= (rel)",
"status": "killed",
"hidden": "2/8",
"failed_tests": [
"BASIC_CHARGE",
"FULL_CHARGE",
"HEAVY_PET",
"LONG_COAT",
"OTHER_DATE",
"PET_FILTER"
]
},
{
"object": "{{P}}GROOM_BILL_OLD",
"mutant": "line 79: AND -> OR (logic)",
"status": "killed",
"hidden": "4/8",
"failed_tests": [
"FULL_CHARGE",
"HEAVY_PET",
"OTHER_DATE",
"PET_FILTER"
]
}
],
"valid": 5,
"killed": 5,
"kill_rate": 1.0,
"ok": true
}

137
tasks_gen/train/G1130/reference/groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,137 @@
REPORT {{p}}groom_bill_old.
TYPES: ty_charge TYPE p LENGTH 9 DECIMALS 2,
BEGIN OF ty_line,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE ty_charge,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
tt_pet TYPE RANGE OF {{p}}groom-pet.
DATA gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
CLASS lcl_groom_bill DEFINITION FINAL.
PUBLIC SECTION.
CONSTANTS: c_service_basic TYPE {{p}}groom-service VALUE 'BASIC',
c_service_full TYPE {{p}}groom-service VALUE 'FULL',
c_coat_long TYPE {{p}}groom-coat VALUE 'LONG',
c_coat_curly TYPE {{p}}groom-coat VALUE 'CURLY',
c_charge_basic TYPE ty_charge VALUE '30.00',
c_charge_full TYPE ty_charge VALUE '50.00',
c_surch_long TYPE ty_charge VALUE '10.00',
c_surch_curly TYPE ty_charge VALUE '15.00',
c_surch_heavy TYPE ty_charge VALUE '20.00',
c_discount TYPE ty_charge VALUE '5.00',
c_heavy_kg TYPE {{p}}groom-weight_kg VALUE '25.0'.
METHODS bill
IMPORTING iv_date TYPE d
it_pet TYPE tt_pet
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
METHODS charge_of
IMPORTING is_groom TYPE {{p}}groom
RETURNING VALUE(rv_charge) TYPE ty_charge.
ENDCLASS.
CLASS lcl_groom_bill IMPLEMENTATION.
METHOD bill.
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
SELECT *
FROM {{p}}groom
WHERE visit_date = @iv_date
AND pet IN @it_pet
ORDER BY groom_id
INTO TABLE @lt_groom.
rt_lines = VALUE #(
FOR ls_groom IN lt_groom
( groom_id = ls_groom-groom_id
pet = ls_groom-pet
service = ls_groom-service
charge = charge_of( ls_groom ) ) ).
ENDMETHOD.
METHOD charge_of.
IF is_groom-service = c_service_full.
rv_charge = c_charge_full.
ELSEIF is_groom-service = c_service_basic.
rv_charge = c_charge_basic.
ENDIF.
IF is_groom-coat = c_coat_long.
rv_charge = rv_charge + c_surch_long.
ELSEIF is_groom-coat = c_coat_curly.
rv_charge = rv_charge + c_surch_curly.
ENDIF.
IF is_groom-weight_kg > c_heavy_kg.
rv_charge = rv_charge + c_surch_heavy.
ENDIF.
IF is_groom-service = c_service_full AND is_groom-coat = c_coat_long.
rv_charge = rv_charge - c_discount.
ENDIF.
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_msg).
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_bill) = NEW lcl_groom_bill( ).
DATA(gt_lines) = go_bill->bill( iv_date = p_date it_pet = s_pet[] ).
go_bill->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_bill 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 charges FOR TESTING.
METHODS pet_filter FOR TESTING.
ENDCLASS.
CLASS ltc_bill IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GROOM' ) ) ).
DATA lt_groom TYPE STANDARD TABLE OF {{p}}groom WITH EMPTY KEY.
lt_groom = VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '10.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'CAT' coat = 'CURLY' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'FULL' visit_date = '20260331' ) ).
go_env->insert_test_data( lt_groom ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD charges.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill( iv_date = '20260401' it_pet = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '30.00' act = |{ lt_lines[ 1 ]-charge }| ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 2 ]-charge }| ).
ENDMETHOD.
METHOD pet_filter.
DATA(lt_lines) = NEW lcl_groom_bill( )->bill(
iv_date = '20260401' it_pet = VALUE #( ( sign = 'I' option = 'EQ' low = 'CAT' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = '85.00' act = |{ lt_lines[ 1 ]-charge }| ).
ENDMETHOD.
ENDCLASS.

14
tasks_gen/train/G1130/seed/groom.tabl.asabap Normal file
View File

@@ -0,0 +1,14 @@
@EndUserText.label : 'Grooming orders'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #RESTRICTED
define table {{p}}groom {
key client : abap.clnt not null;
key groom_id : abap.int4 not null;
pet : abap.char(10);
coat : abap.char(8);
weight_kg : abap.dec(5,1);
service : abap.char(6);
visit_date : abap.dats;
}

59
tasks_gen/train/G1130/seed/groom_bill_old.prog.abap Normal file
View File

@@ -0,0 +1,59 @@
REPORT {{p}}groom_bill_old.
DATA: gv_pet TYPE {{p}}groom-pet.
PARAMETERS p_date TYPE d OBLIGATORY.
SELECT-OPTIONS s_pet FOR gv_pet.
TYPES: BEGIN OF ty_out,
groom_id TYPE {{p}}groom-groom_id,
pet TYPE {{p}}groom-pet,
service TYPE {{p}}groom-service,
charge TYPE p LENGTH 9 DECIMALS 2,
END OF ty_out.
DATA: gt_out TYPE STANDARD TABLE OF ty_out,
gs_out TYPE ty_out,
gt_groom TYPE STANDARD TABLE OF {{p}}groom,
gs_groom TYPE {{p}}groom.
START-OF-SELECTION.
SELECT * FROM {{p}}groom INTO TABLE gt_groom
WHERE visit_date = p_date AND pet IN s_pet.
LOOP AT gt_groom INTO gs_groom.
CLEAR gs_out.
gs_out-groom_id = gs_groom-groom_id.
gs_out-pet = gs_groom-pet.
gs_out-service = gs_groom-service.
IF gs_groom-service = 'BASIC'.
gs_out-charge = 30.
ELSEIF gs_groom-service = 'FULL'.
gs_out-charge = 50.
ELSE.
gs_out-charge = 0.
ENDIF.
IF gs_groom-coat = 'LONG'.
gs_out-charge = gs_out-charge + 10.
ELSEIF gs_groom-coat = 'CURLY'.
gs_out-charge = gs_out-charge + 15.
ENDIF.
IF gs_groom-weight_kg > 25.
gs_out-charge = gs_out-charge + 20.
ENDIF.
IF gs_groom-service = 'FULL' AND gs_groom-coat = 'LONG'.
gs_out-charge = gs_out-charge - 5.
ENDIF.
APPEND gs_out TO gt_out.
ENDLOOP.
SORT gt_out BY groom_id.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = DATA(lo_alv)
CHANGING t_table = gt_out ).
lo_alv->display( ).
CATCH cx_salv_msg.
ENDTRY.

19
tasks_gen/train/G1130/seed/groom_seed.clas.abap Normal file
View File

@@ -0,0 +1,19 @@
CLASS {{p}}groom_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun.
ENDCLASS.
CLASS {{p}}groom_seed IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
DELETE FROM {{p}}groom.
INSERT {{p}}groom FROM TABLE @( VALUE #(
( groom_id = 1 pet = 'DOG' coat = 'SHORT' weight_kg = '12.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 2 pet = 'DOG' coat = 'LONG' weight_kg = '30.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 3 pet = 'CAT' coat = 'SHORT' weight_kg = '4.5' service = 'BASIC' visit_date = '20260401' )
( groom_id = 4 pet = 'CAT' coat = 'CURLY' weight_kg = '6.0' service = 'FULL' visit_date = '20260401' )
( groom_id = 5 pet = 'DOG' coat = 'CURLY' weight_kg = '28.0' service = 'BASIC' visit_date = '20260401' )
( groom_id = 6 pet = 'CAT' coat = 'LONG' weight_kg = '5.0' service = 'BASIC' visit_date = '20260331' )
( groom_id = 7 pet = 'DOG' coat = 'SHORT' weight_kg = '40.0' service = 'FULL' visit_date = '20260401' ) ) ).
out->write( sy-dbcnt ).
ENDMETHOD.
ENDCLASS.

41
tasks_gen/train/G1130/spec.md Normal file
View File

@@ -0,0 +1,41 @@
# 1. Goal
A pet grooming salon bills its customers for the grooming of their pets. The
salon uses the report {{P}}GROOM_BILL_OLD to see the charge of each grooming
order of one day.
# 2. Open questions
None.
# 3. Context
- The legacy report {{P}}GROOM_BILL_OLD exists in package $TMP. It is active.
It reads the table {{P}}GROOM and shows the result with CL_SALV_TABLE.
- The table {{P}}GROOM contains data. Fields: GROOM_ID (INT4, key),
PET (CHAR 10), COAT (CHAR 8), WEIGHT_KG (DEC 5,1), SERVICE (CHAR 6),
VISIT_DATE (DATS).
- The legacy report has a selection screen with the parameter P_DATE and the
select-option S_PET.
# 4. Contract
- Refactor the report {{P}}GROOM_BILL_OLD in package $TMP. The name stays the
same.
- The selection screen stays the same:
- Parameter P_DATE, type DATS, mandatory: the visit date to include.
- Select-option S_PET for the pet kind.
- The ALV output stays the same. The output table has these columns with these
names: GROOM_ID, PET, SERVICE, CHARGE.
# 5. Business rules
The behavior of the report stays the same. The rules are in the legacy code of
{{P}}GROOM_BILL_OLD. Read the legacy code and keep every rule.
# 6. Constraints
- Release target: 7.58.
- Coding standards: Clean ABAP. Read the data with one database access. Keep
every method below 40 statements. Do not use a database access in a loop.
- Out of scope: do not change {{P}}GROOM and {{P}}GROOM_SEED.
# 7. Acceptance
- The report is active and has no syntax error.
- The behavior of the report is unchanged.
- The hidden tests pass.
- Write ABAP Unit tests as local test classes in the report.

68
tasks_gen/train/G1130/task.json Normal file
View File

@@ -0,0 +1,68 @@
{
"id": "G1130",
"category": "E",
"object_type": "PROG",
"difficulty": 2,
"release_target": "v758",
"expected_outcome": "implement",
"budget": {
"max_tool_calls": 60,
"max_activations": 15
},
"seed": [
{
"type": "TABL",
"name": "{{P}}GROOM",
"file": "seed/groom.tabl.asabap",
"description": "Grooming orders of the pet grooming salon"
},
{
"type": "CLAS",
"name": "{{P}}GROOM_SEED",
"file": "seed/groom_seed.clas.abap",
"description": "Grooming seed data",
"run": true
},
{
"type": "PROG",
"name": "{{P}}GROOM_BILL_OLD",
"file": "seed/groom_bill_old.prog.abap",
"description": "Legacy grooming bill report"
}
],
"contract": [
{
"type": "PROG",
"name": "{{P}}GROOM_BILL_OLD",
"parameters": [
"p_date",
"s_pet"
]
}
],
"out_of_scope": [
"{{P}}GROOM",
"{{P}}GROOM_SEED"
],
"hidden_tests": [
{
"type": "CLAS",
"name": "{{P}}GROOM_HIDDEN",
"file": "hidden/groom_hidden.clas.abap",
"description": "Hidden tests for the grooming bill report"
}
],
"reference": [
{
"type": "PROG",
"name": "{{P}}GROOM_BILL_OLD",
"file": "reference/groom_bill_old.prog.abap",
"description": "Refactored grooming bill report"
}
],
"craft_checks": [
"db_operation_in_loop",
"method_length",
"clean_code_naming"
]
}