REPORT  z10_13.

DATA : gv_name TYPE c LENGTH 10 VALUE 'ZEMPLIST'.

DATA dref TYPE REF TO data.

CREATE DATA dref TYPE (gv_name).
ASSIGN dref->* TO FIELD-SYMBOL(<fs1>).

SELECT SINGLE *
  FROM zemplist
  INTO CORRESPONDING FIELDS OF @<fs1>.

  DO.
   ASSIGN COMPONENT sy-index OF STRUCTURE <fs1> TO FIELD-SYMBOL(<fs2>).
   IF sy-subrc NE 0.
     SKIP.
     EXIT.
   ENDIF.
   WRITE: <fs2>.
  ENDDO.