REPORT z03_20.

SELECT empcd, ename FROM zemplist
INTO TABLE @DATA(gt_emplist).

SELECT empcd, fname FROM zfamily
  FOR ALL ENTRIES IN @gt_emplist
  WHERE empcd = @gt_emplist-empcd
  INTO TABLE @DATA(gt_family).

SORT gt_family BY empcd.

LOOP AT gt_family INTO DATA(gs_family).
  READ TABLE gt_emplist WITH KEY empcd = gs_family-empcd INTO DATA(gs_emp).
  WRITE : / gs_family-empcd, gs_family-fname, gs_emp-ename.
ENDLOOP.