FILTER.abap

TYPES:
  BEGIN OF gty_po,
    rssoursysid TYPE c LENGTH 2,
    ebeln       TYPE c LENGTH 10,
    ebelp       TYPE n LENGTH 5
  END OF gty_po.

DATA:
 l_th_filter   TYPE HASHED TABLE OF gty_results
               WITH UNIQUE KEY rssoursysid ebeln ebelp

SELECT rssoursysid, ebeln, ebelp
FROM /bic/amccoy_ekpo2
INTO CORRESPONDING FIELDS OF TABLE @l_th_filter
WHERE loekz = abap_true                         " Select only deleted PO's

*   Filter out invalid records
SOURCE_PACKAGE =
    FILTER #( SOURCE_PACKAGE IN l_th_filter
          WHERE rssoursysid = rssoursysid
            AND ebeln = ebeln
            AND ebelp = ebeln ).