03ab36149e
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
92 lines
3.0 KiB
ABAP
92 lines
3.0 KiB
ABAP
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 AND 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 OR 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.
|