report z_test line-size 255.

data: editpos like CDRED occurs 0 with header line,
      objectid like CDHDR-OBJECTID.

parameters m like mara-matnr. " Номер материала

check m is not initial.

move m to objectid.

CALL FUNCTION 'CHANGEDOCUMENT_READ'
  EXPORTING
    OBJECTCLASS                      = 'MATERIAL'
    OBJECTID                         = objectid
    TABLENAME                        = 'DMAKT'
  TABLES
    EDITPOS                          = editpos
  EXCEPTIONS
    NO_POSITION_FOUND                = 1
    WRONG_ACCESS_TO_ARCHIVE          = 2
    TIME_ZONE_CONVERSION_ERROR       = 3
    OTHERS                           = 4
          .
IF SY-SUBRC = 0.
  loop at editpos.
     write: / 'Материал = ', m,
              'Изменил ', editpos-username,
              'Дата ', editpos-udate,
              'Стар.значение = ', editpos-f_old(40),
              'Нов.значение = ', editpos-f_new(40).
  endloop.
ENDIF.