REPORT  z05_32.

TYPES : BEGIN OF t_line,
          empcd TYPE zfamily-empcd,
          ename TYPE zemplist-ename,
          fname TYPE zfamily-fname,
        END OF t_line.

DATA gt_itab TYPE TABLE OF t_line.

SELECT empcd, fname INTO CORRESPONDING FIELDS OF TABLE @gt_itab
FROM zfamily.

SELECT empcd, ename INTO TABLE @DATA(gt_zemplist)
 FROM zemplist
  FOR ALL ENTRIES IN @gt_itab
  WHERE empcd = @gt_itab-empcd.

LOOP AT gt_itab INTO DATA(gs_line).

  READ TABLE gt_zemplist WITH KEY empcd = gs_line-empcd BINARY SEARCH
  INTO DATA(gs_emp) TRANSPORTING ename.

  gs_line-ename = gs_emp-ename.

  MODIFY gt_itab FROM gs_line.

  WRITE : / gs_line-empcd, gs_line-ename, gs_line-fname.

ENDLOOP.