Tabellen vergleichen

Code: Alles auswählen.

REPORT ZTEST2.

TYPES: BEGIN OF VERGLEICHSSCHLUESSEL,
         TZONE TYPE MMPREK_PRO_02-TZONE,
         TSTMP TYPE MMPREK_PRO_02-TSTMP,
         VBELN TYPE MMPREK_PRO_02-VBELN,
         POSNR TYPE MMPREK_PRO_02-POSNR,
       END OF VERGLEICHSSCHLUESSEL.

DATA: TAB2 TYPE SORTED TABLE OF VERGLEICHSSCHLUESSEL WITH UNIQUE KEY TZONE TSTMP VBELN POSNR,
      TAB3 TYPE STANDARD TABLE OF VERGLEICHSSCHLUESSEL.

START-OF-SELECTION.

SELECT DISTINCT TZONE TSTMP VBELN POSNR INTO TABLE TAB2 FROM MMPREK_PRO_02.
SELECT DISTINCT TZONE TSTMP VBELN POSNR INTO TABLE TAB3 FROM MMPREK_PRO_03.

LOOP AT TAB3 ASSIGNING FIELD-SYMBOL(<TAB3>).
  CHECK NOT LINE_EXISTS( TAB2[ TZONE = <TAB3>-TZONE
                               TSTMP = <TAB3>-TSTMP
                               VBELN = <TAB3>-VBELN
                               POSNR = <TAB3>-POSNR ] ).
  DELETE TAB3.
ENDLOOP.

FREE TAB2. " Speicher wieder freigeben; wir brauchen die TAB2 nicht mehr

* Wenn Du hier ankommst, hast Du in TAB3 nur noch die Kombinationen aus TZONE TSTMP VBELN und POSNR drin,
* die in TAB2, also der MMPREK_PRO_02, nicht vorkommen.