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 zemplist.

SELECT *
  FROM zemplist
  INTO TABLE @gt_itab.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
  EXPORTING
    i_list_type     = 0                " List type (0,1,2,3)
  IMPORTING
    et_events       = gt_events                " Table of events to perform
  EXCEPTIONS
    list_type_wrong = 1                " List type does not exist
    OTHERS          = 2.

gs_event-name = 'PF_STATUS_SET'.
gs_event-form = 'ALV_STATUS_SET'.
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        = 'ZEMPLIST'
    i_callback_user_command = 'ALV_USER_COMMAND'
  TABLES
    t_outtab                = gt_itab.

FORM alv_status_set USING pt_extab TYPE slis_t_extab .

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

ENDFORM.                    "ALV_STATUS_SET

FORM alv_user_command USING p_ucomm    LIKE sy-ucomm
                            p_selfield TYPE slis_selfield.

BREAK-POINT.

*  CASE p_ucomm.
*
*    WHEN 'CLOSE'.
*      LEAVE PROGRAM.
*
*    WHEN OTHERS.
*
*  ENDCASE.

ENDFORM.                    " ALV_USER_COMMAND