REPORT z04_06.


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.

gs_str-empcd = '1001'.
gs_str-ename = '김철수'.
INSERT gs_str INTO TABLE gt_itab.

gs_str-empcd = '1002'.
gs_str-ename = '이영희'.
INSERT gs_str INTO TABLE gt_itab.

PERFORM test_itab USING gt_itab .

FORM test_itab  USING pt_itab TYPE t_itab.

  READ TABLE pt_itab WITH KEY empcd = '1002' INTO DATA(ls_str).
  IF sy-subrc EQ 0.
    WRITE : ls_str-empcd, ls_str-ename.
  ENDIF.
ENDFORM.