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.