Code: Alles auswählen.
LOOP AT it_tab INTO wa_tab.
CLEAR jkak.
SELECT SINGLE * FROM jkak
WHERE vbeln = wa_tab-vbeln
AND auart IN s_auart.
IF sy-subrc <> '0'.
DELETE TABLE it_tab FROM wa_tab.
ELSE.
SELECT * FROM jkpa INTO CORRESPONDING FIELDS
OF wa_tab
WHERE vbeln = wa_tab-vbeln
AND posnr = wa_tab-posnr
AND jparvw = 'RE'.
ENDSELECT.
IF sy-subrc = 0.
SELECT * FROM zdpv_gkgpnr
WHERE gpag = wa_tab-gpnr.
ENDSELECT.
IF sy-subrc = 0.
DELETE TABLE it_tab FROM wa_tab.
ENDIF.
ELSE.
MODIFY it_tab FROM wa_tab.
ENDIF.
ENDIF.
ENDLOOP.
Code: Alles auswählen.
LOOP AT it_tab INTO wa_tab.
* CLEAR: KNA1, WA_TABZWEI.
SELECT SINGLE *
FROM kna1 INTO CORRESPONDING FIELDS OF wa_tab
WHERE kunnr = wa_tab-gpnr.
IF sy-subrc = 0.
MODIFY it_tab FROM wa_tab.
anz_aktiv = anz_aktiv + 1.
ENDIF.
ENDLOOP.
Code: Alles auswählen.
SELECT * FROM db_tabelle into CORRESPONDING FIELDS OF TABLE meine_tabelle.
Code: Alles auswählen.
data: meine_zwischen_tabelle type table of db_tabelle.
Code: Alles auswählen.
DATA: it_kna1 TYPE TABLE OF kna1,
it_jkak TYPE table of jkak,
wa_jkak type jkak,
it_jkpa TYPE TABLE OF jkpa,
" Wenn es eine Tabelle ist kannste table of weglassen
it_zdpv_gkgpnr TYPE TABLE OF zdpv_gkgpnr,
it_tab TYPE TABLE OF type_table.
* Tabelle werden gepuffert - Wenn bedingungen vorher klar
* sind schon auschliessen und wenn die Tabellen zu gross sind geht das natürlich nicht.
SELECT * FROM jkak INTO TABLE it_jkak.
SELECT * FROM jkpa INTO TABLE it_jkpa.
SELECT * FROM kna1 INTO TABLE it_kna1.
SELECT * FROM zdpv_gkgpnr INTO TABLE it_zdpv_gkgpnr.
LOOP AT it_tab INTO wa_tab.
READ TABLE it_jkak WITH KEY vbeln = wa_tab-vbeln into wa_jkak .
ENDLOOP.