Fix coverage with several contract classes; table annotation and file path checks; clean task dir on write

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat

tasks_gen/eval/G0123/reference/lift_stats.func.abap

@@ -0,0 +1,91 @@
+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 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.