REPORT  z10_10.

DATA: BEGIN OF gs_line,
        empcd     TYPE zemplist-empcd,
        ename     TYPE zemplist-ename,
        fname     TYPE zfamily-fname,
  END OF gs_line.

DATA gt_itab LIKE TABLE OF gs_line.
FIELD-SYMBOLS <fs> LIKE gs_line.

SELECT empcd, fname
FROM zfamily

INTO CORRESPONDING FIELDS OF TABLE @gt_itab.

LOOP AT gt_itab INTO gs_line.

  SELECT SINGLE ename INTO gs_line-ename
  FROM zemplist WHERE empcd = gs_line-empcd.

  MODIFY gt_itab FROM gs_line.

ENDLOOP.

cl_demo_output=>display( gt_itab ).