Code: Alles auswählen.
SELECT b1 b2 FROM b INTO TABLE lt_b.
LOOP AT lt_b ASSIGNING <ls_b>.
APPEND INITIAL LINE TO lt_b_key ASSIGNING <ld_b_key>.
CONCATENATE <ls_b>-b1 <ls_b>-b2 INTO <ld_b_key>.
DELETE lt_b. "Speicher schonen
ENDLOOP.
SORT lt_b_key.
DELETE ADJACENT DUPLICATES FROM lt_b_key.
SELECT c1 c2 FROM C INTO TABLE lt_c.
LOOP AT lt_c ASSIGNING <ls_c>.
APPEND INITIAL LINE TO lt_c_key ASSIGNING <ld_c_key>.
CONCATENATE <ls_c>-c1 <ls_c>-c2 INTO <ld_c_key>.
DELETE lt_c. "Speicher schonen
ENDLOOP.
SORT lt_c_key.
DELETE ADJACENT DUPLICATES FROM lt_c_key.
SELECT a1 a2 FROM a INTO TABLE lt_a.
LOOP AT lt_a ASSIGNING <ls_a>.
READ TABLE lt_b_key TRANSPORTING NO FIELDS BINARY SEARCH WITH KEY table_line = <ls_a>-a1.
IF sy-subrc NE 0.
DELETE lt_a.
ELSE.
READ TABLE lt_c_key TRANSPORTING NO FIELDS BINARY SEARCH WITH KEY table_line = <ls_a>-a2.
IF sy-subrc NE 0.
DELETE lt_a.
ENDIF.
ENDIF.
ENDLOOP.
Code: Alles auswählen.
TABLES t005.
PARAMETERS a1 TYPE c LENGTH 2 DEFAULT 'D_'.
PARAMETERS a2 TYPE c LENGTH 2 DEFAULT '_E'.
START-OF-SELECTION.
SELECT * FROM t005 WHERE land1 LIKE a1 AND land1 LIKE a2.
WRITE t005-land1.
ENDSELECT.
Code: Alles auswählen.
data lt_test type STANDARD TABLE OF char04.
START-OF-SELECTION.
append '1DE ' to lt_Test.
append 'XAD ' to lt_Test.
SELECT * FROM t005t
into table lt_t005t
for ALL ENTRIES IN lt_test
WHERE land1 = lt_Test-table_line+1(3).