Enable ABAP Language Version support for DDLX (abapGit#7136)

Co-authored-by: Marc Bernard <[email protected]>
christianguenter2 · Jan 23, 2025 · 527d512 · 527d512
1 parent 99fe0f5
commit 527d512
Showing 1 changed file with 17 additions and 8 deletions.
diff --git a/src/objects/zcl_abapgit_object_ddlx.clas.abap b/src/objects/zcl_abapgit_object_ddlx.clas.abap
@@ -80,8 +80,6 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
 
     clear_field( EXPORTING iv_fieldname = 'ABAP_LANGUAGE_VERSION'
                  CHANGING  cg_metadata  = <lg_metadata> ).
-    clear_field( EXPORTING iv_fieldname = 'ABAP_LANGU_VERSION'
-                 CHANGING  cg_metadata  = <lg_metadata> ).
 
   ENDMETHOD.
 
@@ -179,12 +177,13 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
           lr_data       TYPE REF TO data,
           lx_error      TYPE REF TO cx_root.
 
-    FIELD-SYMBOLS: <lg_data>       TYPE any,
-                   <lg_source>     TYPE data,
-                   <lg_version>    TYPE data,
-                   <lg_package>    TYPE data,
-                   <lg_changed_by> TYPE syuname,
-                   <lg_changed_at> TYPE xsddatetime_z.
+    FIELD-SYMBOLS: <lg_data>                  TYPE any,
+                   <lg_source>                TYPE data,
+                   <lg_version>               TYPE data,
+                   <lg_package>               TYPE data,
+                   <lg_changed_by>            TYPE syuname,
+                   <lg_changed_at>            TYPE xsddatetime_z,
+                   <lg_abap_language_version> TYPE data.
 
     TRY.
         CREATE DATA lr_data
@@ -197,6 +196,11 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
           CHANGING
             cg_data = <lg_data> ).
 
+        ASSIGN COMPONENT 'METADATA-ABAP_LANGU_VERSION' OF STRUCTURE <lg_data> TO <lg_abap_language_version>.
+        IF sy-subrc = 0.
+          set_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
+        ENDIF.
+
         ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <lg_data> TO <lg_source>.
         ASSERT sy-subrc = 0.
 
@@ -367,6 +371,11 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
 
         li_data_model->get_data( IMPORTING p_data = <lg_data> ).
 
+        ASSIGN COMPONENT 'METADATA-ABAP_LANGU_VERSION' OF STRUCTURE <lg_data> TO <lg_field>.
+        IF sy-subrc = 0.
+          clear_abap_language_version( CHANGING cv_abap_language_version = <lg_field> ).
+        ENDIF.
+
         clear_fields( CHANGING cg_data = <lg_data> ).
 
         ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <lg_data> TO <lg_field>.