REPORT z01_05.

TABLES zemplist.

TYPES: BEGIN OF ts_test,
         empcd    TYPE zemplist-empcd,
         ename    TYPE zemplist-ename,
         depcd    TYPE zemplist-depcd,
         dname    TYPE zteamlist-dname,
         relation TYPE zfamily-relation,
         fname    TYPE zfamily-fname,
         bdate    TYPE zfamily-bdate,
       END OF ts_test.

DATA: gt_test TYPE TABLE OF ts_test,
      gs_test TYPE ts_test.

DATA: gv_line_old TYPE text255,
      gv_line_new TYPE text255.

SELECT-OPTIONS s_empcd FOR zemplist-empcd.

SELECT a~empcd,    a~ename, a~depcd, b~dname,
       c~relation, c~fname, c~bdate
  FROM zemplist AS a
  INNER JOIN zteamlist AS b
    ON b~depcd EQ a~depcd
  LEFT OUTER JOIN zfamily AS c
    ON c~empcd EQ a~empcd
  WHERE a~empcd IN @s_empcd
  INTO TABLE @gt_test.


LOOP AT gt_test INTO gs_test.

  WRITE :/ gs_test-empcd, gs_test-ename, gs_test-relation, gs_test-fname, gs_test-bdate.
  ULINE.

ENDLOOP.