From e17d3334ff610e91111ec5a3841d600cfe20e808 Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Sun, 4 Nov 2018 19:22:21 +0100
Subject: [PATCH] PARA: implement is_locked

---
 src/objects/zcl_abapgit_object_para.clas.abap | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/objects/zcl_abapgit_object_para.clas.abap b/src/objects/zcl_abapgit_object_para.clas.abap
index 3808a3f36..164b6b45c 100644
--- a/src/objects/zcl_abapgit_object_para.clas.abap
+++ b/src/objects/zcl_abapgit_object_para.clas.abap
@@ -194,7 +194,16 @@ CLASS zcl_abapgit_object_para IMPLEMENTATION.
   ENDMETHOD.
 
   METHOD zif_abapgit_object~is_locked.
-    rv_is_locked = abap_false.
+
+    DATA: lv_argument TYPE seqg3-garg.
+
+    lv_argument = |PA{ ms_item-obj_name }|.
+    OVERLAY lv_argument WITH '                                          '.
+    lv_argument = lv_argument && '*'.
+
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EEUDB'
+                                            iv_argument    = lv_argument ).
+
   ENDMETHOD.