PROGRAM z15_03.

DATA : g_docking TYPE REF TO cl_gui_docking_container.
DATA : g_grid TYPE REF TO cl_gui_alv_grid.

DATA : gt_emplist TYPE TABLE OF zemplist.


START-OF-SELECTION.

  SELECT *
    FROM zemplist
    INTO TABLE @gt_emplist.

  CALL SCREEN 0100.
*&---------------------------------------------------------------------*
*& Module INIT_CON OUTPUT
*&---------------------------------------------------------------------*
MODULE init_con OUTPUT.

  CHECK g_docking IS INITIAL.

  CREATE OBJECT g_docking
    EXPORTING
      repid     = sy-repid
      dynnr     = sy-dynnr
      extension = 2000.

  CREATE OBJECT g_grid
    EXPORTING
      i_parent = g_docking.

  CALL METHOD g_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZEMPLIST'
    CHANGING
      it_outtab        = gt_emplist.

ENDMODULE. "INIT_CON OUTPUT.

INCLUDE z15_03_pbo.