150 likes | 237 Views
Tabellenzeile mit READ lesen. READ TABLE itab INDEX idx READ TABLE itab WITH KEY comp1 = f1 .... Compn = fn. Beispiel. PARAMETERS: ps_name LIKE zkunden-name LOWER CASE, ps_vname LIKE zkunden-vorname LOWER CASE. DATA: it_kunden LIKE TABLE OF zkunden, wa_kunden LIKE zkunden.
E N D
Tabellenzeile mit READ lesen READ TABLE itab INDEX idx READ TABLE itab WITH KEY comp1 = f1 .... Compn = fn
Beispiel PARAMETERS: ps_name LIKE zkunden-name LOWER CASE, ps_vname LIKE zkunden-vorname LOWER CASE. DATA: it_kunden LIKE TABLE OF zkunden, wa_kunden LIKE zkunden. START-OF-SELECTION. SELECT * FROM zkunden INTO TABLE it_kunden. READ TABLE it_kunden INTO wa_kunden WITH KEY name = ps_name vorname = ps_vname. IF sy-subrc <> 0. WRITE ' keine Treffer'. ENDIF. WRITE:/ wa_kunden-wohnort .
MODIFY <itab> FROM <wa> INDEX <idx>. MODIFY TABLE <itab> FROM <itab>. MODIFY <itab> FROM <wa> TRANSPORTING <f1> <f 2> ... WHERE <cond>. Tabellenzeilen mit MODIFY ändern
Beispiel DATA: BEGIN OF line,col1 TYPE i, col2 TYPE i, END OF line. DATA itab LIKE TABLE OF line . DO 4 TIMES. line-col1 = sy-index. line-col2 = sy-index * 2. APPEND line TO itab. ENDDO. line-col1 = 2. line-col2 = 100. MODIFY itab FROM line TRANSPORTING col2 WHERE ( col1 = 3 ) . LOOP AT itab INTO line. WRITE: / line-col1, line-col2. ENDLOOP.
Weist Werte zwischen Strukturen komponentenweise zu. Syntax: MOVE-CORRESPONDING <struc1> TO <struc2>. Der Inhalt der Komponenten der Struktur <struc1> wird den namensgleichen Komponenten der Struktur struc2> zugewiesen MOVE-CORRESPONDING
... FROM <dbtab1> [AS <alias1>] INNER JOIN <dbtab2> [AS <alias2>] ON <alias1~key1>|<dbtab1~key1> = <alias1~key2>|<dbtab1~key2> INNER JOIN, ALIAS
INSERT INTO <dbtable> VALUES <wa>. INSERT <dbtab> FROM <wa>. INSERT <dbtab> FROM TABLE <itab> [ACCEPTING DUPLICATE KEYS]. Es werden eine Zeile aus dem Arbeitsbereich <wa> bzw. mehrere Zeilen aus der internen Tabelle <itab> in die Datenbanktabelle <dbtab> eingefügt. Der Zusatz ACCEPTING DUPLICATE KEYS verhindert einen Laufzeitfehler bei doppelten Primärschlüsseln und verwirft doppelte Einträge lediglich Datensätze in Datenbanktabelle einfügen
PARAMETERS: ps_name LIKE zkunden-name LOWER CASE, ps_vname LIKE zkunden-vorname LOWER CASE, ps_wort LIKE zkunden-wohnort LOWER CASE, ps_kdnr LIKE zkunden-kundennr LOWER CASE. DATA: wa_kunden LIKE zkunden, START-OF-SELECTION. wa_kunden-kundennr = ps_kdnr. wa_kunden-name = ps_name. wa_kunden-vorname = ps_vname. wa_kunden-wohnort = ps_wort. INSERT INTO zkunden000 VALUES wa_kunden. IF sy-subrc NE 0. ROLLBACK WORK. WRITE: / 'Fehler beim INSERT in die Tabelle ZKUNDEN000!'. EXIT. ENDIF. WRITE: / 'Neuer Kunde mit Nr:', wa_kunden-kundennr. Beispiel
Datensätze in Datenbanktabelle ändern UPDATE <dbtab> SET <si> = <f> [WHERE <cond>]. Der Zusatz WHERE bestimmt die zu ändernden Zeilen. Ohne den Zusatz WHERE werden alle Zeilen geändert. UPDATE <dbtab> FROM <wa>. UPDATE <dbtab> FROM TABLE <itab>. Es wird die Zeile mit dem Inhalt von <wa> überschrieben, die den gleichen Primärschlüssel hat, wie der Arbeitsbereich <wa>, bzw. es werden alle Zeilen mit einer Zeile der internen Tabelle <itab> überschrieben, die den gleichen Primärschlüssel wie diese Zeilen haben. Der Arbeitsbereich <wa> bzw. die Zeilen von <itab> müssen mindestens die gleiche Länge und die gleiche Ausrichtung wie die Zeilen der Datenbanktabelle haben.
PARAMETERS: ps_name LIKE zkunden-name LOWER CASE, ps_vname LIKE zkunden-vorname LOWER CASE, ps_wort LIKE zkunden-wohnort LOWER CASE. START-OF-SELECTION. UPDATE zkunden000 set wohnort = ps_wort where name = ps_name and vorname = ps_vname. IF sy-subrc NE 0. ROLLBACK WORK. WRITE: / 'Fehler beim UPDATE der Tabelle ZKUNDEN000!'. EXIT. ENDIF. COMMIT WORK. SKIP. WRITE: 'Wohnort des kunde:', ps_name, 'ist geändert worden'. Beispiel
DELETE FROM <dbtab> WHERE <cond>. Alle Zeilen der Datenbanktabelle <dbtab>, die den Bedingungen der WHERE-Klausel genügen, werden gelöscht. Syntax DELETE <dbtab> FROM <wa>. DELETE <dbtab> FROM TABLE <itab>. Es wird die Zeile gelöscht, die den gleichen Primärschlüssel hat, wie der Arbeitsbereich <wa>, bzw. es werden alle Zeilen aus der Datenbanktabelle gelöscht, die den gleichen Primärschlüssel haben, wie eine der Zeilen der internen Tabelle <itab>. Der Arbeitsbereich <wa> bzw. die Zeilen von <itab> müssen mindestens die gleiche Länge und die gleiche Ausrichtung wie der Primärschlüssel der Datenbanktabelle haben. Datensätze in Datenbanktabelle löschen
Übung1 Erstellen Sie ZDEPOTmax_nn, der für jede Wertpapierkennnummer WKN das Depot mit der größten Anzahl dieser Aktien ermittelt und ausgibt (s. Abbildung)
Übung2 • Erstellen Sie mit dem Report Zkundenwpapier_nn eine Liste der Depotposten von Kunden, deren Name und Vorname als Selektionsparameter eingelesen werden • (s. Abbildung). • Auf die Liste sollen folgende Felder erscheinen: • Kundenname • Kundenvorname • Wertpapiernummer • Anzahl der Wertpapiere
Programmieren Sie Reports: zdelete_nn, zinsert_nn Und zupdate_nn zum löschen, einfügen und ändern von Kundendaten. Wenden Sie Selektionsbilder an um diese Aufgabe zu erfüllen. Beim Ändern der Kundendaten sollen nur Wohnort des Kunden geändert werden. Ihre Tabelle Zkundennn soll von den Reports genutzt werden. Übung3