REPORT z07_03.

REPORT z07_03.

DATA: gr_rdata TYPE RANGE OF zemplist-empcd,
      gs_rdata LIKE LINE OF gr_rdata.

DATA: gt_emp TYPE TABLE OF zemplist,
      gs_emp LIKE LINE OF gt_emp.

gs_rdata-sign = 'I'.
gs_rdata-option = 'EQ'.
gs_rdata-low = '1001'.
APPEND gs_rdata TO gr_rdata.

gs_rdata-sign = 'I'.
gs_rdata-option = 'EQ'.
gs_rdata-low = '1002'.
APPEND gs_rdata TO gr_rdata.

SELECT empcd, ename
  FROM zemplist
  WHERE empcd IN @gr_rdata
  INTO CORRESPONDING FIELDS OF TABLE @gt_emp.

LOOP AT gt_emp INTO gs_emp.
  WRITE: / gs_emp-empcd, gs_emp-ename.
ENDLOOP.


Leave a Reply