Code: Alles auswählen.
begin of ls_data,
agr_name type agr_define-agr_name,
parent_agr type agr_define-parent_agr,
orglevel type String,
kuser type String,
kuser_sub type String,
moduser type String,
moduser_sub type String,
department type String,
supervisor type String,
modul type c,
bukrs type bukrs,
create_dat type agr_define-create_dat,
change_dat type agr_define-change_dat,
system(2) type c,
storagename type String,
tcodes(4096) type c,
end of ls_data.
Code: Alles auswählen.
Select low from agr_1251 into wa_data-tcodes where
agr_name = wa_data-agr_name AND
object = 'S_TCODE'.
data lt_tcode(100) type c.
data lt_tcodeLong(4096) type c.
Select tcode ttext from tstct into CORRESPONDING FIELDS OF wa_tcodes
where tcode = wa_data-tcodes AND
sprsl = 'EN'.
CONCATENATE wa_tcodes-tcode ' ' wa_tcodes-ttext into lt_tcode.
clear wa_data-tcodes.
clear wa_tcodes.
endselect.
CONCATENATE lt_tcode lt_tcodeLong into lt_tcodeLong.
clear lt_tcode.
endselect.
Code: Alles auswählen.
data:
lt_string type stringtab.
field-symbols:
<ls_string> type string.
...
*Für jede Zeile ausführen
append initial line to lt_string assigning <ls_string>.
concatenate ls_data-agr_name ls_data-parent_agr ... into <ls_string> separated by ';'.
...