DDLS changed by, #905

src/zabapgit_object_ddls.prog.abap

@@ -32,8 +32,42 @@ CLASS lcl_object_ddls IMPLEMENTATION.
   ENDMETHOD.  "lif_object~has_changed_since
 
   METHOD lif_object~changed_by.
-* todo
-    rv_user = c_user_unknown.
+
+    DATA: lv_state TYPE objstate,
+          li_ddl   TYPE REF TO object,
+          lr_data  TYPE REF TO data.
+
+    FIELD-SYMBOLS: <ls_data>  TYPE any,
+                   <lv_field> TYPE any.
+
+
+    CREATE DATA lr_data TYPE ('DDDDLSRCV').
+    ASSIGN lr_data->* TO <ls_data>.
+
+
+    CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE')
+      RECEIVING
+        handler = li_ddl.
+
+    TRY.
+        CALL METHOD li_ddl->('IF_DD_DDL_HANDLER~READ')
+          EXPORTING
+            name         = ms_item-obj_name
+            get_state    = 'A'
+          IMPORTING
+            ddddlsrcv_wa = <ls_data>.
+
+        ASSIGN COMPONENT 'AS4USER' OF STRUCTURE <ls_data> TO <lv_field>.
+        IF sy-subrc = 0.
+          rv_user = <lv_field>.
+        ENDIF.
+      CATCH cx_root.
+    ENDTRY.
+
+    IF rv_user IS INITIAL.
+      rv_user = c_user_unknown.
+    ENDIF.
+
   ENDMETHOD.                    "lif_object~changed_by
 
   METHOD lif_object~get_metadata.