REPORT  z05_29.

REPORT  z05_29.

DATA : BEGIN OF gs_line,
  empcd    TYPE zemplist-empcd,
  ename  TYPE zemplist-ename,
END OF gs_line.

DATA gt_itab LIKE TABLE OF gs_line WITH NON-UNIQUE KEY empcd.

SELECT empcd, ename
INTO CORRESPONDING FIELDS OF TABLE @gt_itab
FROM zemplist.

gs_line-empcd = '1002'.
READ TABLE gt_itab FROM gs_line INTO gs_line.
WRITE : / gs_line-empcd, gs_line-ename.

CLEAR : gs_line.

READ TABLE gt_itab WITH TABLE KEY empcd = '1003' INTO gs_line.
WRITE : / gs_line-empcd, gs_line-ename.


Leave a Reply