Code: Alles auswählen.
FORM call_funtion_POPUP.
select * up to 100 rows
into corresponding fields of table t_daten
from dd03L
where tabname = pa_table.
call function 'REUSE_ALV_POPUP_TO_SELECT'
exporting
* i_title =
i_selection = 'X'
* i_zebra = ' '
* i_screen_start_column = 0
* i_screen_start_line = 0
* i_screen_end_column = 0
* i_screen_end_line = 0
* i_checkbox_fieldname = 'CHECKBOX'
* i_linemark_fieldname =
* i_scroll_to_sel_line = 'X'
i_tabname = 'T_DATEN'
i_structure_name = 'zskurzbe'
* it_fieldcat =
* it_excluding =
* i_callback_program =
* i_callback_user_command =
importing
es_selfield = es_selfield
e_exit = e_exit
tables
t_outtab = T_DATEN
exceptions
program_error = 1
others = 2.
IF e_exit = 'X'.
WRITE:/ 'Keine Auswahl durch Benutzer'.
ELSE.
WRITE:/ 'Benutzer hat Zeile',
es_selfield-tabindex,'gewählt'.
READ TABLE t_daten INTO wa_daten INDEX es_selfield-tabindex.
WRITE:/ 'Datenelement:', AT 20 wa_daten-fieldname,
/ 'Typename:', AT 20 wa_daten-datatype,
/ 'Länge:', AT 20 wa_daten-leng,
/ 'Kurzbeschreibung:' , AT 20 wa_daten-scrtext_l.
ENDIF.
ENDFORM.Code: Alles auswählen.
TYPES BEGIN OF ts_table.
INCLUDE TYPE dd03l.
TYPES mark TYPE abap_bool.
TYPES END OF ts_table.
TYPES tt_table TYPE STANDARD TABLE OF ts_table WITH DEFAULT KEY.
DATA: t_daten TYPE tt_table.