FUNCTION {{p}}lift_stats
  IMPORTING
    iv_scans TYPE string
    iv_lifts TYPE string
  EXPORTING
    ev_rides TYPE i
    ev_passes TYPE i
    ev_report TYPE string
  EXCEPTIONS
    no_lifts.

  TYPES: BEGIN OF ty_lift,
           lift TYPE string,
           area TYPE string,
         END OF ty_lift,
         BEGIN OF ty_scan,
           pass TYPE string,
           lift TYPE string,
         END OF ty_scan,
         BEGIN OF ty_pass_area,
           pass TYPE string,
           area TYPE string,
         END OF ty_pass_area,
         BEGIN OF ty_pass,
           pass  TYPE string,
           rides TYPE i,
           areas TYPE i,
         END OF ty_pass,
         ty_lines TYPE STANDARD TABLE OF string WITH EMPTY KEY.

  DATA lt_lift_lines TYPE ty_lines.
  DATA lt_scan_lines TYPE ty_lines.
  DATA lt_lifts TYPE HASHED TABLE OF ty_lift WITH UNIQUE KEY lift.
  DATA lt_scans TYPE SORTED TABLE OF ty_scan WITH UNIQUE KEY pass lift.
  DATA lt_pass_areas TYPE SORTED TABLE OF ty_pass_area WITH UNIQUE KEY pass area.
  DATA lt_passes TYPE SORTED TABLE OF ty_pass WITH UNIQUE KEY pass.
  DATA ls_lift TYPE ty_lift.
  DATA ls_scan TYPE ty_scan.
  DATA ls_pass_area TYPE ty_pass_area.
  DATA lv_line TYPE string.
  DATA lv_key TYPE string.
  DATA lv_value TYPE string.
  DATA lv_sep TYPE string.

  SPLIT iv_lifts AT cl_abap_char_utilities=>newline INTO TABLE lt_lift_lines.
  LOOP AT lt_lift_lines INTO lv_line.
    SPLIT lv_line AT ';' INTO lv_key lv_value.
    IF lv_key IS INITIAL OR lv_value IS INITIAL OR lv_value CA ';'.
      CONTINUE.
    ENDIF.
    INSERT VALUE #( lift = lv_key area = lv_value ) INTO TABLE lt_lifts.
  ENDLOOP.

  IF lines( lt_lifts ) = 0.
    RAISE no_lifts.
  ENDIF.

  SPLIT iv_scans AT cl_abap_char_utilities=>newline INTO TABLE lt_scan_lines.
  LOOP AT lt_scan_lines INTO lv_line.
    SPLIT lv_line AT ';' INTO lv_key lv_value.
    IF lv_key IS INITIAL AND lv_value IS INITIAL OR lv_value CA ';'.
      CONTINUE.
    ENDIF.
    IF NOT line_exists( lt_lifts[ lift = lv_value ] ).
      CONTINUE.
    ENDIF.
    INSERT VALUE #( pass = lv_key lift = lv_value ) INTO TABLE lt_scans.
  ENDLOOP.

  LOOP AT lt_scans INTO ls_scan.
    READ TABLE lt_lifts INTO ls_lift WITH TABLE KEY lift = ls_scan-lift.
    INSERT VALUE #( pass = ls_scan-pass ) INTO TABLE lt_passes.
    READ TABLE lt_passes ASSIGNING FIELD-SYMBOL(<ls_pass>) WITH TABLE KEY pass = ls_scan-pass.
    <ls_pass>-rides = <ls_pass>-rides + 1.
    INSERT VALUE #( pass = ls_scan-pass area = ls_lift-area ) INTO TABLE lt_pass_areas.
  ENDLOOP.

  LOOP AT lt_pass_areas INTO ls_pass_area.
    READ TABLE lt_passes ASSIGNING FIELD-SYMBOL(<ls_area_pass>) WITH TABLE KEY pass = ls_pass_area-pass.
    <ls_area_pass>-areas = <ls_area_pass>-areas + 1.
  ENDLOOP.

  LOOP AT lt_passes ASSIGNING FIELD-SYMBOL(<ls_out>).
    ev_report = ev_report && lv_sep && |{ <ls_out>-pass };{ <ls_out>-rides };{ <ls_out>-areas }|.
    lv_sep = cl_abap_char_utilities=>newline.
  ENDLOOP.

  ev_rides = lines( lt_scans ).
  ev_passes = lines( lt_passes ).

ENDFUNCTION.