*&---------------------------------------------------------------------*

*& This code snippet will show how to use the CL_SALV_HIERSEQ_TABLE to

*&   generate the simplest Hierarchical (Sequential) ALV

*&---------------------------------------------------------------------*

REPORT  zsalv_hs_simple.

*

*----------------------------------------------------------------------*

*       CLASS lcl_report DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_report DEFINITION.

*

  PUBLIC SECTION.

*

*   Final Header output table

    TYPES: BEGIN OF ty_vbak,

           vbeln TYPE vbak-vbeln,

           erdat TYPE erdat,

           auart TYPE auart,

           kunnr TYPE kunnr,

           expand   TYPE char01,    "Column for Expand / Collapse

           END   OF ty_vbak.

*

*   FInal Item output table

    TYPES: BEGIN OF ty_vbap,

           vbeln TYPE vbap-vbeln,

           posnr TYPE vbap-posnr,

           matnr TYPE vbap-matnr,

           arktx TYPE vbap-arktx,

           END   OF ty_vbap.

*

*   Standard internal tables

    DATA: t_vbak TYPE STANDARD TABLE OF ty_vbak,

          t_vbap TYPE STANDARD TABLE OF ty_vbap.

*

*   Hierarchical ALV reference

    DATA: o_hs_alv TYPE REF TO cl_salv_hierseq_table.

*

    METHODS:

*     data selection

      get_data,

*

*     Generating output

      generate_output.

*

*$*$*.....CODE_ADD_1 - Begin..................................1..*$*$*

*

*    In this section we will define the private methods which can

*      be implemented to set the properties of the ALV and can be

*      called in the GENERATE_OUTPUT method

*

*$*$*.....CODE_ADD_1 - End....................................1..*$*$*

*

ENDCLASS.                    "lcl_report DEFINITION

*

*

START-OF-SELECTION.

  DATA: lo_report TYPE REF TO lcl_report.

*

  CREATE OBJECT lo_report.

*

  lo_report->get_data( ).

*

  lo_report->generate_output( ).

*

*----------------------------------------------------------------------*

*       CLASS lcl_report IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_report IMPLEMENTATION.

*

  METHOD get_data.

*   data selection - Header

    SELECT vbeln erdat auart kunnr

           INTO  TABLE t_vbak

           FROM  vbak

           UP TO 10 ROWS.

*

*   data selection - Item

    SELECT vbeln posnr matnr arktx

           INTO  TABLE t_vbap

           FROM  vbap

           FOR   ALL ENTRIES IN t_vbak

           WHERE vbeln = t_vbak-vbeln.

*

  ENDMETHOD.                    "get_data

*

*.......................................................................

  METHOD generate_output.

* New ALV instance

*   We are calling the static Factory method which will give back

*   the ALV object reference.

*

    DATA: lx_data_err   TYPE REF TO cx_salv_data_error,

          lx_not_found  TYPE REF TO cx_salv_not_found.

*

*   Fill the Binding table. Here we hae to provide the relationship

*     between all the Common Key fields in the Master and Slave

*     table. Based on this relationship, we will get the output.

    DATA: lt_bind TYPE salv_t_hierseq_binding,

          la_bind LIKE LINE OF lt_bind.

*

    la_bind-master = 'VBELN'.    " VBELN as field of my T_VBAK

    la_bind-slave  = 'VBELN'.    " VBELN as field of my T_VBAP

    APPEND la_bind TO lt_bind.

*

*   call factory method to generate the output

    TRY.

        CALL METHOD cl_salv_hierseq_table=>factory

          EXPORTING

            t_binding_level1_level2 = lt_bind

          IMPORTING

            r_hierseq               = o_hs_alv

          CHANGING

            t_table_level1          = t_vbak

            t_table_level2          = t_vbap.

      CATCH cx_salv_data_error INTO lx_data_err.

      CATCH cx_salv_not_found  INTO lx_not_found.

    ENDTRY.

*

*$*$*.....CODE_ADD_2 - Begin..................................2..*$*$*

*

*    In this area we will call the methods which will set the

*      different properties to the ALV

*

*$*$*.....CODE_ADD_2 - End....................................2..*$*$*

*

* Displaying the ALV

*   Here we will call the DISPLAY method to get the output on the screen

    o_hs_alv->display( ).

*

  ENDMETHOD.                    "generate_output

*

*$*$*.....CODE_ADD_3 - Begin..................................3..*$*$*

*

*    In this area we will implement the methods which are defined in

*      the class definition

*

*$*$*.....CODE_ADD_3 - End....................................3..*$*$*

*

ENDCLASS.                    "lcl_report IMPLEMENTATION