*----------------------------------------------------------------------*
***INCLUDE ZBC401_00_ALV2_INC .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'PF0100'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  IF sy-ucomm = 'BACK'.
    LEAVE TO SCREEN 0.
  ENDIF.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  CREATE_ALV  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE create_alv OUTPUT.

* Cria objetos container
  CREATE OBJECT r_container1
    EXPORTING
      container_name              = 'CONTAINER1'.

  CREATE OBJECT r_container2
    EXPORTING
      container_name              = 'CONTAINER2'.

* Cria objetos para os grids
  CREATE OBJECT r_grid_bkpf
    EXPORTING
      i_parent          = r_container1.

  CREATE OBJECT r_grid_bseg
    EXPORTING
      i_parent          = r_container2.

* Cria objeto event handler.
  CREATE OBJECT r_handler.

* Registra evento
  SET HANDLER r_handler->on_double_click FOR r_grid_bkpf.

  CALL METHOD r_grid_bkpf->set_table_for_first_display
    EXPORTING
      i_structure_name = 'BKPF'
    CHANGING
      it_outtab        = it_bkpf.

  CALL METHOD r_grid_bseg->set_table_for_first_display
    EXPORTING
      i_structure_name = 'BSEG'
    CHANGING
      it_outtab        = it_bseg.

ENDMODULE.                 " CREATE_ALV  OUTPUT