Stage 2 summary at 50 accepted trajectories

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

View File

@@ -0,0 +1,106 @@
REPORT {{p}}walker_stats.
DATA gv_walker TYPE {{p}}walk-walker.
DATA gv_date TYPE {{p}}walk-walk_date.
SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_walker FOR gv_walker.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS select_totals
IMPORTING it_date TYPE tt_date
it_walker TYPE tt_walker
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_totals.
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
FROM {{p}}walk
WHERE walk_date IN @it_date
OR walker IN @it_walker
AND status = 'F'
GROUP BY walker
HAVING COUNT( * ) >= 2
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
SORT rt_lines BY dist_m DESCENDING walker 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_totals( it_date = s_date[] it_walker = s_walker[] ).
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_walker FOR TESTING.
METHODS excludes_single FOR TESTING.
METHODS ignores_cancelled FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
lt_walk = VALUE #(
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
go_env->insert_test_data( lt_walk ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD totals_per_walker.
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
ENDMETHOD.
METHOD excludes_single.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
ENDMETHOD.
METHOD ignores_cancelled.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,106 @@
REPORT {{p}}walker_stats.
DATA gv_walker TYPE {{p}}walk-walker.
DATA gv_date TYPE {{p}}walk-walk_date.
SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_walker FOR gv_walker.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS select_totals
IMPORTING it_date TYPE tt_date
it_walker TYPE tt_walker
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_totals.
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
FROM {{p}}walk
WHERE walk_date IN @it_date
AND walker IN @it_walker
OR status = 'F'
GROUP BY walker
HAVING COUNT( * ) >= 2
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
SORT rt_lines BY dist_m DESCENDING walker 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_totals( it_date = s_date[] it_walker = s_walker[] ).
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_walker FOR TESTING.
METHODS excludes_single FOR TESTING.
METHODS ignores_cancelled FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
lt_walk = VALUE #(
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
go_env->insert_test_data( lt_walk ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD totals_per_walker.
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
ENDMETHOD.
METHOD excludes_single.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
ENDMETHOD.
METHOD ignores_cancelled.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,106 @@
REPORT {{p}}walker_stats.
DATA gv_walker TYPE {{p}}walk-walker.
DATA gv_date TYPE {{p}}walk-walk_date.
SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_walker FOR gv_walker.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS select_totals
IMPORTING it_date TYPE tt_date
it_walker TYPE tt_walker
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_totals.
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
FROM {{p}}walk
WHERE walk_date IN @it_date
AND walker IN @it_walker
AND status <> 'F'
GROUP BY walker
HAVING COUNT( * ) >= 2
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
SORT rt_lines BY dist_m DESCENDING walker 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_totals( it_date = s_date[] it_walker = s_walker[] ).
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_walker FOR TESTING.
METHODS excludes_single FOR TESTING.
METHODS ignores_cancelled FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
lt_walk = VALUE #(
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
go_env->insert_test_data( lt_walk ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD totals_per_walker.
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
ENDMETHOD.
METHOD excludes_single.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
ENDMETHOD.
METHOD ignores_cancelled.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,106 @@
REPORT {{p}}walker_stats.
DATA gv_walker TYPE {{p}}walk-walker.
DATA gv_date TYPE {{p}}walk-walk_date.
SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_walker FOR gv_walker.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS select_totals
IMPORTING it_date TYPE tt_date
it_walker TYPE tt_walker
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_totals.
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
FROM {{p}}walk
WHERE walk_date IN @it_date
AND walker IN @it_walker
AND status = 'F'
GROUP BY walker
HAVING COUNT( * ) < 2
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
SORT rt_lines BY dist_m DESCENDING walker 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_totals( it_date = s_date[] it_walker = s_walker[] ).
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_walker FOR TESTING.
METHODS excludes_single FOR TESTING.
METHODS ignores_cancelled FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
lt_walk = VALUE #(
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
go_env->insert_test_data( lt_walk ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD totals_per_walker.
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
ENDMETHOD.
METHOD excludes_single.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
ENDMETHOD.
METHOD ignores_cancelled.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,106 @@
REPORT {{p}}walker_stats.
DATA gv_walker TYPE {{p}}walk-walker.
DATA gv_date TYPE {{p}}walk-walk_date.
SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_walker FOR gv_walker.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS select_totals
IMPORTING it_date TYPE tt_date
it_walker TYPE tt_walker
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_totals.
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
FROM {{p}}walk
WHERE walk_date IN @it_date
AND walker IN @it_walker
AND status = 'F'
GROUP BY walker
HAVING COUNT( * ) >= 3
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
SORT rt_lines BY dist_m DESCENDING walker 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_totals( it_date = s_date[] it_walker = s_walker[] ).
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_walker FOR TESTING.
METHODS excludes_single FOR TESTING.
METHODS ignores_cancelled FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
lt_walk = VALUE #(
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
go_env->insert_test_data( lt_walk ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD totals_per_walker.
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
ENDMETHOD.
METHOD excludes_single.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
ENDMETHOD.
METHOD ignores_cancelled.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,33 @@
{
"id": "G1132",
"pool": "train",
"object_type": "PROG",
"category": "B",
"attempts": [
{
"stage": "bundle",
"errors": [
"Too close to task G0160 (similarity spec 0.61, rules 0.43, names 1.00). Choose a different business topic and different object names."
],
"by_check": {
"extra": 1
}
},
{
"stage": "validate",
"oracle": 0,
"null": 0
},
{
"stage": "validate",
"oracle": 100.0,
"null": 0,
"mutation": {
"valid": 5,
"killed": 5,
"ok": true
}
}
],
"accepted": true
}

View File

@@ -0,0 +1,102 @@
CLASS {{p}}walk_check DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS run
IMPORTING it_date TYPE tt_date OPTIONAL
it_walker TYPE tt_walker 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_walkers FOR TESTING.
METHODS sorted_by_dist FOR TESTING.
METHODS dist_and_walks FOR TESTING.
METHODS date_filter FOR TESTING.
METHODS walker_filter FOR TESTING.
METHODS cancelled_excluded FOR TESTING.
ENDCLASS.
CLASS {{p}}walk_check IMPLEMENTATION.
METHOD run.
cl_salv_bs_runtime_info=>set( display = abap_false metadata = abap_false data = abap_true ).
SUBMIT {{p}}walker_stats
WITH s_date IN it_date
WITH s_walker IN it_walker
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_walkers.
cl_abap_unit_assert=>assert_equals( exp = 3 act = lines_of( run( ) ) ).
ENDMETHOD.
METHOD sorted_by_dist.
DATA(lr_data) = run( ).
cl_abap_unit_assert=>assert_equals( exp = `W2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKER` ) ).
cl_abap_unit_assert=>assert_equals( exp = `W3` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `WALKER` ) ).
cl_abap_unit_assert=>assert_equals( exp = `W1` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `WALKER` ) ).
ENDMETHOD.
METHOD dist_and_walks.
DATA(lr_data) = run( ).
cl_abap_unit_assert=>assert_equals( exp = `10000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
cl_abap_unit_assert=>assert_equals( exp = `6500` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `DIST_M` ) ).
cl_abap_unit_assert=>assert_equals( exp = `3` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `WALKS` ) ).
ENDMETHOD.
METHOD date_filter.
DATA(lr_data) = run( it_date = VALUE #( ( sign = 'I' option = 'BT' low = '20260106' high = '20260110' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `W1` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKER` ) ).
cl_abap_unit_assert=>assert_equals( exp = `3500` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
ENDMETHOD.
METHOD walker_filter.
DATA(lr_data) = run( it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'W3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `10000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
ENDMETHOD.
METHOD cancelled_excluded.
DATA(lr_data) = run( it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'W2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `10000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,75 @@
{
"task": "G1132",
"mutants": [
{
"object": "{{P}}WALKER_STATS",
"mutant": "line 29: AND -> OR (logic)",
"status": "killed",
"hidden": "2/6",
"failed_tests": [
"CANCELLED_EXCLUDED",
"DATE_FILTER",
"DIST_AND_WALKS",
"WALKER_FILTER"
]
},
{
"object": "{{P}}WALKER_STATS",
"mutant": "line 30: AND -> OR (logic)",
"status": "killed",
"hidden": "2/6",
"failed_tests": [
"CANCELLED_EXCLUDED",
"DATE_FILTER",
"DIST_AND_WALKS",
"WALKER_FILTER"
]
},
{
"object": "{{P}}WALKER_STATS",
"mutant": "line 30: = -> <> (eq)",
"status": "killed",
"hidden": "0/6",
"failed_tests": [
"ALL_WALKERS",
"CANCELLED_EXCLUDED",
"DATE_FILTER",
"DIST_AND_WALKS",
"SORTED_BY_DIST",
"WALKER_FILTER"
]
},
{
"object": "{{P}}WALKER_STATS",
"mutant": "line 32: >= -> < (rel)",
"status": "killed",
"hidden": "0/6",
"failed_tests": [
"ALL_WALKERS",
"CANCELLED_EXCLUDED",
"DATE_FILTER",
"DIST_AND_WALKS",
"SORTED_BY_DIST",
"WALKER_FILTER"
]
},
{
"object": "{{P}}WALKER_STATS",
"mutant": "line 32: 2 -> 3 (const)",
"status": "killed",
"hidden": "0/6",
"failed_tests": [
"ALL_WALKERS",
"CANCELLED_EXCLUDED",
"DATE_FILTER",
"DIST_AND_WALKS",
"SORTED_BY_DIST",
"WALKER_FILTER"
]
}
],
"valid": 5,
"killed": 5,
"kill_rate": 1.0,
"ok": true
}

View File

@@ -0,0 +1,106 @@
REPORT {{p}}walker_stats.
DATA gv_walker TYPE {{p}}walk-walker.
DATA gv_date TYPE {{p}}walk-walk_date.
SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_walker FOR gv_walker.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
METHODS select_totals
IMPORTING it_date TYPE tt_date
it_walker TYPE tt_walker
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD select_totals.
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
FROM {{p}}walk
WHERE walk_date IN @it_date
AND walker IN @it_walker
AND status = 'F'
GROUP BY walker
HAVING COUNT( * ) >= 2
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
SORT rt_lines BY dist_m DESCENDING walker 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_totals( it_date = s_date[] it_walker = s_walker[] ).
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_walker FOR TESTING.
METHODS excludes_single FOR TESTING.
METHODS ignores_cancelled FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
lt_walk = VALUE #(
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
go_env->insert_test_data( lt_walk ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD totals_per_walker.
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
ENDMETHOD.
METHOD excludes_single.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
ENDMETHOD.
METHOD ignores_cancelled.
DATA(lt_lines) = NEW lcl_report( )->select_totals(
it_date = VALUE #( )
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,13 @@
@EndUserText.label : 'Dog walks'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #RESTRICTED
define table {{p}}walk {
key client : abap.clnt not null;
key walk_id : abap.int4 not null;
walker : abap.char(6);
walk_date : abap.dats;
dist_m : abap.int4;
status : abap.char(1);
}

View File

@@ -0,0 +1,21 @@
CLASS {{p}}walk_fill DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun.
ENDCLASS.
CLASS {{p}}walk_fill IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
DELETE FROM {{p}}walk.
INSERT {{p}}walk FROM TABLE @( VALUE #(
( walk_id = 1 walker = 'W1' walk_date = '20260105' dist_m = 3000 status = 'F' )
( walk_id = 2 walker = 'W1' walk_date = '20260106' dist_m = 2500 status = 'F' )
( walk_id = 3 walker = 'W2' walk_date = '20260105' dist_m = 8000 status = 'F' )
( walk_id = 4 walker = 'W2' walk_date = '20260107' dist_m = 1000 status = 'X' )
( walk_id = 5 walker = 'W3' walk_date = '20260105' dist_m = 5000 status = 'F' )
( walk_id = 6 walker = 'W3' walk_date = '20260106' dist_m = 5000 status = 'F' )
( walk_id = 7 walker = 'W4' walk_date = '20260108' dist_m = 9000 status = 'F' )
( walk_id = 8 walker = 'W2' walk_date = '20260109' dist_m = 2000 status = 'F' )
( walk_id = 9 walker = 'W1' walk_date = '20260110' dist_m = 1000 status = 'F' ) ) ).
out->write( sy-dbcnt ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,10 @@
@EndUserText.label : 'Output structure of the walk list'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #RESTRICTED
define table {{p}}walksum {
key walker : abap.char(6) not null;
dist_m : abap.int4;
walks : abap.int4;
}

View File

@@ -0,0 +1,45 @@
# 1. Goal
A dog walking service wants a summary of its walks. The office uses the list to
see how far each walker went in the period.
# 2. Open questions
None.
# 3. Context
- Table {{P}}WALK exists in package $TMP and contains data.
Fields: WALK_ID (INT4, key), WALKER (CHAR 6), WALK_DATE (DATS),
DIST_M (INT4, the distance of the walk in metres), STATUS (CHAR 1).
- STATUS has these values:
- 'F': the walk is finished.
- 'X': the walk is cancelled.
- Table {{P}}WALKSUM exists in package $TMP. It is the output structure of the
list. Fields: WALKER (CHAR 6, key), DIST_M (INT4), WALKS (INT4).
# 4. Contract
- Create the executable program {{P}}WALKER_STATS in package $TMP.
- Selection screen:
- Select-option S_DATE for WALK_DATE: the walk dates to include.
- Select-option S_WALKER for WALKER: the walkers to include.
- Show the result with CL_SALV_TABLE. The output table has the row type of
table {{P}}WALKSUM. The output columns are WALKER, DIST_M (the total distance
in metres) and WALKS (the number of walks).
# 5. Business rules
1. Include a walk only if WALK_DATE is in S_DATE, WALKER is in S_WALKER and
STATUS is 'F'.
2. An empty S_DATE or an empty S_WALKER does not restrict the result.
3. Show one line for each walker that has at least two included walks.
4. DIST_M is the sum of DIST_M of the included walks of the walker.
5. WALKS is the number of included walks of the walker.
6. Sort the lines by DIST_M, the highest number first. If two lines have the
same DIST_M, sort them by WALKER in ascending order.
# 6. Constraints
- Release target: SAP_BASIS 816 (ABAP Platform 2025).
- Coding standards: Clean ABAP. Read table {{P}}WALK with one database access.
- Out of scope: do not change {{P}}WALK and {{P}}WALKSUM.
# 7. Acceptance
- The program is active and has no syntax error.
- The hidden tests pass.
- Write ABAP Unit tests as local test classes in the program.

View File

@@ -0,0 +1,67 @@
{
"id": "G1132",
"category": "B",
"object_type": "PROG",
"difficulty": 2,
"release_target": "v816",
"expected_outcome": "implement",
"budget": {
"max_tool_calls": 60,
"max_activations": 15
},
"seed": [
{
"type": "TABL",
"name": "{{P}}WALK",
"file": "seed/walk.tabl.asabap",
"description": "Walks of the dog walking service"
},
{
"type": "TABL",
"name": "{{P}}WALKSUM",
"file": "seed/walksum.tabl.asabap",
"description": "Output structure of the walk list"
},
{
"type": "CLAS",
"name": "{{P}}WALK_FILL",
"file": "seed/walk_fill.clas.abap",
"description": "Walk seed data",
"run": true
}
],
"contract": [
{
"type": "PROG",
"name": "{{P}}WALKER_STATS",
"parameters": [
"s_date",
"s_walker"
]
}
],
"out_of_scope": [
"{{P}}WALK",
"{{P}}WALKSUM"
],
"hidden_tests": [
{
"type": "CLAS",
"name": "{{P}}WALK_CHECK",
"file": "hidden/walk_check.clas.abap",
"description": "Hidden tests for the report {{P}}WALKER_STATS"
}
],
"reference": [
{
"type": "PROG",
"name": "{{P}}WALKER_STATS",
"file": "reference/walker_stats.prog.abap",
"description": "Distance per walker"
}
],
"craft_checks": [
"db_operation_in_loop",
"method_length"
]
}