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/G0144/reference/cine_fee_old.func.abap

@@ -0,0 +1,77 @@
+FUNCTION {{p}}cine_fee_old
+  IMPORTING
+    iv_show_type TYPE string
+    iv_seats     TYPE i
+    iv_show_time TYPE t
+    iv_cust_type TYPE string
+  EXPORTING
+    ev_total     TYPE decfloat34
+    ev_discount  TYPE decfloat34
+  EXCEPTIONS
+    invalid_input.
+
+  CONSTANTS:
+    c_price_2d     TYPE decfloat34 VALUE '9.00',
+    c_price_3d     TYPE decfloat34 VALUE '12.50',
+    c_price_imax   TYPE decfloat34 VALUE '16.00',
+    c_booking_fee  TYPE decfloat34 VALUE '0.50',
+    c_percent      TYPE decfloat34 VALUE 100,
+    c_disc_child   TYPE decfloat34 VALUE 40,
+    c_disc_senior  TYPE decfloat34 VALUE 30,
+    c_disc_student TYPE decfloat34 VALUE 20,
+    c_disc_matinee TYPE decfloat34 VALUE 25,
+    c_disc_group   TYPE decfloat34 VALUE 10,
+    c_disc_max     TYPE decfloat34 VALUE 60,
+    c_group_seats  TYPE i VALUE 8,
+    c_matinee_end  TYPE t VALUE '170000'.
+
+  DATA: lv_base     TYPE decfloat34,
+        lv_discount TYPE decfloat34,
+        lv_price    TYPE decfloat34.
+
+  IF iv_seats < 1.
+    RAISE invalid_input.
+  ENDIF.
+
+  CASE iv_show_type.
+    WHEN '2D'.
+      lv_base = c_price_2d.
+    WHEN '3D'.
+      lv_base = c_price_3d.
+    WHEN 'IMAX'.
+      lv_base = c_price_imax.
+    WHEN OTHERS.
+      RAISE invalid_input.
+  ENDCASE.
+
+  CASE iv_cust_type.
+    WHEN 'CHILD'.
+      lv_discount = c_disc_child.
+    WHEN 'SENIOR'.
+      lv_discount = c_disc_senior.
+    WHEN 'STUDENT'.
+      lv_discount = c_disc_student.
+    WHEN 'ADULT'.
+      lv_discount = 0.
+    WHEN OTHERS.
+      RAISE invalid_input.
+  ENDCASE.
+
+  IF iv_show_time < c_matinee_end AND iv_cust_type <> 'CHILD'.
+    lv_discount = lv_discount + c_disc_matinee.
+  ENDIF.
+
+  IF iv_seats >= c_group_seats.
+    lv_discount = lv_discount + c_disc_group.
+  ENDIF.
+
+  IF lv_discount > c_disc_max.
+    lv_discount = c_disc_max.
+  ENDIF.
+
+  lv_price = lv_base - lv_base * lv_discount / c_percent + c_booking_fee.
+
+  ev_total = round( val = lv_price * iv_seats dec = 2 mode = cl_abap_math=>round_half_up ).
+  ev_discount = lv_discount.
+
+ENDFUNCTION.