BW ZCHANGE_PACKAGE

REPORT ZCHANGE_PACKAGE.

tables: tadir.
data: l_tadir type tadir,
      t_tadir type table of tadir.

PARAMETERS: PGMID like l_tadir-pgmid DEFAULT 'R3TR'.
PARAMETERS: OBJECT like l_tadir-object.
PARAMETERS: OBJ_NAME like l_tadir-obj_name.
PARAMETERS: devclass like l_tadir-devclass DEFAULT 'ZBWQ'.

select single * into CORRESPONDING FIELDS OF l_tadir
  from tadir
  where
  PGMID = pgmid and
  OBJECT = object and
  OBJ_NAME = obj_name.

l_tadir-pgmid = pgmid.
l_tadir-object = object.
l_tadir-obj_name = obj_name.
l_tadir-devclass = devclass.
append l_tadir to t_tadir.

modify tadir FROM table t_tadir.