PROGRAM z15_02.

DATA: con1_ref TYPE REF TO cl_gui_custom_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.

  IF con1_ref IS INITIAL.
    CREATE OBJECT con1_ref
      EXPORTING
        container_name = 'CON1'.

    CREATE OBJECT g_grid
      EXPORTING
        i_parent = con1_ref.

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

ENDMODULE.