* Tabellename
PARAMETERS: lv_tab TYPE se16n_tab DEFAULT 'T024'.
* max. Anzahl Datensätze für die Anzeige
PARAMETERS: lv_maxl TYPE sytabix DEFAULT 500.
* Edit-Parameter, diese entsprechen den Variablen GD-EDIT und GD-SAPEDIT in der SE16N
PARAMETERS: lv_edit TYPE abap_bool AS CHECKBOX DEFAULT abap_true.
PARAMETERS: lv_sedit TYPE abap_bool AS CHECKBOX DEFAULT abap_true.
* Mandantenspalte ausblenden
PARAMETERS: lv_clnt TYPE abap_bool AS CHECKBOX DEFAULT abap_false.
* technische Namen anzeigen
PARAMETERS: lv_tech TYPE abap_bool AS CHECKBOX DEFAULT abap_false.
INITIALIZATION.
%_lv_tab_%_app_%-text = 'Tabelle:'.
%_lv_edit_%_app_%-text = 'Edit Parameter 1 (GD-EDIT)'.
%_lv_sedit_%_app_%-text = 'Edit Parameter 2 (GD-SAPEDIT)'.
%_lv_maxl_%_app_%-text = 'Maximale Trefferzahl'.
%_lv_clnt_%_app_%-text = 'Tabelle ist mandantenabhängig'.
%_lv_tech_%_app_%-text = 'Technische Namen'.
START-OF-SELECTION.
* Anzeige einer Tabelle als Vollbild, analog SE16N
* Achtung: Tabelle lv_tab kann analog zum bekannten SE16N-Parameter &sap_edit vollumfänglich editiert werden,
* dies kann bei Fehlbedienung zu Dateninkonsistenzen führen --> Funktion daher nicht im Produktivsystem verwenden!
CALL FUNCTION 'SE16N_INTERFACE'
EXPORTING
i_tab = lv_tab
i_edit = lv_edit
i_sapedit = lv_sedit
i_max_lines = lv_maxl
i_clnt_dep = lv_clnt
i_tech_names = lv_tech
* CHANGING
* IT_AND_SELFIELDS =
EXCEPTIONS
no_values = 1
OTHERS = 2.
IF sy-subrc <> 0.
WRITE: / 'Fehler:', sy-subrc.
ENDIF.
Links