report  zbc_change_source_system.

tables tadir.

selection-screen begin of block sele01 with frame.
select-options:
  s_objtyp for tadir-object,
  s_objnam for tadir-obj_name obligatory ," default 'Z*'
  s_devcla for tadir-devclass ."default "'Z*'

parameter p_srcsys type srcsystem obligatory.
selection-screen end of block sele01.

initialization.
  s_objnam = 'ICP'.
  s_objnam-low = 'Z*'.
  append s_objnam.
  s_devcla = 'ICP'.
  s_devcla-low = 'Z*'.
  append s_devcla.

start-of-selection.

  update tadir
    set srcsystem = p_srcsys
    where object   in s_objtyp and
          obj_name in s_objnam and
          devclass in s_devcla.