Code: Alles auswählen.
REPORT ztest02 NO STANDARD PAGE HEADING LINE-SIZE 90.
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_t001,
mandt TYPE t001-mandt,
bukrs TYPE t001-bukrs,
butxt TYPE t001-butxt,
ort01 TYPE t001-ort01,
land1 TYPE t001-land1,
waers TYPE t001-waers,
stceg TYPE t001-stceg,
END OF ty_t001.
DATA: it_t001 TYPE TABLE OF ty_t001,
rep TYPE sy-repid.
* Feldkatalog für ALV
DATA: it_fcat TYPE slis_t_fieldcat_alv,
wa_fcat LIKE LINE OF it_fcat.
PARAMETERS: repid TYPE sy-repid.
START-OF-SELECTION.
rep = sy-repid.
SELECT mandt bukrs butxt ort01 land1 waers stceg FROM t001
INTO TABLE it_t001.
* Feldkatalog aufbauen
wa_fcat-fieldname = 'mandt'.
wa_fcat-tabname = 'T001'.
wa_fcat-key = 'X'.
wa_fcat-hotspot = 'X'.
wa_fcat-text_fieldname = 'Mandant'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-fieldname = 'bukrs'.
wa_fcat-tabname = 'T001'.
wa_fcat-key = 'X'.
wa_fcat-hotspot = 'X'.
wa_fcat-text_fieldname = 'Bu.Kreis'.
APPEND wa_fcat TO it_fcat.
wa_fcat-fieldname = 'butxt'.
wa_fcat-tabname = 'T001'.
wa_fcat-text_fieldname = 'Bezeichung'.
APPEND wa_fcat TO it_fcat.
wa_fcat-fieldname = 'ort01'.
wa_fcat-tabname = 'T001'.
wa_fcat-text_fieldname = 'Ort'.
APPEND wa_fcat TO it_fcat.
wa_fcat-fieldname = 'land1'.
wa_fcat-tabname = 'T001'.
wa_fcat-text_fieldname = 'Land'.
APPEND wa_fcat TO it_fcat.
wa_fcat-fieldname = 'waers'.
wa_fcat-tabname = 'T001'.
wa_fcat-text_fieldname = 'Währung'.
APPEND wa_fcat TO it_fcat.
wa_fcat-fieldname = 'stceg'.
wa_fcat-tabname = 'T001'.
wa_fcat-text_fieldname = 'UID'.
APPEND wa_fcat TO it_fcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = rep
it_fieldcat = it_fcat
i_save = 'A'
TABLES
t_outtab = it_t001.