Denksport: Interne Tabelle

Denksport: Interne Tabelle

Hallo zusammen,
mir ist heute nach Jahren der ABAP-Programmierung für eine immer wieder mal vorkommende Problemstellung eine - wie ich finde - elegante Lösung eingefallen, die auch funktioniert. Vielleicht ist das für euch ja bereits eine bekannte Lösung. Aber ich dachte, es wäre interssant zu erfahren, was ihr so für Lösungsvorschläge habt.

Gegeben sei (als Beispiel) eine interne Tabelle mit den Spalten
- mandt like sy-mandt
- bname like sy-uname
- datum like sy-datum

Für die Kombination MANDT und BNAME können in der internen Tabelle mehrere Einträge mit unterschiedlichen und gleichem Datum vorkommen.
Die Aufgabe ist nun mit möglichst wenig Coding und Speicher für jede Kombination MANDT und BNAME nur den Eintrag mit dem jüngsten Datum in der internen Tabelle zu haben, sprich alle anderen zu entfernen. (Geht in gleicher Weise auch für das älteste Datum)

Wer Freude an solchen Aufgaben hat, ist eingeladen, Lösungvorschläge zu posten. Meine Lösung benötigt 8 Zeilen, wobei jedes Statement wie üblich in einer Zeile steht (nicht zusammengefasst).

Gruß Dele

Hallo JHM,

stimmt ! (Wer lesen kann ist klar im Vortei und ich sollte mich wohl ein wenig schämen). Ich hatte irgendwie im Sinn, das beim Befehl DELETE ADJACENT DUPLICATES die Reihenfolge nicht sicher ist - man also nicht weiß, welche Zeilen er löscht. Aber in der Doku steht, daß er immer die erste stehen läßt.

Nun denn, dann hat es sich auf jeden Fall auch für mich gelohnt.

Meine Lösung war übrigens so:

SORT itab BY mandt bname datum.
loop at itab.
at end of bname.
continue.
endat.
delete itab.
endloop.

Vielen Dank für deinen Hinweis. Ich glaube kürzer wird's wohl kaum gehen.

Gruß Dele