Code: Alles auswählen.
TYPES: BEGIN OF ZZUSR_02,
USERNAME TYPE BAPIBNAME-BAPIBNAME,
NAME_IN TYPE BAPIBNAME,
LOGONDATA TYPE BAPILOGOND,
PASSWORD TYPE BAPIPWD,
DEFAULTS TYPE BAPIDEFAUL,
ADDRESS TYPE BAPIADDR3,
COMPANY TYPE BAPIUSCOMP,
SNC TYPE BAPISNCU,
REF_USER TYPE BAPIREFUS,
ALIAS TYPE BAPIALIAS,
EX_ADDRESS TYPE BAPIADDR3-PERS_NO,
UCLASS TYPE XUCLASS,
FORCE_SYSTEM_ASSIGNMENT TYPE BAPIFLAG-BAPIFLAG,
SELF_REGISTER TYPE BAPIFLAG-BAPIFLAG,
END OF ZZUSR_02.
DATA gt_USR02 type TABLE OF ZZUSR_02.
data lt_fcat type SLIS_T_FIELDCAT_ALV.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'GT_USR02'
i_structure_name = 'ZZUSR_02'
i_client_never_display = 'X'
I_BYPASSING_BUFFER = 'X'
CHANGING
ct_fieldcat = lt_fcat
exceptions
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
others = 3.
if sy-subrc ne 0.
write:/ 'Merge Error'.
return.
endif.
*
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = 'form_STATUS_check'
i_callback_user_command = 'USER_COMMAND_XLS'
i_grid_title = 'Please check Data. If OK press Button SAVE.'
*is_layout = ls_layout
it_fieldcat = lt_fcat
TABLES
t_outtab = gt_USR02
EXCEPTIONS
program_error = 1
OTHERS = 2.
Code: Alles auswählen.
DATA: r_alv TYPE REF TO cl_salv_table.
DATA: r_functions TYPE REF TO cl_salv_functions_list.
TYPES: ty_spfli TYPE STANDARD TABLE OF spfli
WITH KEY carrid connid.
DATA: it_spfli TYPE ty_spfli.
START-OF-SELECTION.
*########################
SELECT * FROM spfli INTO TABLE it_spfli.
TRY.
CALL METHOD cl_salv_table=>factory
* EXPORTING
* list_display = if_salv_c_bool_sap=>false
* r_container =
* container_name =
IMPORTING
r_salv_table = r_alv
CHANGING
t_table = it_spfli.
CATCH cx_salv_msg .
ENDTRY.
*** Funktionsleiste anzeigen
r_functions = r_alv->get_functions( ).
r_functions->set_all( ).
*** ALV mit Daten anzeigen, ohne Funktionsleiste
r_alv->display( ).