ABAP Code help in Start Routine

[Former Member]

All,

I have an internal table IT_TAB, which contains the list of customers i am interested in.

I need to delete any records in my SOURCE_PACKAGE if the customer number is not present in IT_TAB.

Please suggest how to do this in 7.0. It should be something like this:

DELETE SOURCE_PACKAGE

WHERE CUSTOMER NOT IN IT_TAB.

thanks

Raj

[Former Member]

Hi Raj,

data :w_ind type i.  "add this
LOOP AT source_package ASSIGNING <source_fields>.

w_ind = sy-tabix.  "add this 
READ TABLE it_tab
INTO wa_tab
WITH KEY
KEYXXXX = <source_fields>-XXXXXXXXX.
 
IF sy-subrc = 0.
DELETE source_package index w_ind.  "Add this
ENDIF.
 
ENDLOOP.

Regards,

Prabhduas

[Former Member]

Thanks that works.

I was trying to avoid the loop, I remember it as possible in 3.5.

[frank_rebholz]

Hi,

something like this:

 
LOOP AT source_package ASSIGNING <source_fields>.
READ TABLE it_tab
INTO wa_tab
WITH KEY
KEYXXXX = <source_fields>-XXXXXXXXX.

IF sy-subrc = 0.
DELETE source_package.
ENDIF.

ENDLOOP.

Best regards,

Frank