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 .
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 .