Code: Alles auswählen.
*-- E071
t_e071-trkorr = space.
t_e071-as4pos = 0.
t_e071-pgmid = 'R3TR'.
t_e071-object = 'TABU'.
t_e071-obj_name = 'ZZYTAB'.
t_e071-objfunc = 'K'.
COLLECT t_e071.
*-- E071K - Schlüsseleinträge
t_e071k-trkorr = space.
t_e071k-pgmid = 'R3TR'.
t_e071k-object = 'TABU'.
t_e071k-objname = 'ZZMYTAB'.
t_e071k-as4pos = 0.
t_e071k-mastertype = 'TABU'.
t_e071k-mastername = 'ZZMYTAB'.
t_e071k-viewname = space.
t_e071k-objfunc = space.
CONCATENATE sy-mandt '*' INTO t_e071k-tabkey.
COLLECT t_e071k.
CALL FUNCTION 'TR_APPEND_TO_COMM_OBJS_KEYS'
EXPORTING
wi_trkorr = tr_task
TABLES
wt_e071 = t_e071
wt_e071k = t_e071k
EXCEPTIONS
OTHERS = 68.