From 3c33e4c636f73ba2521ddf3890860eb370be0d11 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20G=C3=BCnter?= <christianguenter@googlemail.com>
Date: Mon, 15 Jan 2024 10:38:42 +0100
Subject: [PATCH] Downport zcl_abapgit_object_tabl_ddl (#6751)

Co-authored-by: Lars Hvam <larshp@hotmail.com>
---
 src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.abap | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.abap b/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.abap
index 64946367e..b683dd586 100644
--- a/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.abap
+++ b/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.abap
@@ -713,6 +713,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL_DDL IMPLEMENTATION.
 
 
   METHOD serialize_top.
+    FIELD-SYMBOLS: <lv_pk_is_invhash> TYPE c. " ddpk_is_invhash
 
     rv_ddl = rv_ddl && |@EndUserText.label : { escape_string( is_data-dd02v-ddtext ) }\n|.
 
@@ -760,7 +761,12 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL_DDL IMPLEMENTATION.
       rv_ddl = rv_ddl && |@AbapCatalog.dataMaintenance : \n|.
     ENDIF.
 
-    IF is_data-dd02v-pk_is_invhash = abap_true.
+    " doesn't exist on NW <= 750
+    ASSIGN
+      COMPONENT 'PK_IS_INVHASH'
+      OF STRUCTURE is_data-dd02v
+      TO <lv_pk_is_invhash>.
+    IF sy-subrc = 0 AND <lv_pk_is_invhash> = abap_true.
       rv_ddl = rv_ddl && |@AbapCatalog.primaryKey.invertedHashIndex : true\n|.
     ENDIF.