LOOP über führende interne Tabelle + READ TABLE und MODIFY
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hallo zusammen,
mein Ziel (Übungsaufgabe) ist es, über eine führende, interne Tabelle (it_mard_dt) zu LOOPen und dazu mittels READ TABLE + MODIFY zwei weitere interne Tabellen (it_makt_dt und it_mara_dt) zu lesen und ein paar Daten (makt-maktx und mara-meins) in die it_mard_dt zu befüllen und auszugeben.
Wie kann ich das mit MODIFY lösen? Siehe unten im Code ist im LOOP ein Fehler bzw. es fehlt etwas. Insbesondere bin ich mir trotz Lesens der Hilfe nicht sicher welche MODIFY-Variante hier zu nutzen ist. Mit INDEX sy-tabix oder doch mit WHERE oder ...
Im folgenden Code wird mir eine Tabelle ausgegeben, doch leider fehlen die Daten aus den beiden internen Tabellen:
DATA: it_makt_dt TYPE TABLE OF zsbestand,
it_mard_dt TYPE TABLE OF zsbestand,
it_mara_dt TYPE TABLE OF zsbestand,
wa_mara_dt TYPE zsbestand,
wa_makt_dt TYPE zsbestand,
wa_mard_dt TYPE zsbestand.
PARAMETERS: pa_matnr TYPE makt-matnr.
SELECT-OPTIONS: so_werk FOR wa_mard_dt-werks,
so_lgort FOR wa_mard_dt-lgort.
SELECT matnr maktx
FROM makt
INTO CORRESPONDING FIELDS OF TABLE it_makt_dt
WHERE matnr = pa_matnr.
SELECT matnr werks lgort labst
FROM mard
INTO CORRESPONDING FIELDS OF TABLE it_mard_dt
WHERE matnr = pa_matnr
AND werks IN so_werk
AND lgort IN so_lgort.
SELECT matnr meins
FROM mara
INTO CORRESPONDING FIELDS OF TABLE it_mara_dt
WHERE matnr = pa_matnr.
IF sy-subrc = 0.
LOOP AT it_mard_dt INTO wa_mard_dt.
READ TABLE it_makt_dt WITH KEY matnr = wa_mard_dt-matnr INTO wa_makt_dt.
IF sy-subrc = 0.
MODIFY it_mard_dt FROM wa_makt_dt
READ TABLE it_mara_dt WITH KEY matnr = wa_mard_dt-matnr INTO wa_mara_dt.
IF sy-subrc = 0.
MODIFY it_mard_dt FROM wa_makt_dt.
WRITE: / wa_mard_dt-matnr,
wa_mard_dt-maktx COLOR COL_NORMAL,
wa_mard_dt-werks,
wa_mard_dt-lgort,
wa_mard_dt-labst COLOR COL_KEY,
wa_mard_dt-meins COLOR COL_KEY.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
Vielen Dank im Voraus!
mein Ziel (Übungsaufgabe) ist es, über eine führende, interne Tabelle (it_mard_dt) zu LOOPen und dazu mittels READ TABLE + MODIFY zwei weitere interne Tabellen (it_makt_dt und it_mara_dt) zu lesen und ein paar Daten (makt-maktx und mara-meins) in die it_mard_dt zu befüllen und auszugeben.
Wie kann ich das mit MODIFY lösen? Siehe unten im Code ist im LOOP ein Fehler bzw. es fehlt etwas. Insbesondere bin ich mir trotz Lesens der Hilfe nicht sicher welche MODIFY-Variante hier zu nutzen ist. Mit INDEX sy-tabix oder doch mit WHERE oder ...
Im folgenden Code wird mir eine Tabelle ausgegeben, doch leider fehlen die Daten aus den beiden internen Tabellen:
DATA: it_makt_dt TYPE TABLE OF zsbestand,
it_mard_dt TYPE TABLE OF zsbestand,
it_mara_dt TYPE TABLE OF zsbestand,
wa_mara_dt TYPE zsbestand,
wa_makt_dt TYPE zsbestand,
wa_mard_dt TYPE zsbestand.
PARAMETERS: pa_matnr TYPE makt-matnr.
SELECT-OPTIONS: so_werk FOR wa_mard_dt-werks,
so_lgort FOR wa_mard_dt-lgort.
SELECT matnr maktx
FROM makt
INTO CORRESPONDING FIELDS OF TABLE it_makt_dt
WHERE matnr = pa_matnr.
SELECT matnr werks lgort labst
FROM mard
INTO CORRESPONDING FIELDS OF TABLE it_mard_dt
WHERE matnr = pa_matnr
AND werks IN so_werk
AND lgort IN so_lgort.
SELECT matnr meins
FROM mara
INTO CORRESPONDING FIELDS OF TABLE it_mara_dt
WHERE matnr = pa_matnr.
IF sy-subrc = 0.
LOOP AT it_mard_dt INTO wa_mard_dt.
READ TABLE it_makt_dt WITH KEY matnr = wa_mard_dt-matnr INTO wa_makt_dt.
IF sy-subrc = 0.
MODIFY it_mard_dt FROM wa_makt_dt
READ TABLE it_mara_dt WITH KEY matnr = wa_mard_dt-matnr INTO wa_mara_dt.
IF sy-subrc = 0.
MODIFY it_mard_dt FROM wa_makt_dt.
WRITE: / wa_mard_dt-matnr,
wa_mard_dt-maktx COLOR COL_NORMAL,
wa_mard_dt-werks,
wa_mard_dt-lgort,
wa_mard_dt-labst COLOR COL_KEY,
wa_mard_dt-meins COLOR COL_KEY.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
Vielen Dank im Voraus!
Zuletzt geändert von HawkDT am 23.03.2017 14:27, insgesamt 1-mal geändert.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von Thanatos82 (Expert / 699 / 32 /
123
)
»
Hi,
zu allererst: sprachenabhängige Tabellen wie die MAKT bitte IMMER mit der Sprache als Selektionskriterum lesen. Ich kann mir nicht vorstellen das du dänisch, chinesisch oder ungarisch brauchst. Daher beim Select auf die MAKT wie folgt selektieren:
Damit selektierst du nur die aktuelle Systemsprache in der du angemeldet bist.
Was du da aber machst ist in meinen Augen höchst unsauber. Du selektierst aus 3 verschiedenen DB-Tabellen in 3 verschiedene interne Tabellen, die aber alle die gleiche Struktur haben. Zum einen stört mich iwie das die alle die gleiche Struktur haben und zum anderen wäre ein JOIN wahrscheinlich effektiver und vor allem schneller.
Wie dem auch sei:
Dem MODIFY fehlt noch der INDEX, da du hier nicht mit Tabellen mit unique key arbeitest, kann ABAP das sonst nicht so gut zuordnen.
Du müsstest dir also den SY-TABIX merken (das ist der Index, der aktuellen Tabellenzeile deines LOOPs) und diesen zu deinem MODIFY hinzufügen.
Du könntest allerdings auch bei der it_mard_dt in ein Feldsymbol loopen, welche die gleiche Struktur hat wie wa_mard_dt.
Dann könntest du die gelesenen Inhalte des READ TABLE direkt den einzelnen Feldern zuweisen und bräuchtest gar kein MODIFY mehr.
zu allererst: sprachenabhängige Tabellen wie die MAKT bitte IMMER mit der Sprache als Selektionskriterum lesen. Ich kann mir nicht vorstellen das du dänisch, chinesisch oder ungarisch brauchst. Daher beim Select auf die MAKT wie folgt selektieren:
Code: Alles auswählen.
SELECT matnr maktx
FROM makt
INTO CORRESPONDING FIELDS OF TABLE it_makt_dt
WHERE matnr = pa_matnr
AND spras = sy-langu.Was du da aber machst ist in meinen Augen höchst unsauber. Du selektierst aus 3 verschiedenen DB-Tabellen in 3 verschiedene interne Tabellen, die aber alle die gleiche Struktur haben. Zum einen stört mich iwie das die alle die gleiche Struktur haben und zum anderen wäre ein JOIN wahrscheinlich effektiver und vor allem schneller.
Wie dem auch sei:
Dem MODIFY fehlt noch der INDEX, da du hier nicht mit Tabellen mit unique key arbeitest, kann ABAP das sonst nicht so gut zuordnen.
Du müsstest dir also den SY-TABIX merken (das ist der Index, der aktuellen Tabellenzeile deines LOOPs) und diesen zu deinem MODIFY hinzufügen.
Du könntest allerdings auch bei der it_mard_dt in ein Feldsymbol loopen, welche die gleiche Struktur hat wie wa_mard_dt.
Dann könntest du die gelesenen Inhalte des READ TABLE direkt den einzelnen Feldern zuweisen und bräuchtest gar kein MODIFY mehr.
Folgende Benutzer bedankten sich beim Autor Thanatos82 für den Beitrag:
HawkDT
Gruß,
der Matze
der Matze
Nimm Field-Symbols dann sparst du dir das Modify
Da das wegen dem Übungscharakter keine Option ist, versuch ich dich mal in Richtung Lösung zu schubsen!
BTW: Welche Form des MODIFY du jetzt benötigst hängt von der Aufgabenstellung ab: Änderst du nur einen Satz oder mehrere?
Da das wegen dem Übungscharakter keine Option ist, versuch ich dich mal in Richtung Lösung zu schubsen!
Code: Alles auswählen.
LOOP AT it_mard_dt INTO wa_mard_dt.
READ TABLE it_makt_dt WITH KEY matnr = wa_mard_dt-matnr INTO wa_makt_dt.
IF sy-subrc = 0.
* Du sollst doch die Werte in die MARD übernehmen, dann solltest du diese erstmal zuweisen:
wa_mard_dt-FELD = wa_makt_dt-FELD.
* Beim READ verwendest du als Schlüssel die MATNR, wieso hier jetzt den TEXT?
* auch beim MODIFY muss du die MATNR als Schlüssel in der MARD verwenden, denn nur diese Datensätze willst du Ändern:
* Die WA muss gleich der ITAB sein!
MODIFY it_mard_dt FROM wa_makt_dt WHERE maktx = wa_mard_dt-maktx.
* Hast du die Schachtelung bewusst gewählt? Nur wenn es einen MTEXT gibt sollen auch die MARA übernommen werden?
* Auch hier fehlt die Übernahme der Werte in die MARD!
READ TABLE it_mara_dt WITH KEY matnr = wa_mard_dt-matnr INTO wa_mara_dt.
IF sy-subrc = 0.
MODIFY it_mard_dt FROM wa_makt_dt.
WRITE: / wa_mard_dt-matnr,
wa_mard_dt-maktx COLOR COL_NORMAL,
wa_mard_dt-werks,
wa_mard_dt-lgort,
wa_mard_dt-labst COLOR COL_KEY,
wa_mard_dt-meins COLOR COL_KEY.
ENDIF.
ENDIF.
ENDLOOP.
Gruß Hendrik
Vielen Dank für die Hinweise und Hilfen!
- aktuelle Sprache habe ich für die MAKTX geändert
- die JOIN-Variante funktioniert und hatte ich bereits vorher schon mal so ausprobiert
- die Übungsaufgabe ist mit dem Hinweis schon erfüllt (siehe Screenshot)
- es funktioniert auch mit MOVE CORRESPONDING
Ich freue mich nach und nach auch elegantere Lösungen zu erlernen. Danke!
- aktuelle Sprache habe ich für die MAKTX geändert
- die JOIN-Variante funktioniert und hatte ich bereits vorher schon mal so ausprobiert
- die Übungsaufgabe ist mit dem Hinweis schon erfüllt (siehe Screenshot)
- es funktioniert auch mit MOVE CORRESPONDING
Ich freue mich nach und nach auch elegantere Lösungen zu erlernen. Danke!
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Seite 1 von 1
Vergleichbare Themen
4
Antw.
Antw.
8575
Views
Views
32
Antw.
Antw.
11796
Views
Views
LOOP/READ TABLE ... INTO vs REFERENCE INTO vs ASSINGING
von nickname8 » 26.10.2018 13:01 • Verfasst in ABAP® Core
von nickname8 » 26.10.2018 13:01 • Verfasst in ABAP® Core
7
Antw.
Antw.
14118
Views
Views
9
Antw.
Antw.
4138
Views
Views
3
Antw.
Antw.
5333
Views
Views
Tabelle ohne Kopfzeile ersetzen - Read table
von joester » 19.04.2016 09:25 • Verfasst in ABAP® Core
von joester » 19.04.2016 09:25 • Verfasst in ABAP® Core
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1151
vor 2 Tagen von DeathAndPain 4 / 1151
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1151
vor 2 Tagen von DeathAndPain 4 / 1151