Optimierung eines LOOPS

Re: Optimierung eines LOOPS

Hallo,

ich sehe dort nur ein Loop

@Edit: ohhhh....sorry, hatte der Scrollbalken übersehen.....jetzt sehe ich auch 2 Loops

Gruss
DonOssi

Re: Optimierung eines LOOPS

Eine absolute Performancebremse was du da hast.

Select-Statements gehören nie in eine Loop-Schleife.

Daher den ersten Select rausziehen, Ergebnis in interner Tabelle speichern (am besten ne Hashed Table).
Dann loopen (wird nur geloopt wenn auch ein Satz in interner Tabelle vorhanden ist). Dann ein Read auf die lt beleg.

Die anderen Selects auch rausziehen aus der Loop.

Viele Grüße

Re: Optimierung eines LOOPS

Habs mal in paar Min zusammengeschustert wie es ungefähr aussehen sollte. Ist jetzt aus dem Kopf raus ohne groß nachzuschauen im Editor zusammengebastelt,
damit du verstehst wie ich es meine.

SELECT BELZEILE STGRQNT STGRAMT V_ABRMENGE N_ABRMENGE MASSBILL
FROM DBERCHZ1
FOR ALL ENTRIES IN lt_docref
INTO CORRESPONDING FIELDS OF TABLE lt_beleg
WHERE BELNR = lt_docref-INBOUND_REF_K.

if sy-subrc <> 0.
* Fehlerhandling
endif.


Types mit belnr belzeile nettobtr twaers als temp_tab)
SELECT NETTOBTR TWAERS BELNR BELZEILE INTO lt_temp_tab
FROM DBERCHZ3
FOR ALL ENTRIES IN lt_beleg
WHERE BELNR = lt_beleg-INBOUND_REF_K
AND BELZEILE = lt_beleg-BELZEILE.
if sy-subrc <> 0.
* Fehlerhandling
endif.

* hier TYPES Tabelle mit Belnr Belzeile Created on Changed on definieren und hinein selekten
SELECT CREATED_ON CHANGED_ON BELNR BELZEILE IN lt_temp_tabelle
FROM TINV_INV_HEAD
FOR ALL ENTRIES IN lt_docref
WHERE INT_INV_NO = lt_docref-INT_INV_NO.
if sy-subrc <> 0.
* Fehlerhandling
endif.

SELECT INT_INV_NO
INTO lt_data-INT_INV_NO
FROM TINV_INV_DOCREF
FOR ALL ENTRIES IN lt_docref
WHERE INT_INV_DOC_NO = lt_docref-INT_INV_DOC_NO.



LOOP AT lt_docref ASSIGNING <ls_docref>.
MOVE <ls_docref>-INBOUND_REF(12)
TO <ls_docref>-INBOUND_REF_K.


LOOP AT lt_beleg ASSIGNING <ls_beleg>
WHERE BELNR = <ls_docref>-INBOUND_REF_K.

CLEAR: lt_data.

<ls_beleg>-MANDT = <ls_docref>-MANDT.
<ls_beleg>-INT_INV_DOC_NO = <ls_docref>-INT_INV_DOC_NO.
<ls_beleg>-INBOUND_REF_TYPE = <ls_docref>-INBOUND_REF_TYPE.
<ls_beleg>-INBOUND_REF_NO = <ls_docref>-INBOUND_REF_NO.
<ls_beleg>-INBOUND_REF = <ls_docref>-INBOUND_REF.
<ls_beleg>-INBOUND_REF_K = <ls_docref>-INBOUND_REF_K.

<ls_beleg>-G_ABRMENGE =
<ls_beleg>-v_abrmenge + <ls_beleg>-n_abrmenge.

MOVE-CORRESPONDING <ls_beleg> TO lt_data.


Read Table lt_temp_tab assigning <fs_temp>
where BELNR = <fs_beleg>-INBOUND_REF_K
AND BELZEILE = <fs_beleg>-BELZEILE.

if sy-subrc = 0.
ls_data-nettobtr = <fs_temp>-nettobtr.
ls_data-twaers = <fs_temp-twaers.
endif.


Read Table lt_temp_tabelle assigning <fs_temp_tbl>
where INT_INV_NO = <ls_docref>-INT_INV_NO.

if sy-subrc = 0.
ls_data-created_on = <fs_temp_tbl>-created_on.
ls_data-changed_on = <fs_temp_tbl>-changed_on.
endif.

Read Table lt_data assigning <fs_data>
where INT_INV_DOC_NO = <fs_docref>-INT_INV_DOC_NO.
if sy-subrc = 0.
ls_data-INT_INV_DOC_NO = <fs_data>-INT_INV_DOC_NO.
endif.


APPEND ls_data TO lt_data


ENDLOOP.

ENDIF.

ENDLOOP.

APPEND lt_data TO E_T_DATA.

Viele Gr+ße

Re: Optimierung eines LOOPS

Rocky, täusch ich mich oder:

muss zu allererst kommen, da ja damit die INBOUND_REF_K für den Zugriff auf die DBERCHZ1 ermöglicht wird.

Re: Optimierung eines LOOPS

Sorry, es geht mir nicht um den Zugriff, aber die
führt doch dazu, dass nur die ersten 12 Stellen der INBOUND_REF_K als im SELECT als Belegnummer betrachtet werden können. Ansonsten wäre die INBOUND_REF_K zu lang...

Der erste Zugriff müsste dann heißen:
Verträgt das SELECT eine Längenangabe im Vergleichoperand?

Re: Optimierung eines LOOPS

Hallo Zusammen,

der Select kann damit umgehen. Es funktioniert auch wenn beide Felder unterschiedliche Längen haben, was er dann anmeckert und man dann die Zeichen auf die relevanten Stellen begrenzt.

Gruss
Foxbat