TYPES : BEGIN OF ot_data,
  kunnr   LIKE bsid-kunnr,
  name1   LIKE kna1-name1,
  land1   LIKE kna1-land1,
  cpudt   LIKE bsid-cpudt,
  dmbtr   LIKE bsid-dmbtr,
  zterm   LIKE bsid-zterm,
  zterm1  LIKE t052-zterm,
  ztag1   LIKE t052-ztag1,
  ztag2   LIKE t052-ztag2,
  END OF ot_data.

DATA gt_dout TYPE TABLE OF ot_data.
DATA gv_dout LIKE LINE OF gt_dout.

SELECT
  b~kunnr
  k~name1
  k~land1
  b~cpudt
  b~dmbtr
  b~zterm
  t~zterm
  t~ztag1
  t~ztag2
  INTO CORRESPONDING FIELDS OF TABLE gt_dout
  FROM ( ( bsid AS b
  INNER JOIN kna1 AS k ON b~kunnr = k~kunnr )
  INNER JOIN t052 AS t ON b~zterm = t~zterm )
  WHERE b~shkzg = 'H'

DATA:
      CUSTOM_CONTROL1 TYPE REF TO cl_gui_custom_container,
      alv TYPE REF TO cl_gui_alv_grid,
      gs_layout TYPE lvc_s_layo,
      gs_variant TYPE disvariant,
      ok_code_0100 LIKE  sy-ucomm.

IF sy-subrc = 0.
  CALL SCREEN 100.
ELSE.
   MESSAGE text-000 TYPE 'I'.
ENDIF.

MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS_100'.
  gs_variant-report = sy-repid.
  gs_variant-username = sy-uname.

  IF CUSTOM_CONTROL1 IS INITIAL.
    CREATE OBJECT CUSTOM_CONTROL1
      EXPORTING
        container_name = 'CUSTOM_CONTROL1'.

    CREATE OBJECT alv
     EXPORTING
       i_parent = CUSTOM_CONTROL1.

    gs_layout-zebra = 'X'.
    gs_layout-cwidth_opt = 'X'.
    gs_layout-totals_bef = 'X'.

    CALL METHOD alv->set_table_for_first_display
      EXPORTING
        i_structure_name = 'gt_dout'
        is_layout = gs_layout
        i_save = 'A'
        is_variant = gs_variant
       CHANGING
        it_outtab = gt_dout.
    ELSE.
      ENDIF.
  ENDMODULE.

CALL METHOD alv->set_table_for_first_display
      EXPORTING
        i_structure_name = 'gt_dout'
        is_layout = gs_layout
        i_save = 'A'
        is_variant = gs_variant
       CHANGING
        it_outtab = gt_dout.

DATA: g_etext   TYPE string,
      gcl_grid  TYPE REF TO cl_salv_table,
      gcl_error TYPE REF TO cx_root.

  TRY.

      cl_salv_table=>factory( IMPORTING r_salv_table = gcl_grid
                              CHANGING  t_table      = gt_dout  ).

    CATCH cx_salv_msg INTO gcl_error.

      g_etext = gcl_error->get_text( ).

      MESSAGE g_etext TYPE 'S'.

      RETURN.

  ENDTRY.

gcl_grid->display( ).

FORM display_alv.
  IF gr_alvgrid IS INITIAL.
    CREATE OBJECT gr_ccontainer
      EXPORTING
        container_name  = gc_custom_control_name
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        others                      = 6.
    IF sy-subrc <> 0.
* --- Exeptions handling
    ENDIF.

    CREATE OBJECT gr_alvgrid
      EXPORTING
        i_parent                    = gr_ccontainer
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        others            = 5.
    IF sy-subrc <> 0.
* --- Exeptions handling
    ENDIF.

* --- Preparing field catalog
    PERFORM prepare_field_catalog CHANGING gt_fieldcat.

* --- Preparing layout structure
    PERFORM prepare_layout CHANGING gs_layout.

  CALL METHOD gr_alvgrid->set_table_for_first_display
    EXPORTING
      is_layout                     = gs_layout
    CHANGING
      it_outtab                     = gt_data[]
      it_fieldcatalog               = gt_fieldcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      others                        = 4.
    IF sy-subrc <> 0.
* --- Exeptions handling
    ENDIF.

  ELSE.
    CALL METHOD gr_alvgrid->refresh_table_display
*-      EXPORTING
*-        is_stable          = 1
      EXCEPTIONS
        finished   = 1
        others     = 2.
   IF sy-subrc <> 0.
* --- Exeptions handling
    ENDIF.
  ENDIF.
ENDFORM.