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 .