REPORT  z05_24.


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.

LOOP AT gt_itab INTO DATA(gs_line).

  AT NEW empcd.

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

    MODIFY gt_itab FROM gs_line TRANSPORTING ename
        WHERE empcd = gs_line-empcd.
  ENDAT.

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

ENDLOOP.