REPORT  ZTEST no standard page heading.

tables:
  ekko.

select-options:
  so_ebeln for ekko-ebeln.

data:
  g_docking_container1 type ref to cl_gui_docking_container,
  GRID         TYPE REF TO CL_GUI_ALV_GRID,
  layout TYPE lvc_s_layo,
  gt_fieldcat  TYPE lvc_t_fcat,
  wa_fieldcat TYPE lvc_s_fcat,
  lvc_rows    TYPE lvc_t_row,
  wa1 type lvc_t_row with header line.

data tab type table of ekko.

at selection-screen output.
  select * into table tab from ekko.
  IF g_docking_container1 IS INITIAL.
    CREATE OBJECT G_DOCKING_CONTAINER1
      EXPORTING
            REPID = sy-repid
            DYNNR = '1000'
            EXTENSION = 200
            SIDE = g_docking_container1->dock_at_top
        EXCEPTIONS
            CNTL_ERROR = 1
            CNTL_SYSTEM_ERROR = 2
            CREATE_ERROR = 3
            LIFETIME_ERROR = 4
            LIFETIME_DYNPRO_DYNPRO_LINK = 5.
    IF SY-SUBRC NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          TITEL = sy-repid
          TXT2  = SY-SUBRC
          TXT1  = 'Docking container could not be created'.
    ENDIF.
    CREATE OBJECT grid
           EXPORTING i_parent = g_docking_container1.

    call method grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.

    layout-zebra = 'X'.
    layout-sel_mode = 'D'.

    PERFORM set_fldcat.

    CALL METHOD grid->set_table_for_first_display
      EXPORTING
        is_layout       = layout
        i_save          = 'A'
      CHANGING
        it_outtab       = tab[]
        it_fieldcatalog = gt_fieldcat.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  set_fldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM set_fldcat .
  REFRESH: gt_fieldcat.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'EKKO'
    CHANGING
      ct_fieldcat      = gt_fieldcat.

ENDFORM.                    " set_fldcat

REPORT.

SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME TITLE text-001.

* Параметры
  PARAMETERS: dummy1.

* Подэкран с чем угодно
  SELECTION-SCREEN:
    BEGIN OF TABBED BLOCK sub FOR 10 LINES,
    END OF BLOCK sub.

* Параметры
  PARAMETERS: dummy2.

SELECTION-SCREEN END OF BLOCK main.

INITIALIZATION.
  sub-prog = sy-repid.
  sub-dynnr = 100.

MODULE status_0100 OUTPUT.
  ...
* наполнение контейнера
  ...
ENDMODULE.                 " STATUS_0100  OUTPUT