Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration

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

tasks_gen/eval/G0161/reference/zoo_feed.prog.abap

@@ -0,0 +1,160 @@
+REPORT {{p}}zoo_feed.
+
+TYPES: BEGIN OF ty_line,
+         enclosure TYPE {{p}}animal-enclosure,
+         animals   TYPE i,
+         cost      TYPE {{p}}animal-food_cost,
+       END OF ty_line.
+TYPES tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
+TYPES tt_enclosure TYPE RANGE OF {{p}}animal-enclosure.
+
+TYPES: BEGIN OF ty_animal,
+         enclosure TYPE {{p}}animal-enclosure,
+         food_cost TYPE {{p}}animal-food_cost,
+       END OF ty_animal.
+TYPES tt_animal TYPE STANDARD TABLE OF ty_animal WITH EMPTY KEY.
+
+DATA gv_enclosure TYPE {{p}}animal-enclosure.
+
+PARAMETERS p_minwg TYPE {{p}}animal-weight_kg OBLIGATORY.
+SELECT-OPTIONS s_encl FOR gv_enclosure.
+
+CLASS lcl_report DEFINITION FINAL.
+  PUBLIC SECTION.
+    CLASS-METHODS select_lines
+      IMPORTING iv_min_weight TYPE {{p}}animal-weight_kg
+                it_enclosure  TYPE tt_enclosure
+      RETURNING VALUE(rt_lines) TYPE tt_line.
+    CLASS-METHODS display
+      CHANGING ct_lines TYPE tt_line.
+ENDCLASS.
+
+CLASS lcl_report IMPLEMENTATION.
+  METHOD select_lines.
+    DATA: lt_animals TYPE tt_animal,
+          ls_animal  TYPE ty_animal,
+          ls_line    TYPE ty_line.
+
+    SELECT enclosure food_cost
+           FROM {{p}}animal
+           INTO CORRESPONDING FIELDS OF TABLE lt_animals
+           WHERE weight_kg >= iv_min_weight
+             AND enclosure IN it_enclosure.
+
+    LOOP AT lt_animals INTO ls_animal.
+      READ TABLE rt_lines INTO ls_line
+           WITH KEY enclosure = ls_animal-enclosure.
+      IF sy-subrc = 0.
+        ls_line-animals = ls_line-animals + 1.
+        ls_line-cost    = ls_line-cost + ls_animal-food_cost.
+        MODIFY rt_lines FROM ls_line INDEX sy-tabix.
+      ELSE.
+        CLEAR ls_line.
+        ls_line-enclosure = ls_animal-enclosure.
+        ls_line-animals   = 1.
+        ls_line-cost      = ls_animal-food_cost.
+        APPEND ls_line TO rt_lines.
+      ENDIF.
+    ENDLOOP.
+
+    SORT rt_lines BY cost DESCENDING enclosure ASCENDING.
+  ENDMETHOD.
+
+  METHOD display.
+    DATA: lo_alv TYPE REF TO cl_salv_table,
+          lx_msg TYPE REF TO cx_salv_msg.
+    TRY.
+        cl_salv_table=>factory(
+          IMPORTING r_salv_table = lo_alv
+          CHANGING  t_table      = ct_lines ).
+        lo_alv->display( ).
+      CATCH cx_salv_msg INTO lx_msg.
+        MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
+    ENDTRY.
+  ENDMETHOD.
+ENDCLASS.
+
+START-OF-SELECTION.
+  DATA gt_lines TYPE tt_line.
+
+  gt_lines = lcl_report=>select_lines( iv_min_weight = p_minwg
+                                       it_enclosure  = s_encl[] ).
+  lcl_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_enclosure FOR TESTING.
+    METHODS weight_filter FOR TESTING.
+ENDCLASS.
+
+CLASS ltc_report IMPLEMENTATION.
+  METHOD class_setup.
+    go_env = cl_osql_test_environment=>create(
+      i_dependency_list = VALUE #( ( '{{P}}ANIMAL' ) ) ).
+    DATA: lt_animal TYPE STANDARD TABLE OF {{p}}animal WITH EMPTY KEY,
+          ls_animal TYPE {{p}}animal.
+
+    ls_animal-animal_id = 1.
+    ls_animal-enclosure = 'A'.
+    ls_animal-species   = 'LION'.
+    ls_animal-weight_kg = '100.0'.
+    ls_animal-food_cost = '10.00'.
+    APPEND ls_animal TO lt_animal.
+
+    CLEAR ls_animal.
+    ls_animal-animal_id = 2.
+    ls_animal-enclosure = 'A'.
+    ls_animal-species   = 'CUB'.
+    ls_animal-weight_kg = '5.0'.
+    ls_animal-food_cost = '2.00'.
+    APPEND ls_animal TO lt_animal.
+
+    CLEAR ls_animal.
+    ls_animal-animal_id = 3.
+    ls_animal-enclosure = 'B'.
+    ls_animal-species   = 'SEAL'.
+    ls_animal-weight_kg = '50.0'.
+    ls_animal-food_cost = '7.00'.
+    APPEND ls_animal TO lt_animal.
+
+    go_env->insert_test_data( lt_animal ).
+  ENDMETHOD.
+
+  METHOD class_teardown.
+    go_env->destroy( ).
+  ENDMETHOD.
+
+  METHOD totals_per_enclosure.
+    DATA: lt_lines TYPE tt_line,
+          ls_line  TYPE ty_line,
+          lt_none  TYPE tt_enclosure.
+
+    lt_lines = lcl_report=>select_lines( iv_min_weight = '0.0'
+                                         it_enclosure  = lt_none ).
+
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
+
+    READ TABLE lt_lines INTO ls_line INDEX 1.
+    cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-enclosure ).
+    cl_abap_unit_assert=>assert_equals(
+      exp = CONV {{p}}animal-food_cost( 12 ) act = ls_line-cost ).
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-animals ).
+  ENDMETHOD.
+
+  METHOD weight_filter.
+    DATA: lt_lines TYPE tt_line,
+          ls_line  TYPE ty_line,
+          lt_none  TYPE tt_enclosure.
+
+    lt_lines = lcl_report=>select_lines( iv_min_weight = '10.0'
+                                         it_enclosure  = lt_none ).
+
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
+
+    READ TABLE lt_lines INTO ls_line INDEX 1.
+    cl_abap_unit_assert=>assert_equals( exp = 1 act = ls_line-animals ).
+  ENDMETHOD.
+ENDCLASS.