REPORT  z02_20.

DATA gt_list TYPE TABLE OF zsemp.
DATA : go_alv     TYPE REF TO cl_salv_table,
       go_alv_exc TYPE REF TO cx_salv_msg.

SELECT *
         FROM zemplist
         INTO CORRESPONDING FIELDS OF TABLE @gt_list
         WHERE empcd >= '1001'.
TRY.
    cl_salv_table=>factory(
            IMPORTING r_salv_table = go_alv
            CHANGING t_table = gt_list ).

    go_alv->display( ).
  CATCH cx_salv_msg INTO go_alv_exc.
    MESSAGE go_alv_exc TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.