REPORT  z16_03.

TYPE-POOLS : slis.

DATA gt_events        TYPE slis_t_event.
DATA gs_event         TYPE slis_alv_event.

DATA gt_itab          TYPE TABLE OF sflight.

SELECT * FROM sflight INTO TABLE gt_itab
UP TO 25 ROWS.

MOVE    'PF_STATUS_SET'   TO  gs_event-name.
MOVE    'ALV_STATUS_SET'  TO  gs_event-form.
APPEND  gs_event          TO  gt_events.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program = sy-repid
    it_events          = gt_events
    i_structure_name   = 'SFLIGHT'
  TABLES
    t_outtab           = gt_itab.

*&---------------------------------------------------------------------*
*&      Form  alv_status_set
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PT_EXTAB   text
*----------------------------------------------------------------------*
FORM alv_status_set  USING pt_extab  TYPE slis_t_extab .

  CLEAR: pt_extab[].
  SET PF-STATUS 'ALV_STATUS'.

ENDFORM.                    "ALV_STATUS_SET

*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM user_command.

ENDFORM.                    "USER_COMMAND