Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

tasks_gen/train/G1117/reference/parcel_fee.func.abap

@@ -0,0 +1,71 @@
+FUNCTION {{p}}parcel_fee
+  IMPORTING
+    iv_postcode TYPE string
+    iv_weight TYPE decfloat34
+    iv_express TYPE abap_bool
+  EXPORTING
+    ev_tour TYPE string
+    ev_skip TYPE abap_bool
+    ev_fee TYPE decfloat34
+  EXCEPTIONS
+    unknown_zone
+    invalid_weight.
+
+  CONSTANTS lc_max_fee TYPE decfloat34 VALUE '25'.
+  CONSTANTS lc_express_fee TYPE decfloat34 VALUE '3.5'.
+  CONSTANTS lc_kg_fee TYPE decfloat34 VALUE '0.35'.
+  CONSTANTS lc_heavy_limit TYPE decfloat34 VALUE '10'.
+
+  IF iv_weight <= 0.
+    RAISE invalid_weight.
+  ENDIF.
+
+  CALL FUNCTION '{{P}}ZONE_LOOKUP'
+    EXPORTING
+      iv_postcode = iv_postcode
+    IMPORTING
+      ev_zone = DATA(lv_zone).
+
+  IF lv_zone IS INITIAL.
+    RAISE unknown_zone.
+  ENDIF.
+
+  ev_skip = abap_false.
+  ev_tour = lv_zone.
+  IF iv_weight > lc_heavy_limit.
+    ev_tour = |{ ev_tour }H|.
+  ENDIF.
+
+  CASE lv_zone.
+    WHEN 'N'.
+      ev_fee = 4.9.
+    WHEN 'W'.
+      ev_fee = 5.5.
+    WHEN 'C'.
+      ev_fee = 6.2.
+    WHEN 'E'.
+      ev_fee = 7.1.
+    WHEN 'S'.
+      ev_fee = 8.4.
+  ENDCASE.
+
+  DATA(lv_started_kg) = ceil( iv_weight ).
+  DATA(lv_extra_kg) = lv_started_kg - 1.
+  IF lv_extra_kg > 0.
+    ev_fee = ev_fee + lv_extra_kg * lc_kg_fee.
+  ENDIF.
+
+  IF iv_express = abap_true.
+    ev_fee = ev_fee + lc_express_fee.
+  ENDIF.
+
+  IF ev_fee > lc_max_fee.
+    ev_fee = lc_max_fee.
+  ENDIF.
+
+  IF lv_zone = 'S' AND iv_express = abap_false.
+    ev_skip = abap_true.
+    ev_fee = 0.
+  ENDIF.
+
+ENDFUNCTION.