Datensätze in zwei verschieden Tabellen löschen

Datensätze in zwei verschieden Tabellen löschen

Hallo, ich bin relativ frisch und ganz neu in dem Thema ABAP Entwicklung.
Ich arbeite in einem relativ kleinen Team, daher muss ich mich oft an das Internet wenden.
Meine Aufgabe: ich muss aus zwei verschiedenen Tabellen alte Datensätze löschen (> ein Jahr) und dafür soll ich ein Programm schreiben. Die beiden Tabellen besitzen ein gleiches Feld, anhand diesen Feldes soll das Programm in beiden Tabellen die Datensätze löschen. Ich habe es mit einer Internen Tabelle versucht, worin ich alle Datensätze zusammenfügen würde, bis jetzt leider ohne Erfolg. Es wäre mega nett, wenn mir hier jemand weiterhelfen könnte. Vielen Dank.


REPORT zmm_dispolist_del.

TYPES: BEGIN OF ts_itab,
mandt TYPE zzt_mdkp1-mandt,
dtart TYPE zzt_mdkp1-dtart,
matnr TYPE zzt_mdkp1-matnr,
plwrk TYPE zzt_mdkp1-plwrk,
plscn TYPE zzt_mdkp1-plscn,
dsdat TYPE zzt_mdkp1-dsdat,
dtnum TYPE zzt_mdtb-dtnum,
dtpos TYPE zzt_mdtb-dtpos,
END OF ts_itab.

DATA:
ls_itab TYPE ts_itab,
lt_itab TYPE TABLE OF ts_itab,
ls_mdkp1 TYPE zzt_mdkp1,
lt_mdkp1 TYPE TABLE OF zzt_mdkp1,
ls_mdtb TYPE zzt_mdtb,
lt_mdtb TYPE TABLE OF zzt_mdtb,
* lv_dtnum TYPE zzt_mdkp1-dtnum,
lv_datum TYPE sy-datum.


PARAMETERS: lv_dsdat TYPE mdkp-dsdat DEFAULT sy-datum,
lv_werks TYPE mdkp-plwrk DEFAULT '2200'.


INITIALIZATION.
*Datum berechnen für die Spanne welche ab sy-datum gelöscht werden soll -> sy-datum - 365 = alle Daten die älter als ein Jahr sind
lv_datum = sy-datum - 840.

START-OF-SELECTION.
*Datenbeschaffung aus der ersten Tabelle in eine interne Tabelle
LOOP AT lt_mdkp1 INTO ls_mdkp1.
SELECT * FROM zzt_mdkp1 INTO ls_mdkp1
WHERE dsdat < lv_datum.
INSERT ls_mdkp1 INTO TABLE lt_mdkp1.
* DELETE zzt_mdkp1 FROM ls_mdkp1.
ENDSELECT.
ENDLOOP.
*Datenbeschaffung aus der zweiten Tabelle mit dem Feld dtnum, welches gleich sein muss wie in der ersten internen Tabelle
LOOP AT lt_mdtb INTO ls_mdtb.
SELECT * FROM zzt_mdtb INTO ls_mdtb
WHERE dtnum = ls_mdkp1-dtnum.
INSERT ls_mdtb INTO TABLE lt_mdtb.
* DELETE zzt_mdtb FROM ls_mdtb.
ENDSELECT.
ENDLOOP.

Re: Datensätze in zwei verschieden Tabellen löschen

Hallo abap_frischling,

wenn du damit Dispolisten reorganisieren möchtest, dann geht das auch viel einfacher - und ohne ABAP:

Mit der MD08 können die Dispo-Listen reorganisiert werden. Dort kann man nach Werk und Disponent selektieren - leider ohne Mehrfachauswahl. Um da einmal Grund rein zu bekommen würde ich an einem Wochenende mal das für alle Werk/Disponenten Kombinationen durchlaufen lassen.

Mit freundlichen Grüßen
Matthias Alpmann

Re: Datensätze in zwei verschieden Tabellen löschen

Hat geklappt, super!!!
Dankeschön, für die Antworten und Hilfestellung. Wie gesagt ich bin sehr sehr neu in dem ganzen Thema und freue mich sehr über jede Hilfe. Sehr nett von euch! Schönen Tag! :)