abap-llm/tasks_gen/eval/G0141/reference/news_dist_old.prog.abap

REPORT {{p}}news_dist_old.

TYPES ty_rate TYPE p LENGTH 8 DECIMALS 2.

TYPES: BEGIN OF ty_line,
         agent    TYPE {{p}}agent-agent_id,
         name     TYPE {{p}}agent-agent_name,
         district TYPE {{p}}agent-district,
         copies   TYPE i,
         returned TYPE i,
         rate     TYPE ty_rate,
       END OF ty_line.
TYPES tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
TYPES ty_date TYPE d.
TYPES tt_date TYPE RANGE OF ty_date.
TYPES ty_dist TYPE c LENGTH 4.
TYPES tt_dist TYPE RANGE OF ty_dist.

DATA gv_date TYPE ty_date.
DATA gv_dist TYPE ty_dist.

SELECT-OPTIONS s_date FOR gv_date.
SELECT-OPTIONS s_dist FOR gv_dist.

CLASS lcl_report DEFINITION FINAL.
  PUBLIC SECTION.
    METHODS select_lines
      IMPORTING it_date         TYPE tt_date
                it_dist         TYPE tt_dist
      RETURNING VALUE(rt_lines) TYPE tt_line.
    METHODS display
      CHANGING ct_lines TYPE tt_line.
  PRIVATE SECTION.
    METHODS add_rate
      CHANGING cs_line TYPE ty_line.
ENDCLASS.

CLASS lcl_report IMPLEMENTATION.
  METHOD select_lines.
    SELECT a~agent_id          AS agent,
           a~agent_name        AS name,
           a~district          AS district,
           SUM( d~del_copies ) AS copies,
           SUM( d~ret_copies ) AS returned
      FROM {{p}}agent AS a
      INNER JOIN {{p}}deliv AS d ON d~agent_id = a~agent_id
      WHERE d~del_date IN @it_date
        AND a~district IN @it_dist
      GROUP BY a~agent_id, a~agent_name, a~district
      INTO CORRESPONDING FIELDS OF TABLE @rt_lines.

    LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
      add_rate( CHANGING cs_line = <ls_line> ).
    ENDLOOP.

    SORT rt_lines BY rate DESCENDING agent ASCENDING.
  ENDMETHOD.

  METHOD add_rate.
    DATA lv_copies TYPE p LENGTH 15 DECIMALS 2.
    lv_copies = cs_line-copies.
    IF lv_copies > 0.
      cs_line-rate = cs_line-returned * 100 / lv_copies.
    ELSE.
      cs_line-rate = 0.
    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_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_lines( it_date = s_date[]
                                            it_dist = s_dist[] ).
  go_report->display( CHANGING ct_lines = gt_lines ).

CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS sums_per_agent FOR TESTING.
    METHODS rate_with_zero_copies FOR TESTING.
ENDCLASS.

CLASS ltc_report IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create(
      i_dependency_list = VALUE #( ( '{{P}}AGENT' ) ( '{{P}}DELIV' ) ) ).
    DATA lt_agent TYPE STANDARD TABLE OF {{p}}agent WITH EMPTY KEY.
    lt_agent = VALUE #( ( agent_id = 'A1' agent_name = 'One' district = 'N' )
                        ( agent_id = 'A2' agent_name = 'Two' district = 'S' ) ).
    go_env->insert_test_data( lt_agent ).
    DATA lt_deliv TYPE STANDARD TABLE OF {{p}}deliv WITH EMPTY KEY.
    lt_deliv = VALUE #( ( deliv_id = 1 agent_id = 'A1' del_date = '20260105' del_copies = 100 ret_copies = 5 )
                        ( deliv_id = 2 agent_id = 'A1' del_date = '20260112' del_copies = 100 ret_copies = 15 )
                        ( deliv_id = 3 agent_id = 'A2' del_date = '20260106' del_copies = 0 ret_copies = 0 ) ).
    go_env->insert_test_data( lt_deliv ).
  ENDMETHOD.

  METHOD class_teardown.
    go_env->destroy( ).
  ENDMETHOD.

  METHOD sums_per_agent.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( it_date = VALUE tt_date( )
                                                     it_dist = VALUE tt_dist( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 1 ]-agent ).
    cl_abap_unit_assert=>assert_equals( exp = 200 act = lt_lines[ 1 ]-copies ).
    cl_abap_unit_assert=>assert_equals( exp = 20 act = lt_lines[ 1 ]-returned ).
    cl_abap_unit_assert=>assert_equals( exp = '10.00' act = |{ lt_lines[ 1 ]-rate }| ).
  ENDMETHOD.

  METHOD rate_with_zero_copies.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( it_date = VALUE tt_date( )
                                                     it_dist = VALUE tt_dist( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'A2' act = lt_lines[ 2 ]-agent ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lt_lines[ 2 ]-copies ).
    cl_abap_unit_assert=>assert_equals( exp = '0.00' act = |{ lt_lines[ 2 ]-rate }| ).
  ENDMETHOD.
ENDCLASS.