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.

tasks_gen/train/G1117/reference/t21_test.clas.abap

@@ -0,0 +1,80 @@
+CLASS {{p}}t21_test DEFINITION PUBLIC FINAL CREATE PUBLIC
+  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
+  PRIVATE SECTION.
+    METHODS fee_for
+      IMPORTING iv_postcode TYPE string
+                iv_weight TYPE decfloat34
+                iv_express TYPE abap_bool DEFAULT abap_false
+      EXPORTING ev_tour TYPE string
+                ev_skip TYPE abap_bool
+                ev_fee TYPE decfloat34.
+    METHODS standard_parcel FOR TESTING.
+    METHODS heavy_parcel FOR TESTING.
+    METHODS express_parcel FOR TESTING.
+    METHODS island_parcel FOR TESTING.
+    METHODS unknown_zone FOR TESTING.
+ENDCLASS.
+
+
+CLASS {{p}}t21_test IMPLEMENTATION.
+  METHOD fee_for.
+    CALL FUNCTION '{{P}}PARCEL_FEE'
+      EXPORTING
+        iv_postcode = iv_postcode
+        iv_weight   = iv_weight
+        iv_express  = iv_express
+      IMPORTING
+        ev_tour = ev_tour
+        ev_skip = ev_skip
+        ev_fee  = ev_fee
+      EXCEPTIONS
+        unknown_zone   = 1
+        invalid_weight = 2
+        OTHERS         = 3.
+    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
+  ENDMETHOD.
+
+  METHOD standard_parcel.
+    fee_for( EXPORTING iv_postcode = `20095` iv_weight = 3
+             IMPORTING ev_tour = DATA(lv_tour) ev_skip = DATA(lv_skip) ev_fee = DATA(lv_fee) ).
+    cl_abap_unit_assert=>assert_equals( exp = `W` act = lv_tour ).
+    cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_skip ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '6.20' ) act = lv_fee ).
+  ENDMETHOD.
+
+  METHOD heavy_parcel.
+    fee_for( EXPORTING iv_postcode = `60311` iv_weight = '10.01'
+             IMPORTING ev_tour = DATA(lv_tour) ev_fee = DATA(lv_fee) ).
+    cl_abap_unit_assert=>assert_equals( exp = `EH` act = lv_tour ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '10.60' ) act = lv_fee ).
+  ENDMETHOD.
+
+  METHOD express_parcel.
+    fee_for( EXPORTING iv_postcode = `10115` iv_weight = 1 iv_express = abap_true
+             IMPORTING ev_fee = DATA(lv_fee) ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '8.40' ) act = lv_fee ).
+  ENDMETHOD.
+
+  METHOD island_parcel.
+    fee_for( EXPORTING iv_postcode = `80331` iv_weight = 2
+             IMPORTING ev_tour = DATA(lv_tour) ev_skip = DATA(lv_skip) ev_fee = DATA(lv_fee) ).
+    cl_abap_unit_assert=>assert_equals( exp = `S` act = lv_tour ).
+    cl_abap_unit_assert=>assert_equals( exp = abap_true act = lv_skip ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_fee ).
+  ENDMETHOD.
+
+  METHOD unknown_zone.
+    DATA lv_fee TYPE decfloat34.
+    CALL FUNCTION '{{P}}PARCEL_FEE'
+      EXPORTING
+        iv_postcode = `XYZ`
+        iv_weight   = 1
+      CHANGING
+        cv_fee = lv_fee
+      EXCEPTIONS
+        unknown_zone   = 1
+        invalid_weight = 2
+        OTHERS         = 3.
+    cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
+  ENDMETHOD.
+ENDCLASS.