list mode

README.md

@@ -144,6 +144,12 @@ lo_map->set(
   iv_val = '2' ). " raises cx_no_check
 ```
 
+- you may switch the map into "list" mode - this way there is no guarantee for the record uniquiness, but can be usedful for some applications.
+
+```abap
+  lo = zcl_abap_string_map=>create( iv_list_mode = abap_false ).
+```
+
 For more examples see [unit tests code](https://github.com/sbcgua/abap-string-map/blob/master/src/zcl_abap_string_map.clas.testclasses.abap)
 
 ## Blog posts

changelog.txt

@@ -8,6 +8,10 @@ Legend
 + : added
 - : removed
 
+v1.0.5, 2024-??-??
+------------------
++ list mode (mode with no uniquness guarantee)
+
 v1.0.4, 2024-06-24
 ------------------
 + to_entries - saves entries to a standard table with 2 char-like components (#11)

src/zcl_abap_string_map.clas.abap

@@ -17,20 +17,24 @@ class zcl_abap_string_map definition
     types:
       tty_entries type standard table of ty_entry with key k.
     types:
-      tts_entries type sorted table of ty_entry with unique key k.
+      tts_entries type sorted table of ty_entry with non-unique key k.
 
     data mt_entries type tts_entries read-only.
 
     class-methods create
       importing
         !iv_case_insensitive type abap_bool default abap_false
+        !iv_list_mode type abap_bool default abap_false " removes uniqueness requirement,
+                                                        " use with care: it is not the primary scenario
         !iv_from type any optional
         preferred parameter iv_from
       returning
         value(ro_instance) type ref to zcl_abap_string_map.
     methods constructor
       importing
         !iv_case_insensitive type abap_bool default abap_false
+        !iv_list_mode type abap_bool default abap_false " removes uniqueness requirement,
+                                                        " use with care: it is not the primary scenario
         !iv_from type any optional.
 
     methods get
@@ -119,6 +123,7 @@ class zcl_abap_string_map definition
     data mv_is_strict type abap_bool.
     data mv_read_only type abap_bool.
     data mv_case_insensitive type abap_bool.
+    data mv_list_mode type abap_bool.
 ENDCLASS.
 
 
@@ -140,6 +145,7 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
   method constructor.
     mv_is_strict = abap_true.
     mv_case_insensitive = iv_case_insensitive.
+    mv_list_mode = iv_list_mode.
 
     if iv_from is not initial.
       data lo_type type ref to cl_abap_typedescr.
@@ -180,6 +186,7 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
   method create.
     create object ro_instance
       exporting
+        iv_list_mode = iv_list_mode
         iv_case_insensitive = iv_case_insensitive
         iv_from = iv_from.
   endmethod.
@@ -374,13 +381,19 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
       lv_key = iv_key.
     endif.
 
-    read table mt_entries assigning <entry> with key k = lv_key.
-    if sy-subrc = 0.
-      <entry>-v = iv_val.
-    else.
+    if mv_list_mode = abap_true.
       ls_entry-k = lv_key.
       ls_entry-v = iv_val.
       insert ls_entry into table mt_entries.
+    else.
+      read table mt_entries assigning <entry> with key k = lv_key.
+      if sy-subrc = 0.
+        <entry>-v = iv_val.
+      else.
+        ls_entry-k = lv_key.
+        ls_entry-v = iv_val.
+        insert ls_entry into table mt_entries.
+      endif.
     endif.
 
     ro_map = me.

src/zcl_abap_string_map.clas.testclasses.abap

@@ -37,6 +37,7 @@ class ltcl_string_map definition
 
     methods create_from for testing.
     methods case_insensitive_create for testing.
+    methods list_mode for testing.
 
 endclass.
 
@@ -951,4 +952,50 @@ class ltcl_string_map implementation.
 
   endmethod.
 
+  method list_mode.
+
+    data lo_cut type ref to zcl_abap_string_map.
+
+    lo_cut = zcl_abap_string_map=>create( ).
+    lo_cut->setx( 'a:1' ).
+    lo_cut->setx( 'a:2' ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 1
+      act = lo_cut->size( ) ).
+    cl_abap_unit_assert=>assert_equals(
+      exp = lo_cut->get( 'a' )
+      act = '2' ).
+
+    lo_cut = zcl_abap_string_map=>create( iv_list_mode = abap_true ).
+    lo_cut->setx( 'a:1' ).
+    lo_cut->setx( 'a:2' ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 2
+      act = lo_cut->size( ) ).
+
+    data lt_entries type zcl_abap_string_map=>tty_entries.
+    data ls_item like line of lt_entries.
+    lt_entries = lo_cut->mt_entries.
+    sort lt_entries by k v.
+
+    read table lt_entries index 1 into ls_item.
+    cl_abap_unit_assert=>assert_equals(
+      exp = '1'
+      act = ls_item-v ).
+
+    read table lt_entries index 2 into ls_item.
+    cl_abap_unit_assert=>assert_equals(
+      exp = '2'
+      act = ls_item-v ).
+
+    lo_cut->delete( 'a' ).
+    cl_abap_unit_assert=>assert_equals(
+      exp = 0
+      act = lo_cut->size( ) ).
+
+  endmethod.
+
+
 endclass.