abap-llm/tasks_gen/eval/G0125/reference/flight_sum.prog.abap

REPORT {{p}}flight_sum.

DATA gv_dest TYPE {{p}}flight-dest.

PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_dest FOR gv_dest.

CLASS lcl_report DEFINITION FINAL.
  PUBLIC SECTION.
    TYPES:
      BEGIN OF ty_line,
        dest    TYPE {{p}}flight-dest,
        name    TYPE {{p}}airport-name,
        flights TYPE i,
        pax     TYPE {{p}}flight-pax,
      END OF ty_line,
      tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
    TYPES tt_dest TYPE RANGE OF {{p}}flight-dest.
    METHODS select_lines
      IMPORTING iv_from         TYPE d
                it_dest         TYPE tt_dest
      RETURNING VALUE(rt_lines) TYPE tt_line.
    METHODS display
      CHANGING ct_lines TYPE tt_line.
  PRIVATE SECTION.
    TYPES:
      BEGIN OF ty_total,
        dest         TYPE {{p}}flight-dest,
        flight_count TYPE i,
        pax_sum      TYPE {{p}}flight-pax,
      END OF ty_total,
      tt_total TYPE STANDARD TABLE OF ty_total WITH EMPTY KEY.
    TYPES:
      BEGIN OF ty_name,
        airport TYPE {{p}}airport-airport,
        name    TYPE {{p}}airport-name,
      END OF ty_name,
      tt_name TYPE SORTED TABLE OF ty_name WITH UNIQUE KEY airport.
    METHODS read_totals
      IMPORTING iv_from          TYPE d
                it_dest          TYPE tt_dest
      RETURNING VALUE(rt_totals) TYPE tt_total.
    METHODS read_names
      IMPORTING it_dest         TYPE tt_dest
      RETURNING VALUE(rt_names) TYPE tt_name.
    METHODS build_lines
      IMPORTING it_totals       TYPE tt_total
                it_names        TYPE tt_name
      RETURNING VALUE(rt_lines) TYPE tt_line.
ENDCLASS.

CLASS lcl_report IMPLEMENTATION.
  METHOD select_lines.
    DATA(lt_totals) = read_totals( iv_from = iv_from it_dest = it_dest ).
    rt_lines = build_lines( it_totals = lt_totals it_names = read_names( it_dest = it_dest ) ).
  ENDMETHOD.

  METHOD read_totals.
    SELECT dest, COUNT( * ) AS flight_count, SUM( pax ) AS pax_sum
      FROM {{p}}flight
      WHERE dest IN @it_dest
        AND flight_date >= @iv_from
      GROUP BY dest
      ORDER BY pax_sum DESCENDING, dest ASCENDING
      INTO CORRESPONDING FIELDS OF TABLE @rt_totals.
  ENDMETHOD.

  METHOD read_names.
    SELECT airport, name
      FROM {{p}}airport
      WHERE airport IN @it_dest
      INTO CORRESPONDING FIELDS OF TABLE @rt_names.
  ENDMETHOD.

  METHOD build_lines.
    LOOP AT it_totals INTO DATA(ls_total).
      DATA(ls_line) = VALUE ty_line( dest    = ls_total-dest
                                     flights = ls_total-flight_count
                                     pax     = ls_total-pax_sum ).
      READ TABLE it_names WITH TABLE KEY airport = ls_total-dest INTO DATA(ls_name).
      IF sy-subrc = 0.
        ls_line-name = ls_name-name.
      ELSE.
        ls_line-name = 'UNKNOWN'.
      ENDIF.
      APPEND ls_line TO rt_lines.
    ENDLOOP.
  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( iv_from = p_from it_dest = s_dest[] ).
  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_dest FOR TESTING.
    METHODS sorted_by_pax FOR TESTING.
    METHODS tie_break_by_dest FOR TESTING.
    METHODS airport_names FOR TESTING.
    METHODS unknown_name FOR TESTING.
    METHODS date_filter FOR TESTING.
    METHODS dest_filter FOR TESTING.
ENDCLASS.

CLASS ltc_report IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create(
      i_dependency_list = VALUE #( ( '{{P}}FLIGHT' ) ( '{{P}}AIRPORT' ) ) ).
    DATA lt_flight TYPE STANDARD TABLE OF {{p}}flight WITH EMPTY KEY.
    lt_flight = VALUE #( ( flight_id = 1 dest = 'AAA' flight_date = '20260110' pax = 100 )
                         ( flight_id = 2 dest = 'AAA' flight_date = '20260210' pax = 50 )
                         ( flight_id = 3 dest = 'BBB' flight_date = '20260115' pax = 300 )
                         ( flight_id = 4 dest = 'CCC' flight_date = '20260120' pax = 150 ) ).
    go_env->insert_test_data( lt_flight ).
    DATA lt_airport TYPE STANDARD TABLE OF {{p}}airport WITH EMPTY KEY.
    lt_airport = VALUE #( ( airport = 'AAA' name = 'ALPHA' ) ).
    go_env->insert_test_data( lt_airport ).
  ENDMETHOD.

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

  METHOD totals_per_dest.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( iv_from = '20260101' it_dest = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'BBB' act = lt_lines[ 1 ]-dest ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lt_lines[ 1 ]-flights ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}flight-pax( 300 ) act = lt_lines[ 1 ]-pax ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 2 ]-flights ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}flight-pax( 150 ) act = lt_lines[ 2 ]-pax ).
  ENDMETHOD.

  METHOD sorted_by_pax.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( iv_from = '20260101' it_dest = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'BBB' act = lt_lines[ 1 ]-dest ).
    cl_abap_unit_assert=>assert_equals( exp = 'CCC' act = lt_lines[ 3 ]-dest ).
  ENDMETHOD.

  METHOD tie_break_by_dest.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( iv_from = '20260101' it_dest = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'AAA' act = lt_lines[ 2 ]-dest ).
    cl_abap_unit_assert=>assert_equals( exp = 'CCC' act = lt_lines[ 3 ]-dest ).
  ENDMETHOD.

  METHOD airport_names.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( iv_from = '20260101' it_dest = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'ALPHA' act = lt_lines[ 2 ]-name ).
  ENDMETHOD.

  METHOD unknown_name.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( iv_from = '20260101' it_dest = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'UNKNOWN' act = lt_lines[ 1 ]-name ).
    cl_abap_unit_assert=>assert_equals( exp = 'UNKNOWN' act = lt_lines[ 3 ]-name ).
  ENDMETHOD.

  METHOD date_filter.
    DATA(lt_lines) = NEW lcl_report( )->select_lines( iv_from = '20260201' it_dest = VALUE #( ) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'AAA' act = lt_lines[ 1 ]-dest ).
    cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}flight-pax( 50 ) act = lt_lines[ 1 ]-pax ).
  ENDMETHOD.

  METHOD dest_filter.
    DATA(lt_lines) = NEW lcl_report( )->select_lines(
      iv_from = '20260101' it_dest = VALUE #( ( sign = 'I' option = 'EQ' low = 'AAA' ) ) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'AAA' act = lt_lines[ 1 ]-dest ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 1 ]-flights ).
  ENDMETHOD.
ENDCLASS.