ALV HIERARCHIAL REPORT

Question

Dear Experts,
Can anyone tell me how to create a ALV Hierarchial report with one HEADER table and multiple ITEM(child) tables.
thanks & regards,
gautam

Answer 1

Hi you can tray review this code for a example i found in the web and help me:
REPORT Z_TEST_HIESEQ_REPORT.
TABLES: ekko,ekpo.
* selection option
SELECT-OPTIONS s_ebeln FOR ekko-ebeln.
TYPE-POOLS:slis.
    * define header table and item table
DATA: BEGIN OF headertab OCCURS 0,
          ebeln LIKE ekko-ebeln,
          bstyp LIKE ekko-bstyp,
         bsart LIKE ekko-bsart,
         statu LIKE ekko-statu,
         END OF headertab.
    DATA: BEGIN OF itemtab OCCURS 0,
    ebeln LIKE ekpo-ebeln,
    ebelp LIKE ekpo-ebelp,
    matnr LIKE ekpo-matnr,
    werks LIKE ekpo-werks,
    menge LIKE ekpo-menge,
    netpr LIKE ekpo-netpr,
    peinh LIKE ekpo-peinh,
    netwr LIKE ekpo-netwr,
    END OF itemtab.
    DATA: i_fieldcat TYPE slis_t_fieldcat_alv.
    DATA: v_repid LIKE sy-repid.u201Ccurrent program name
    DATA: g_tabname_header TYPE slis_tabname,
    g_tabname_item TYPE slis_tabname.
    * data connect header table and item table
    * we can set 5 field as foreign key at same time
    DATA: gs_keyinfo TYPE slis_keyinfo_alv.
    INITIALIZATION.
    v_repid = sy-repid.
    START-OF-SELECTION.
    PERFORM get_data.
    END-OF-SELECTION.
    * get field catalog of header table
    CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
    i_program_name = v_repid
    i_internal_tabname = 'HEADERTAB'
    i_inclname = v_repid
    i_bypassing_buffer = 'X'
    i_buffer_active = "
    CHANGING
    ct_fieldcat = i_fieldcat
    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.
    * get field catalog of item table
    CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
    i_program_name = sy-repid
    i_internal_tabname = 'ITEMTAB'
    i_inclname = v_repid
    i_bypassing_buffer = 'X'
    i_buffer_active = "
    CHANGING
    ct_fieldcat = i_fieldcat
    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.
    * set the header and item table are connected by pur doc number
    gs_keyinfo-header01 = 'EBELN'.
    gs_keyinfo-item01 = 'EBELN'.
    g_tabname_header = 'HEADERTAB'.
    g_tabname_item = 'ITEMTAB'.
    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
    i_callback_program = v_repid
    it_fieldcat = i_fieldcat
    i_save = 'A'
    i_tabname_header = g_tabname_header
    i_tabname_item = g_tabname_item
    is_keyinfo = gs_keyinfo
    i_bypassing_buffer = 'X'
    i_buffer_active = ' '
    TABLES
    t_outtab_header = headertab
    t_outtab_item = itemtab
    EXCEPTIONS
    program_error = 1
    OTHERS = 2.
    IF sy-subrc <;>; 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    FORM get_data.
    SELECT ebeln bstyp bsart statu
    INTO TABLE headertab
    FROM ekko
    UP TO 100 ROWS
    WHERE ebeln IN s_ebeln.
    IF NOT headertab[] IS INITIAL.
    SELECT ebeln ebelp matnr werks menge netpr peinh netwr
    INTO TABLE itemtab
    FROM ekpo
    FOR ALL ENTRIES IN headertab
    WHERE ebeln = headertab-ebeln.
    ENDIF.
    ENDFORM. "get_data
Edited by: Juan Manuel Garcia on Aug 17, 2010 11:29 PM
Edited by: Juan Manuel Garcia on Aug 17, 2010 11:36 PM