Hi experts,
i'm stuck in this weird problem.
Items (it_items) are not displayed in table. I've cheked with debugger and it_items contains lines.
Thanks in advance.
REPORT z_hier.
TYPE-POOLS: slis.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: it_header LIKE STANDARD TABLE OF zvend_header WITH HEADER LINE,
it_items LIKE STANDARD TABLE OF zvend_items WITH HEADER LINE,
g_tabname_header TYPE slis_tabname,
g_tabname_item TYPE slis_tabname,
gs_keyinfo TYPE slis_keyinfo_alv.
PARAMETERS: lifnr LIKE lfa1-lifnr.
INITIALIZATION.
CLEAR gs_keyinfo.
gs_keyinfo-header01 = 'LIFNR'.
gs_keyinfo-item01 = 'IDNLF'.
g_tabname_header = 'it_header'.
g_tabname_item = 'it_items'.
START-OF-SELECTION.
PERFORM retrieve_data.
END-OF-SELECTION.
PERFORM build_fieldcatalog.
PERFORM display_list.
FORM build_fieldcatalog.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
* I_PROGRAM_NAME =
i_internal_tabname = g_tabname_header
i_structure_name = 'ZVEND_HEADER'
i_client_never_display = 'X'
* I_INCLNAME =
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = fieldcatalog
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
* I_PROGRAM_NAME =
i_internal_tabname = g_tabname_item
i_structure_name = 'ZVEND_ITEMS'
i_client_never_display = 'X'
* I_INCLNAME =
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = fieldcatalog
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "build_fieldcatalog