REPORT  z02_21.

TYPES : BEGIN OF t_emp,
          empcd TYPE zemplist-empcd,
          ename TYPE zemplist-ename,
        END OF t_emp.

DATA : gs_emp TYPE t_emp.

DATA : BEGIN OF gs_empinfo.
         INCLUDE STRUCTURE gs_emp.
DATA email TYPE zemplist-email  VALUE 'sapjoy@naver'.
DATA : END OF gs_empinfo.

SELECT SINGLE empcd, ename INTO (@gs_emp-empcd, @gs_emp-ename)
  FROM zemplist
  WHERE ename = '김철수'.

MOVE-CORRESPONDING gs_emp TO gs_empinfo.
WRITE : / gs_empinfo-empcd, gs_empinfo-ename, gs_empinfo-email..