Создать динамическую внутреннюю таблицу ABAP

на экране выбора пользователю необходимо вставить имя таблицы, и мне нужно получить первые 3 поля из этой таблицы и отобразить их в ALV для вывода. Что я понимаю из чтения учебников, так это то, что мне нужно вызвать метод cl_alv_table_create=>create_dynamic_table, но я не знаю как создать fieldcatalog.

DATA: t_newtable   TYPE REF TO data,
      t_fldcat     TYPE lvc_t_fcat,

CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog = t_fldcat
  IMPORTING
    ep_table        = t_newtable.

1 ответов


Я предполагаю, что имя таблицы, которое вводит пользователь, является таблицей словаря данных (например, SFLIGHT). Если да, то можно создать каталог полей следующим образом.


data : it_tabdescr type abap_compdescr_tab,
     wa_tabdescr type abap_compdescr.
data : ref_table_descr type ref to cl_abap_structdescr.

  ref_table_descr ?= cl_abap_typedescr=>describe_by_name( p_table ).
  it_tabdescr[] = ref_table_descr->components[].
  loop at it_tabdescr into wa_tabdescr.
    clear wa_fieldcat.
    wa_fieldcat-fieldname = wa_tabdescr-name .
    wa_fieldcat-datatype  = wa_tabdescr-type_kind.
    wa_fieldcat-inttype   = wa_tabdescr-type_kind.
    wa_fieldcat-intlen    = wa_tabdescr-length.
    wa_fieldcat-decimals  = wa_tabdescr-decimals.
    append wa_fieldcat to it_fieldcat.
  endloop.

здесь "p_table" подбор параметра экрана с таблицей имя.