report  zbc_change_source_system.

tables: tadir.
data: srcsystem type srcsystem.

select-options s_objnam for tadir-obj_name.
parameter p_devclo  type devclass obligatory.
parameter p_srcsys type srcsystem obligatory.

select single * from tadir where obj_name in s_objnam and
                                 devclass eq p_devclo.

if sy-subrc <> 0.
  message w001(zbc_xxx) with 'В каталоге объектов репозитария записей с таким пакетом не найдено'.
  exit.
endif.
if srcsystem = 'SAP'.
  message w001(zbc_xxx) with 'SAP-пакет изменить нельзя'.
  exit.
endif.

update tadir
  set srcsystem = p_srcsys
  where obj_name in s_objnam and
        devclass eq p_devclo.