1 / 15

Tabellenzeile mit READ lesen

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.

wyome
Download Presentation

Tabellenzeile mit READ lesen

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. Tabellenzeile mit READ lesen READ TABLE itab INDEX idx READ TABLE itab WITH KEY comp1 = f1 .... Compn = fn

  2. 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 .

  3. 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

  4. 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.

  5. 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

  6. ... FROM <dbtab1> [AS <alias1>] INNER JOIN <dbtab2> [AS <alias2>]    ON <alias1~key1>|<dbtab1~key1> = <alias1~key2>|<dbtab1~key2>        INNER JOIN, ALIAS

  7. 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

  8. 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

  9. 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.

  10. 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

  11. 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

  12. Ü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)

  13. Ü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

  14. Übung2

  15. 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

More Related