Code: Alles auswählen.
* Selektion ob man neue HVB-Daten anfordern will
SELECT * FROM zzt_pkt_hvbanf
WHERE sozver EQ zzt_pkt_versns-sozver
AND handle EQ '0'.
IF p_hvbdat = 'X'.
INSERT INTO zzt_pkt_hvbanf
VALUES zzt_pkt_versns-sozver, v_timestamp, v_ernam, v_text1.
* SELECT zzt_pkt_versns-sozver,v_timestamp,v_ernam,v_text1
* into sozver,tstmp,ernam,text1
* from zzt_pkt_hvbanf.
ENDIF.
ENDSELECT.
Code: Alles auswählen.
SELECT * FROM zzt_pkt_hvbanf
WHERE sozver EQ zzt_pkt_versns-sozver
AND handle EQ '0'.
write: / 'ldkfls'.
* IF p_hvbdat = 'X'.
* INSERT INTO zzt_pkt_hvbanf VALUES zzt_pkt_versns-sozver, v_timestamp, v_ernam, 'bmlv'.
WRITE: / 'sdkfsldk'.
* ENDIF.
ENDSELECT.
Code: Alles auswählen.
DATA: gs_deine_strucktur LIKE zzt_pkt_hvbanf
...
INSERT INTO zzt_pkt_hvbanf
VALUES gs_deine_strucktur.
Code: Alles auswählen.
* Selektion ob man neue HVB-Daten anfordern will
SELECT * FROM zzt_pkt_hvbanf
WHERE handle EQ '0'
and sozver EQ zzt_pkt_versns-sozver.
ENDSELECT.
IF p_hvbdat = 'X'.
* INSERT INTO zzt_pkt_hvbanf VALUES zzt_pkt_versns-sozver, v_timestamp, v_ernam, 'bmlv'.
WRITE: / 'test', v_timestamp, v_ernam, zzt_pkt_versns-sozver.
ENDIF.
Code: Alles auswählen.
TYPES: BEGIN OF t_data,
sozver LIKE zzt_pkt_hvbanf-sozver,
tstmp LIKE zzt_pkt_hvbanf-tstmp,
ernam LIKE zzt_pkt_hvbanf-ernam,
text1 LIKE zzt_pkt_hvbanf-text1,
END OF t_data.
....
* Selektion ob man neue HVB-Daten anfordern will
SELECT * FROM zzt_pkt_hvbanf
WHERE handle EQ '0'
AND sozver EQ zzt_pkt_versns-sozver.
ENDSELECT.
IF p_hvbdat = 'X'.
INSERT INTO zzt_pkt_hvbanf VALUES t_data.
WRITE: / 'test', v_timestamp, zzt_pkt_versns-sozver.
ENDIF.
Code: Alles auswählen.
* Eine Zeile der DB-Tabelle
DATA: gw_zzt_pkt_hvbanf TYPE zzt_pkt_hvbanf.
* Wenn der User einen Satz einfügen will
IF p_hvbdat = 'X'.
* Prüfen ob Satz bereits existiert
SELECT SINGLE *
INTO line_of_zzt_pkt_hvbanf
FROM zzt_pkt_hvbanf
* In der WHERE-Bedingung unbedingt den ganzen
* Schlüssel angeben
WHERE sozver EQ zzt_pkt_versns-sozver.
* Wenn der Satz nicht existiert
IF sy-subrc <> 0.
* Hier die Daten für den neuen Satz füllen,
* min. den ganzen KEY angeben
CLEAR gw_zzt_pkt_hvbanf.
gw_zzt_pkt_hvbanf-sozver = zzt_pkt_versns-sozver.
* Satz in DB-Tabelle einfügen
INSERT INTO zzt_pkt_hvbanf VALUES gw_zzt_pkt_hvbanf.
* gabe es Fehler beim Einfügen
IF sy-subrc <> 0.
WRITE: / 'Fehler beim Schreiben auf DB.'.
ENDIF. "sy-subrc nach INSERT
ENDIF. "sy-subrc nach SELECT
ENDIF. "p_hvbdat = 'X'