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/G0141/seed/news_dist_old.prog.abap

@@ -0,0 +1,72 @@
+REPORT {{p}}news_dist_old.
+
+* Legacy distribution report of the newspaper publisher.
+* Shows the delivered copies and the returns of each newsagent.
+
+TYPES ty_rate TYPE p LENGTH 8 DECIMALS 2.
+
+TYPES: BEGIN OF ty_out,
+         agent    TYPE {{p}}agent-agent_id,
+         name     TYPE {{p}}agent-agent_name,
+         district TYPE {{p}}agent-district,
+         copies   TYPE i,
+         returned TYPE i,
+         rate     TYPE ty_rate,
+       END OF ty_out.
+
+DATA: gt_agent TYPE STANDARD TABLE OF {{p}}agent,
+      gs_agent TYPE {{p}}agent,
+      gt_deliv TYPE STANDARD TABLE OF {{p}}deliv,
+      gs_deliv TYPE {{p}}deliv,
+      gs_out   TYPE ty_out,
+      gt_out   TYPE STANDARD TABLE OF ty_out,
+      gt_list  TYPE STANDARD TABLE OF ty_out,
+      gv_date  TYPE d,
+      gv_dist  TYPE c LENGTH 4,
+      go_alv   TYPE REF TO cl_salv_table.
+
+SELECT-OPTIONS s_date FOR gv_date.
+SELECT-OPTIONS s_dist FOR gv_dist.
+
+START-OF-SELECTION.
+  SELECT * FROM {{p}}agent INTO TABLE gt_agent.
+  LOOP AT gt_agent INTO gs_agent.
+    SELECT * FROM {{p}}deliv INTO TABLE gt_deliv
+      WHERE agent_id = gs_agent-agent_id
+        AND del_date IN s_date.
+    IF gt_deliv IS NOT INITIAL.
+      CLEAR gs_out.
+      gs_out-agent = gs_agent-agent_id.
+      gs_out-name = gs_agent-agent_name.
+      gs_out-district = gs_agent-district.
+      LOOP AT gt_deliv INTO gs_deliv.
+        gs_out-copies = gs_out-copies + gs_deliv-del_copies.
+        gs_out-returned = gs_out-returned + gs_deliv-ret_copies.
+      ENDLOOP.
+      PERFORM calc_rate USING gs_out-returned gs_out-copies
+                        CHANGING gs_out-rate.
+      APPEND gs_out TO gt_out.
+    ENDIF.
+  ENDLOOP.
+  LOOP AT gt_out INTO gs_out WHERE district IN s_dist.
+    APPEND gs_out TO gt_list.
+  ENDLOOP.
+  SORT gt_list BY rate DESCENDING agent ASCENDING.
+  TRY.
+      cl_salv_table=>factory( IMPORTING r_salv_table = go_alv
+                              CHANGING  t_table      = gt_list ).
+      go_alv->display( ).
+    CATCH cx_salv_msg.
+  ENDTRY.
+
+FORM calc_rate USING iv_returned TYPE i
+                     iv_copies   TYPE i
+                CHANGING cv_rate     TYPE ty_rate.
+  DATA lv_copies TYPE p LENGTH 15 DECIMALS 2.
+  lv_copies = iv_copies.
+  IF lv_copies > 0.
+    cv_rate = iv_returned * 100 / lv_copies.
+  ELSE.
+    CLEAR cv_rate.
+  ENDIF.
+ENDFORM.