REPORT Z04_07.

TYPES: BEGIN OF t_str,
         empcd TYPE zemplist-empcd,
         ename TYPE zemplist-ename,
       END OF t_str.

TYPES : t_itab TYPE TABLE OF t_str.

DATA: gs_str  TYPE t_str,
      gt_itab TYPE t_itab.

PERFORM insert_itab TABLES gt_itab .
PERFORM write_data TABLES gt_itab.

FORM insert_itab  TABLES pt_itab TYPE t_itab.
  DATA ls_str TYPE t_str.

ls_str-empcd = '1001'.
ls_str-ename = '김철수'.
INSERT ls_str INTO TABLE pt_itab.

ls_str-empcd = '1002'.
ls_str-ename = '이영희'.
INSERT ls_str INTO TABLE pt_itab.

ENDFORM.                    "insert_itab

FORM write_data TABLES pt_itab LIKE gt_itab.
  DATA ls_str TYPE t_str.

  LOOP AT pt_itab INTO  ls_str.
    WRITE : / ls_str-empcd, ls_str-ename.
  ENDLOOP.
ENDFORM.                    "write_data