Skip to Content
0
Dec 03, 2009 at 10:33 AM

Items are not displayed --- REUSE_ALV_HIERSEQ_LIST_DISPLAY

99 Views

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