From 7b0a687d4a97350f0f9f9bd40de5d0fdd0899ffb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20G=C3=BCnter?= <christianguenter@googlemail.com>
Date: Wed, 23 Jan 2019 11:20:22 +0100
Subject: [PATCH]  PINF: Implement is_locked

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

diff --git a/src/objects/zcl_abapgit_object_pinf.clas.abap b/src/objects/zcl_abapgit_object_pinf.clas.abap
index f57aa526c..5a225e707 100644
--- a/src/objects/zcl_abapgit_object_pinf.clas.abap
+++ b/src/objects/zcl_abapgit_object_pinf.clas.abap
@@ -312,7 +312,15 @@ CLASS ZCL_ABAPGIT_OBJECT_PINF IMPLEMENTATION.
 
 
   METHOD zif_abapgit_object~is_locked.
-    rv_is_locked = abap_false.
+
+    DATA: lv_argument TYPE eqegraarg.
+
+    lv_argument = |PF{ ms_item-obj_name }|.
+    OVERLAY lv_argument WITH  '                                          *'.
+
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EEUDB'
+                                            iv_argument    = lv_argument ).
+
   ENDMETHOD.