feat: add filter keeping deprecated field

Author: mbtools

src/#apmg#cl_ajson_extensions.clas.abap

@@ -39,6 +39,11 @@ CLASS /apmg/cl_ajson_extensions DEFINITION
       RETURNING
         VALUE(result) TYPE REF TO zif_ajson_filter.
 
+    "! Like filter_empty_zero_null but keep "deprecated" value
+    CLASS-METHODS filter_deprecated
+      RETURNING
+        VALUE(result) TYPE REF TO zif_ajson_filter.
+
   PROTECTED SECTION.
   PRIVATE SECTION.
 ENDCLASS.
@@ -48,6 +53,11 @@ ENDCLASS.
 CLASS /apmg/cl_ajson_extensions IMPLEMENTATION.
 
 
+  METHOD filter_deprecated.
+    CREATE OBJECT result TYPE lcl_deprecated.
+  ENDMETHOD.
+
+
   METHOD filter_empty_zero_null.
     CREATE OBJECT result TYPE lcl_empty_zero_null.
   ENDMETHOD.

src/#apmg#cl_ajson_extensions.clas.locals_imp.abap

@@ -91,3 +91,24 @@ CLASS lcl_empty_zero_null IMPLEMENTATION.
   ENDMETHOD.
 
 ENDCLASS.
+
+CLASS lcl_deprecated DEFINITION FINAL.
+  PUBLIC SECTION.
+    INTERFACES zif_ajson_filter.
+ENDCLASS.
+
+CLASS lcl_deprecated IMPLEMENTATION.
+
+  METHOD zif_ajson_filter~keep_node.
+
+    rv_keep = boolc(
+      ( iv_visit = zif_ajson_filter=>visit_type-value AND
+        ( is_node-type = zif_ajson_types=>node_type-string AND is_node-value IS NOT INITIAL OR
+          is_node-type = zif_ajson_types=>node_type-boolean OR
+          is_node-type = zif_ajson_types=>node_type-number AND is_node-value <> 0 OR
+          is_node-name = 'deprecated' ) ) OR
+      ( iv_visit <> zif_ajson_filter=>visit_type-value AND is_node-children > 0 ) ).
+
+  ENDMETHOD.
+
+ENDCLASS.