FORM refresh_grid USING p_data_type TYPE char1
                        p_titel     TYPE string.

  IF go_ls_alv IS NOT INITIAL.
    CALL METHOD go_ls_alv->free.
  ENDIF.

  CREATE OBJECT go_ls_alv
    EXPORTING
      i_parent = go_ls_container.

  CASE p_data_type.
    WHEN 'L'.
      PERFORM create_fieldcat USING 'LS'.

      gs_layout-grid_title = p_titel.
      CALL METHOD go_ls_alv->set_table_for_first_display
        EXPORTING
          is_layout       = gs_layout
        CHANGING
          it_outtab       = gt_ls_data
          it_fieldcatalog = gt_ls_fieldcat.
    WHEN 'A'.
      PERFORM create_fieldcat USING 'AO'.

      gs_layout-grid_title = p_titel.
      CALL METHOD go_ls_alv->set_table_for_first_display
        EXPORTING
          is_layout       = gs_layout
        CHANGING
          it_outtab       = gt_ao_data
          it_fieldcatalog = gt_ls_fieldcat.
    WHEN 'G'.
      PERFORM create_fieldcat USING 'GP'.

      gs_layout-grid_title = p_titel.
      CALL METHOD go_ls_alv->set_table_for_first_display
        EXPORTING
          is_layout       = gs_layout
        CHANGING
          it_outtab       = gt_gp_data
          it_fieldcatalog = gt_ls_fieldcat.
    WHEN 'V'.
      PERFORM create_fieldcat USING 'VS'.

      gs_layout-grid_title = p_titel.
      CALL METHOD go_ls_alv->set_table_for_first_display
        EXPORTING
          is_layout       = gs_layout
        CHANGING
          it_outtab       = gt_vs_data
          it_fieldcatalog = gt_ls_fieldcat.
  ENDCASE.

  SET HANDLER go_events_aob->handle_toolbar      FOR go_ls_alv.
  SET HANDLER go_events_aob->handle_user_command FOR go_ls_alv.
  SET HANDLER go_events_aob->handle_double_click FOR go_ls_alv.
  CALL METHOD go_ls_alv->set_toolbar_interactive.
ENDFORM.

DATA: itab1 TYPE TABLE OF sflight,
      itab2 TYPE TABLE OF spfli,
      outtab TYPE REF TO data,
      wa TYPE sflight.

DATA: cont TYPE REF TO cl_gui_custom_container,
      grid TYPE REF TO cl_gui_alv_grid,
      fcat1 TYPE lvc_t_fcat,
      fcat2 TYPE lvc_t_fcat,
      curr_fcat TYPE lvc_t_fcat.

FIELD-SYMBOLS: <outtab> TYPE ANY TABLE.

DATA: change_flag.

START-OF-SELECTION.
  SELECT * FROM sflight INTO TABLE itab1 UP TO 100 ROWS.
  SELECT * FROM spfli INTO TABLE itab2 UP TO 100 ROWS.

  CREATE OBJECT: cont  EXPORTING
                         container_name = 'XCONT'
                         repid          = sy-cprog
                         dynnr          = '0100',
                 grid  EXPORTING
                         i_parent = cont.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'SFLIGHT'
    CHANGING
      ct_fieldcat      = fcat1.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'SPFLI'
    CHANGING
      ct_fieldcat      = fcat2.

  curr_fcat = fcat1.
  GET REFERENCE OF itab1 INTO outtab.
  ASSIGN outtab->* TO <outtab>.
  CHECK <outtab> IS ASSIGNED.

  CALL METHOD grid->set_table_for_first_display
    CHANGING
      it_outtab       = <outtab>
      it_fieldcatalog = curr_fcat.

  CALL SCREEN 100.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MAIN'.

  IF change_flag IS INITIAL.
    curr_fcat = fcat1.
    GET REFERENCE OF itab1 INTO outtab.
  ELSE.
    curr_fcat = fcat2.
    GET REFERENCE OF itab2 INTO outtab.
  ENDIF.

  ASSIGN outtab->* TO <outtab>.
  CHECK <outtab> IS ASSIGNED.

  CALL METHOD grid->set_frontend_fieldcatalog
    EXPORTING
      it_fieldcatalog = curr_fcat.

  CALL METHOD grid->refresh_table_display.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'CHANGE'.
      IF change_flag IS INITIAL.
        change_flag = 'X'.
      ELSE.
        CLEAR change_flag.
      ENDIF.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT