From 002f5ba73d840075a70acd5f3bb03b00c2bfe8bc Mon Sep 17 00:00:00 2001
From: christianguenter2 <christianguenter@googlemail.com>
Date: Tue, 19 Jun 2018 18:05:09 +0200
Subject: [PATCH] Implement IS_LOCKED for W3*, TTYP, TRAN, SSFO, SSST

---
 src/objects/zcl_abapgit_object_intf.clas.abap    |  9 ++++++++-
 src/objects/zcl_abapgit_object_ssfo.clas.abap    |  3 ++-
 src/objects/zcl_abapgit_object_ssst.clas.abap    |  3 ++-
 src/objects/zcl_abapgit_object_tran.clas.abap    | 10 +++++++++-
 src/objects/zcl_abapgit_object_ttyp.clas.abap    |  3 ++-
 src/objects/zcl_abapgit_object_w3super.clas.abap | 11 +++++++++--
 6 files changed, 32 insertions(+), 7 deletions(-)

diff --git a/src/objects/zcl_abapgit_object_intf.clas.abap b/src/objects/zcl_abapgit_object_intf.clas.abap
index 0fe224c09..402ffb447 100644
--- a/src/objects/zcl_abapgit_object_intf.clas.abap
+++ b/src/objects/zcl_abapgit_object_intf.clas.abap
@@ -268,7 +268,14 @@ CLASS ZCL_ABAPGIT_OBJECT_INTF IMPLEMENTATION.
 
   METHOD zif_abapgit_object~is_locked.
 
-    rv_is_locked = abap_false.
+    DATA: lv_object TYPE eqegraarg.
+
+    lv_object = |{ ms_item-obj_name }|.
+    OVERLAY lv_object WITH '==============================P'.
+    lv_object = lv_object && '*'.
+
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESEOCLASS'
+                                            iv_argument    = lv_object ).
 
   ENDMETHOD.
 
diff --git a/src/objects/zcl_abapgit_object_ssfo.clas.abap b/src/objects/zcl_abapgit_object_ssfo.clas.abap
index be02fa50e..1eefae029 100644
--- a/src/objects/zcl_abapgit_object_ssfo.clas.abap
+++ b/src/objects/zcl_abapgit_object_ssfo.clas.abap
@@ -285,7 +285,8 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
 
   METHOD zif_abapgit_object~is_locked.
 
-    rv_is_locked = abap_false.
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_SMFORM'
+                                            iv_argument    = |{ ms_item-obj_name }| ).
 
   ENDMETHOD.
 
diff --git a/src/objects/zcl_abapgit_object_ssst.clas.abap b/src/objects/zcl_abapgit_object_ssst.clas.abap
index 377b10975..f716c8b0d 100644
--- a/src/objects/zcl_abapgit_object_ssst.clas.abap
+++ b/src/objects/zcl_abapgit_object_ssst.clas.abap
@@ -264,7 +264,8 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
 
   METHOD zif_abapgit_object~is_locked.
 
-    rv_is_locked = abap_false.
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_SMSTYLE'
+                                            iv_argument    = |{ ms_item-obj_name }| ).
 
   ENDMETHOD.
 
diff --git a/src/objects/zcl_abapgit_object_tran.clas.abap b/src/objects/zcl_abapgit_object_tran.clas.abap
index 979f1d279..885cd7770 100644
--- a/src/objects/zcl_abapgit_object_tran.clas.abap
+++ b/src/objects/zcl_abapgit_object_tran.clas.abap
@@ -485,7 +485,15 @@ CLASS ZCL_ABAPGIT_OBJECT_TRAN IMPLEMENTATION.
 
   METHOD zif_abapgit_object~is_locked.
 
-    rv_is_locked = abap_false.
+    DATA: lv_object TYPE eqegraarg.
+
+    lv_object = |TN{ ms_item-obj_name }|.
+    OVERLAY lv_object WITH '                                          '.
+    lv_object = lv_object && '*'.
+
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'EEUDB'
+                                            iv_argument    = lv_object ).
+
 
   ENDMETHOD.
 
diff --git a/src/objects/zcl_abapgit_object_ttyp.clas.abap b/src/objects/zcl_abapgit_object_ttyp.clas.abap
index b66ab7f3a..338d1f0b3 100644
--- a/src/objects/zcl_abapgit_object_ttyp.clas.abap
+++ b/src/objects/zcl_abapgit_object_ttyp.clas.abap
@@ -177,7 +177,8 @@ CLASS zcl_abapgit_object_ttyp IMPLEMENTATION.
 
   METHOD zif_abapgit_object~is_locked.
 
-    rv_is_locked = abap_false.
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESDICT'
+                                            iv_argument    = |{ ms_item-obj_type }{ ms_item-obj_name }| ).
 
   ENDMETHOD.
 
diff --git a/src/objects/zcl_abapgit_object_w3super.clas.abap b/src/objects/zcl_abapgit_object_w3super.clas.abap
index b254e820b..a8f96515c 100644
--- a/src/objects/zcl_abapgit_object_w3super.clas.abap
+++ b/src/objects/zcl_abapgit_object_w3super.clas.abap
@@ -56,7 +56,7 @@ ENDCLASS.
 
 
 
-CLASS ZCL_ABAPGIT_OBJECT_W3SUPER IMPLEMENTATION.
+CLASS zcl_abapgit_object_w3super IMPLEMENTATION.
 
 
   METHOD constructor.
@@ -494,7 +494,14 @@ CLASS ZCL_ABAPGIT_OBJECT_W3SUPER IMPLEMENTATION.
 
   METHOD zif_abapgit_object~is_locked.
 
-    rv_is_locked = abap_false.
+    DATA: lv_object TYPE eqegraarg.
+
+    lv_object = |{ ms_item-obj_type+2(2) }{ ms_item-obj_name }|.
+    OVERLAY lv_object WITH '                                          '.
+    lv_object = lv_object && '*'.
+
+    rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_WWW_HTML'
+                                            iv_argument    = lv_object ).
 
   ENDMETHOD.