PROGRAM z15_04.

DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : g_grid TYPE REF TO cl_gui_alv_grid.
DATA : gs_variant TYPE disvariant.
DATA : gt_emplist TYPE TABLE OF zemplist.

START-OF-SELECTION.

  SELECT *
    FROM zemplist
    INTO TABLE @gt_emplist.

  gs_variant-report = sy-repid.
  gs_variant-username = sy-uname.

  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'
        is_variant       = gs_variant
        i_save           = ' '
      CHANGING
        it_outtab        = gt_emplist.
  ENDIF.
ENDMODULE.

INCLUDE z15_04_pbo.