ZGDEMO_HIER_SEQ_ALV_7AM

*&---------------------------------------------------------------------*
*& Report  ZGDEMO_HIER_SEQ_ALV_7AM
*&
*&---------------------------------------------------------------------*

REPORT  ZGDEMO_HIER_SEQ_ALV_7AM.
TYPE-POOLS SLIS.
DATA : IT_EKKO TYPE TABLE OF EKKO,
       IT_EKPO TYPE TABLE OF EKPO.
DATA WA_KEYINFO TYPE slis_keyinfo_alv.
*********************************************
*        START-OF-SELECTION.                *
*********************************************
START-OF-SELECTION.
SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS.
SELECT * INTO TABLE IT_EKPO FROM EKPO
                            FOR ALL ENTRIES IN IT_EKKO
                            WHERE EBELN = IT_EKKO-EBELN.

*FILL KEY INO
WA_KEYINFO-HEADER01 = 'EBELN'.
WA_KEYINFO-ITEM01   = 'EBELN'.
WA_KEYINFO-ITEM02   = 'EBELP'.

call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  exporting
*   I_INTERFACE_CHECK              = ' '
   I_CALLBACK_PROGRAM             = SY-REPID
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IS_LAYOUT                      =
*   IT_FIELDCAT                    =
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
    I_TABNAME_HEADER               = 'IT_EKKO'
    I_TABNAME_ITEM                 = 'IT_EKPO'
   I_STRUCTURE_NAME_HEADER        = 'EKKO'
   I_STRUCTURE_NAME_ITEM          = 'EKPO'
    IS_KEYINFO                     = WA_KEYINFO
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                =
*   IR_SALV_HIERSEQ_ADAPTER        =
*   IT_EXCEPT_QINFO                =
*   I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
  TABLES
    T_OUTTAB_HEADER                = IT_EKKO
    T_OUTTAB_ITEM                  = IT_EKPO
* EXCEPTIONS
*   PROGRAM_ERROR                  = 1
*   OTHERS                         = 2
          .
if SY-SUBRC = 0.
endif.