From e394966795dd5be203a548a2380e5024c29a5500 Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Tue, 21 Aug 2018 19:28:44 +0000
Subject: [PATCH] FIX: CLAS is_locked read enque

Read enqueue entries instead of enqueueing
---
 src/objects/zcl_abapgit_object_clas.clas.abap | 20 ++++++-------------
 1 file changed, 6 insertions(+), 14 deletions(-)

diff --git a/src/objects/zcl_abapgit_object_clas.clas.abap b/src/objects/zcl_abapgit_object_clas.clas.abap
index 1a654a4b8..a713632bc 100644
--- a/src/objects/zcl_abapgit_object_clas.clas.abap
+++ b/src/objects/zcl_abapgit_object_clas.clas.abap
@@ -420,23 +420,15 @@ CLASS zcl_abapgit_object_clas IMPLEMENTATION.
   ENDMETHOD.
 
   METHOD is_class_locked.
-    DATA: lv_clsname TYPE seoclsenq-clsname.
 
-    lv_clsname = ms_item-obj_name.
-    OVERLAY lv_clsname WITH '=============================='.
+    DATA: lv_argument TYPE seqg3-garg.
 
-    CALL FUNCTION 'ENQUEUE_ESEOCLASS'
-      EXPORTING
-        clsname        = lv_clsname
-      EXCEPTIONS
-        foreign_lock   = 1
-        system_failure = 2
-        OTHERS         = 3.
+    lv_argument = ms_item-obj_name.
+    OVERLAY lv_argument WITH '=============================='.
+    lv_argument = lv_argument && '*'.
 
-    rv_is_class_locked = boolc( sy-subrc <> 0 ).
+    rv_is_class_locked = exists_a_lock_entry_for( iv_lock_object = 'ESEOCLASS'
+                                                  iv_argument    = lv_argument ).
 
-    CALL FUNCTION 'DEQUEUE_ESEOCLASS'
-      EXPORTING
-        clsname = lv_clsname.
   ENDMETHOD.
 ENDCLASS.