How to use ALV for Hierarchical Lists

Question

Hi All,
         I am satish, trying to get the hierarchical list using REUSE_ALV_HIERSEQ_LIST_DISPLAY function module. But it is going to dump. I couldn't find out where is mistake. So please any one help me to do this.
This is the code.
tables: vbak,vbap.
type-pools slis.
DATA: thead like vbak OCCURS 0,
      titem like vbap occurs 0,
      G_REPID LIKE SY-REPID,
      ls_fieldcat TYPE slis_fieldcat_alv.
select * from vbak into table thead up to 5 rows.
select * from vbap into table titem up to 5 rows.
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  EXPORTING
   I_INTERFACE_CHECK              = 'I'
   I_CALLBACK_PROGRAM             =  g_repid
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  IS_LAYOUT                      =
    IT_FIELDCAT                    = ls_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                         = 'A'
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
   I_TABNAME_HEADER               = 'VBAK'
  I_TABNAME_ITEM                 = 'VBAP'
   I_STRUCTURE_NAME_HEADER        = 'vbak'
   I_STRUCTURE_NAME_ITEM          = 'vbap'
   IS_KEYINFO                     =
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  TABLES
    T_OUTTAB_HEADER                = Thead
    T_OUTTAB_ITEM                  = titem.
Thanks & Regards,
Satish.

Answer 1

HI Satish,
Check this code.
report  zxxx_alvexer4    message-id zz        .
*& TABLES DECLARATION                                                  *
tables: vbak, vbap.
*& TYPE POOLS DECLARATION                                              *
type-pools: slis.
                      DATA DECLARATIONS                             *
data: v_flag type c.                        "Flag to display the header
data: v_repid type sy-repid.
*& INTERNAL TABLE DECLARATION                                          *
data: begin of it_vbak occurs 0,
       vbeln like vbak-vbeln,
       audat like vbak-audat,
       auart like vbak-auart,
       netwr like vbak-netwr,
       expand(1),
      end of it_vbak.
data: begin of it_vbap occurs 0,
       vbeln like vbap-vbeln,
       posnr like vbap-posnr,
       matnr like vbap-matnr,
       pstyv like vbap-pstyv,
       charg like vbap-charg,
     end of it_vbap.
data: it_fldcat type slis_t_fieldcat_alv,
      it_fldcat1 type slis_t_fieldcat_alv,
*events
      it_events type slis_t_event with header line,
      v_call type c,
      x_user type  slis_exit_by_user,
      it_variant like  disvariant occurs 0 with header line,
      x_keyinfo type slis_keyinfo_alv,
*layout
      x_layout type slis_layout_alv,
*sort
      it_sort type slis_t_sortinfo_alv,
      wa_sort like line of it_sort,
      x_cat type slis_fieldcat_alv,
      v_tabix like sy-tabix.
      Selection screen Declaration
*--BLOCK1
selection-screen begin of block b1 with frame title text-001.
select-options: s_vbeln for vbak-vbeln,
                s_auart for vbak-auart.
selection-screen end of block b1.
AT SELECTION-SCREEN                                                 *
*- Validations
at selection-screen.
  perform validate_screen.
              START OF SELECTION                                    *
start-of-selection.
*- To get data from VBAK
  perform get_data.
*to get data from VBAP
  perform get_data_vbap.
  perform prepare_alv.
              END OF SELECTION                                    *
end-of-selection.
  perform display_report.
*&      Form  VALIDATE_SCREEN
      text
-->  p1        text
<--  p2        text
form validate_screen .
  data: lv_vbeln like vbak-vbeln,
        lv_auart like vbak-auart.
  if not s_vbeln[] is initial.
    select vbeln
           into lv_vbeln
           from vbak
           where vbeln in s_vbeln.
    endselect.
    if sy-subrc <> 0.
      message e000 with 'INVALID SALES DOC'(002).
    endif.
  endif.
  if not s_auart[] is initial.
    select auart
           into lv_auart
           from vbak
           where auart in s_auart.
    endselect.
    if sy-subrc <> 0.
      message e000 with 'INVALID SALES DOC TYPE'(003).
    endif.
  endif.
endform.                    " VALIDATE_SCREEN
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
form get_data .
  select vbeln
         audat
         auart
         netwr
         from vbak
         into table it_vbak
         where vbeln in s_vbeln
         and auart in s_auart.
  if sy-subrc = 0.
    sort it_vbak by vbeln.
  endif.
endform.                    " GET_DATA
*&      Form  GET_DATA_VBAP
      text
-->  p1        text
<--  p2        text
form get_data_vbap .
  select vbeln
         posnr
         matnr
         pstyv
         charg
         into table it_vbap
         from vbap
         for all entries in it_vbak
         where vbeln = it_vbak-vbeln.
  if sy-subrc = 0.
    sort it_vbap by vbeln posnr.
  endif.
endform.                    " GET_DATA_VBAP
*&      Form  prepare_alv
      text
-->  p1        text
<--  p2        text
form prepare_alv .
Prepare field catalog .
  perform prepare_catalog.
Modify catalog
  perform change_attr_of_catalog.
Modify Layout
  perform modify_layout.
Sort Catalog
  perform sort_catalog.
endform.                    " prepare_alv
*&      Form  prepare_catalog
      text
-->  p1        text
<--  p2        text
form prepare_catalog .
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
      i_program_name         = sy-repid
      i_internal_tabname     = 'IT_VBAK'
      i_inclname             = sy-repid
    changing
      ct_fieldcat            = it_fldcat1[]
    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.
  append lines of it_fldcat1 to it_fldcat.
  clear: it_fldcat1[].
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
      i_program_name         = sy-repid
      i_internal_tabname     = 'IT_VBAP'
      i_inclname             = sy-repid
    changing
      ct_fieldcat            = it_fldcat1[]
    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.
  append lines of it_fldcat1 to it_fldcat.
endform.                    " prepare_catalog
*&      Form  change_attr_of_catalog
      text
-->  p1        text
<--  p2        text
form change_attr_of_catalog .
  loop at it_fldcat into x_cat.
    v_tabix = sy-tabix.
    case x_cat-fieldname.
      when  'EXPAND'.
        if x_cat-tabname = 'IT_VBAK'.
          x_cat-no_out = 'X'.
        endif.
     when  'VBELN'.
       if x_cat-tabname = 'IT_VBAK'.
         x_cat-no_out = 'X'.
       endif.
      when  'VBELN'.
        if x_cat-tabname = 'IT_VBAK'.
          x_cat-col_pos   = '1'.
          x_cat-seltext_m = 'SALES DOC'.
          x_cat-seltext_l = 'SALES DOC'.
          x_cat-seltext_s = 'SALES DOC'.
          x_cat-outputlen = '10'.
        endif.
      when  'AUDAT'.
        if x_cat-tabname = 'IT_VBAK'.
          x_cat-col_pos   = '2'.
          x_cat-seltext_m = 'DOC DATE'.
          x_cat-seltext_l = 'DOC DATE'.
          x_cat-seltext_s = 'DOC DATE'.
          x_cat-outputlen = '8'.
        endif.
      when  'AUART'.
        if x_cat-tabname = 'IT_VBAK'.
          x_cat-col_pos   = '3'.
          x_cat-seltext_m = 'ORDER REASON'.
          x_cat-seltext_l = 'ORDER REASON'.
          x_cat-seltext_s = 'ORDER REASON'.
          x_cat-outputlen = '5'.
        endif.
      when  'NETWR'.
        if x_cat-tabname = 'IT_VBAK'.
          x_cat-col_pos   = '4'.
          x_cat-seltext_m = 'NET PRICE'.
          x_cat-seltext_l = 'NET PRICE'.
          x_cat-seltext_s = 'NET PRICE'.
          x_cat-outputlen = '15'.
        endif.
    endcase.
    modify it_fldcat from x_cat.
    clear x_cat.
  endloop.
endform.                    " change_attr_of_catalog
*&      Form  modify_layout
      text
-->  p1        text
<--  p2        text
form modify_layout .
  x_layout-default_item = 'X'.
  x_layout-zebra = 'X'.
  x_layout-expand_fieldname = 'EXPAND'.
endform.                    " modify_layout
*&      Form  sort_catalog
      text
-->  p1        text
<--  p2        text
form sort_catalog .
  clear wa_sort.
  wa_sort-spos = '01'.
  wa_sort-fieldname = 'VBELN' .
  wa_sort-tabname   = 'IT_VBAP'.
  wa_sort-up        = 'X'.
  append wa_sort to it_sort.
  clear  wa_sort.
  wa_sort-spos = '02'.
  wa_sort-fieldname = 'POSNR' .
  wa_sort-tabname   = 'IT_VBAP'.
  wa_sort-up        = 'X'.
  append wa_sort to it_sort.
endform.                    " sort_catalog
*&      Form  DISPLAY_REPORT
      text
-->  p1        text
<--  p2        text
form display_report .
  it_variant-report = sy-repid.
  sort it_vbak by vbeln.
  sort it_vbap by vbeln posnr.
  call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    exporting
      i_callback_program      = sy-repid
      is_layout               = x_layout
      it_fieldcat             = it_fldcat[]
      it_sort                 = it_sort
      is_variant              = it_variant
      it_events               = it_events[]
      i_tabname_header        = 'IT_VBAK'
      i_tabname_item          = 'IT_VBAP'
      is_keyinfo              = x_keyinfo
    importing
      e_exit_caused_by_caller = v_call
      es_exit_caused_by_user  = x_user
    tables
      t_outtab_header         = it_vbak
      t_outtab_item           = it_vbap
    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.
Regards,
Plz reward points and close the thread,
Laxmi.