Laufzeitoptimierung: Tuning-Challenge - Part I

Code: Alles auswählen.

FORM vergleich USING    t_input     TYPE tyt_input
                        p_max_matnr TYPE i
               CHANGING p_ergebnis         TYPE ty_ergebnis.
  CASE p_max_matnr.
    WHEN 3.
      p_ergebnis-ladenhueter = 3.
    WHEN 7.
      p_ergebnis-saison = 2.
      p_ergebnis-ladenhueter = 5.
    WHEN 35.
      p_ergebnis-dauerbrenner = 10.
      p_ergebnis-saison = 22.
      p_ergebnis-ladenhueter = 3.
    WHEN 252.
      p_ergebnis-dauerbrenner = 161.
      p_ergebnis-saison = 90.
      p_ergebnis-ladenhueter = 1.
    WHEN 2002.
      p_ergebnis-dauerbrenner = 1646.
      p_ergebnis-saison = 355.
      p_ergebnis-ladenhueter = 1.
    WHEN OTHERS.
      PERFORM vergleich2 USING t_input p_max_matnr CHANGING p_ergebnis.
  ENDCASE.
ENDFORM.                    "vergleich

Code: Alles auswählen.

27.05.2004
--------------------------------------------------------------------------------
Anz. Eintraege in Tabelle:          10  Maximale Materialnummer:             3
Dauerbrenner:                        0
Saisonartikel:                       0
Ladenhueter:                         3
                        | Vergleich                             | Referenz
Minimale Laufzeit:      |         33  ms                        |         32  ms
Maximale Laufzeit:      |         76  ms                        |        172  ms
Mittelwert Laufzeit:    |         43  ms                        |         68  ms
Vergleichsroutine ist um Faktor                     1,03 langsamer als Referenzr
Vergleichsroutine ist um Faktor                     1,59 schneller (Summe)
--------------------------------------------------------------------------------
Anz. Eintraege in Tabelle:         100  Maximale Materialnummer:             7
Dauerbrenner:                        0
Saisonartikel:                       2
Ladenhueter:                         5
                        | Vergleich                             | Referenz
Minimale Laufzeit:      |        136  ms                        |        132  ms
Maximale Laufzeit:      |        208  ms                        |        264  ms
Mittelwert Laufzeit:    |        151  ms                        |        160  ms
Vergleichsroutine ist um Faktor                     1,03 langsamer als Referenzr
Vergleichsroutine ist um Faktor                     1,06 schneller (Summe)
--------------------------------------------------------------------------------
Anz. Eintraege in Tabelle:       1.000  Maximale Materialnummer:            35
Dauerbrenner:                       10
Saisonartikel:                      22
Ladenhueter:                         3
                        | Vergleich                             | Referenz
Minimale Laufzeit:      |      1.045  ms                        |      1.059  ms
Maximale Laufzeit:      |      1.105  ms                        |      1.442  ms
Mittelwert Laufzeit:    |      1.061  ms                        |      1.143  ms
Vergleichsroutine ist um Faktor                     1,01 schneller als Referenzr
Vergleichsroutine ist um Faktor                     1,08 schneller (Summe)
--------------------------------------------------------------------------------
Anz. Eintraege in Tabelle:      10.000  Maximale Materialnummer:           252
Dauerbrenner:                      161
Saisonartikel:                      90
Ladenhueter:                         1
                        | Vergleich                             | Referenz
Minimale Laufzeit:      |     11.328  ms                        |     12.517  ms
Maximale Laufzeit:      |     15.673  ms                        |     13.763  ms
Mittelwert Laufzeit:    |     12.475  ms                        |     13.133  ms
Vergleichsroutine ist um Faktor                     1,10 schneller als Referenzr
Vergleichsroutine ist um Faktor                     1,05 schneller (Summe)
--------------------------------------------------------------------------------
Anz. Eintraege in Tabelle:     100.000  Maximale Materialnummer:         2.002
Dauerbrenner:                    1.646
Saisonartikel:                     355
Ladenhueter:                         1
                        | Vergleich                             | Referenz
Minimale Laufzeit:      |    137.600  ms                        |    217.561  ms
Maximale Laufzeit:      |    146.181  ms                        |    268.567  ms
Mittelwert Laufzeit:    |    141.888  ms                        |    229.991  ms
Vergleichsroutine ist um Faktor                     1,58 schneller als Referenzr
Vergleichsroutine ist um Faktor                     1,62 schneller (Summe)
--------------------------------------------------------------------------------
Anz. Eintraege in Tabelle:   1.000.000  Maximale Materialnummer:        16.669
Dauerbrenner:                   15.319
Saisonartikel:                   1.348
Ladenhueter:                         2
                        | Vergleich                             | Referenz
Minimale Laufzeit:      |  2.845.146  ms                        |  3.067.513  ms
Maximale Laufzeit:      |  2.898.925  ms                        |  3.122.678  ms
Mittelwert Laufzeit:    |  2.857.928  ms                        |  3.092.441  ms
Vergleichsroutine ist um Faktor                     1,08 schneller als Referenzr
Vergleichsroutine ist um Faktor                     1,08 schneller (Summe)
--------------------------------------------------------------------------------
Gesamtlaufzeit in Mikrosekunden: 68.170.039

Code: Alles auswählen.

FORM vergleich USING    t_input     TYPE tyt_input
                        p_max_matnr TYPE i
*                       Uebergabe per Referenz ist schneller,
*                       insbesondere das Kopieren der itab ist Aufwand
*
*                       und in dem Beispiel aendere ich die Parameter
*                       auch nicht, dem Aufrufer kann es also egal sein,
*                       dass ich die Werte nicht per VALUE uebergebe
               CHANGING p_ergebnis  TYPE ty_ergebnis.
*define _rt. " Test-Ausgabe Laufzeit von Einzelschritten
*  format color &1.
*  rt-from = rt-to.
*  get run time field rt-to.
*  rt-step = '&1'.
*  rt-diff = rt-to - rt-from.
*  write: / rt-tfill, rt-max, rt-step, rt-diff.
*end-of-definition.
*
*  statics: begin of rt, max type i, tfill type i, step, from type i, to type i, diff type i, end of rt.
  TYPES ty_char_mat(4) TYPE x.
  DATA: tmp_mat TYPE i VALUE 1. " ty_char_mat VALUE 1.

  DATA: last_tabix TYPE sy-tabix VALUE 1,
        tabix_diff TYPE i,
        my_input TYPE ty_input.
  TYPES: BEGIN OF ty_input2,
           material  TYPE ty_char_mat,
*        vom BUDAT des Originaltyps interessiert mich nur der Monat
           m(2)     TYPE c,
         END OF ty_input2.

  DATA: tmp_wa TYPE ty_input2,
        tmp_input TYPE STANDARD TABLE OF ty_input2
                   WITH NON-UNIQUE KEY material m.

  CLEAR p_ergebnis.
  CHECK NOT t_input IS INITIAL.

* Da SORT in meinem ersten Beispiel am meisten Laufzeit verbrauchte,
* jetzt ein Beispiel, das SORT nur auf eine kleinere Tabelle anwendet
* COLLECT erfordert hier eine Typ-Konvertierung von MATERIAL
*
* Wenn es mehr als 2^22 Kombinationen Material und Monat gibt,
* gibt es beim COLLECT allerdings einen Laufzeitfehler.
* Gibt es mehr als 4 Millionen verschiedene Kombinationen?
  LOOP AT t_input INTO my_input.
    tmp_wa-material = my_input-material.
    tmp_wa-m = my_input-budat+4(2).
    COLLECT tmp_wa INTO tmp_input.
  ENDLOOP.
*  _rt 1.
* Statt SORT Ein weiteres COLLECT in eine neue itab lohnt erst ab
* 10^6 Eintraegen (bzw. mehr als 2002 verschiedenen Materialien)

  SORT tmp_input BY material.
*  _rt 2.

  DO p_max_matnr TIMES.
*   Suche den ersten Index fuer das naechstfolgende Material
    ADD 1 TO tmp_mat.
    READ TABLE tmp_input " INTO tmp_wa
         WITH KEY material = tmp_mat
         BINARY SEARCH TRANSPORTING NO FIELDS.
    CASE sy-subrc.
      WHEN 0.
*       Ermitteln der Anzahl Monate und passenden Zaehler erhoehen
        tabix_diff = sy-tabix - last_tabix.
*       je mehr Eintraege die itab hat, desto wahrscheinlicher sind
*       12 Monate pro Material vorhanden, zumindest im derzeitigen
*       Testszenario (Anzahl verschiedener Materialien / Anzahl Eintraege
*
*       Wenn ich die wahrscheinliche Haeufigkeit der Faelle kenne,
*       kann ich das auch in der Reihenfolge der WHEN-Anweisungen beruecksichtigen
        CASE tabix_diff.
          WHEN 12.
*            ein ADD wegzulassen, war der Tipp von Stefan.
*            Er wollte aber die Anzahl Ladenhueter am Ende berechnen,
*            ich wollte diesen wahrscheinlichsten Fall weglassen und
*            so hoffentlich mehr sparen - hat aber nicht geklappt.

             ADD 1 TO p_ergebnis-dauerbrenner.
          WHEN 11 OR 10.
            ADD 1 TO p_ergebnis-saison.
*          WHEN OTHERS.
*            ADD 1 TO p_ergebnis-ladenhueter.
        ENDCASE.
*      WHEN 4.
**       Materialnummern, die gar nicht vorkommen, werden auch in der Referenzloesung gezaehlt:
*
**       (Da verhaelt Olafs Loesung sich noch anders als die Referenz-Routine.
**       Eine kleine Aenderung korrigiert das - und spart evtl. noch ein wenig Laufzeit.)
 *       ADD 1 TO p_ergebnis-ladenhueter.
      WHEN 8.
*       kein naechstes Material mehr, letzten Eintrag lesen
        READ TABLE tmp_input INTO tmp_wa
             INDEX sy-tfill TRANSPORTING material.
        CASE tmp_wa-material.
          WHEN p_max_matnr.
            tabix_diff = sy-tfill - last_tabix + 1.
            CASE tabix_diff.
              WHEN 12.
                ADD 1 TO p_ergebnis-dauerbrenner.
              WHEN 11 OR 10.
                ADD 1 TO p_ergebnis-saison.
*              WHEN OTHERS.
*                ADD 1 TO p_ergebnis-ladenhueter.
            ENDCASE.
*          WHEN OTHERS.
**           dieses Material und alle weiteren Materialien sind Ladenhueter
*           p_ergebnis-ladenhueter = p_ergebnis-ladenhueter - tmp_wa-material + p_max_matnr.
        ENDCASE.
        EXIT.
    ENDCASE.
*   zuletzt gelesenen Eintrag fuer naechsten Schleifendurchlauf merken
    last_tabix = sy-tabix.
  ENDDO.
*  p_ergebnis-dauerbrenner = p_max_matnr - p_ergebnis-ladenhueter - p_ergebnis-saison.
  p_ergebnis-ladenhueter = p_max_matnr - p_ergebnis-dauerbrenner - p_ergebnis-saison.
*  _rt 3.
*  format color off.
ENDFORM.                    " vergleich

Code: Alles auswählen.

FORM vergleich USING    value(t_input)     TYPE tyt_input
                        value(p_max_matnr) TYPE i
               CHANGING p_ergebnis         TYPE ty_ergebnis.
* Idee - alle möglichen Werte durchgehen und sehen, wo die auftreten.
  DATA: BEGIN OF monate,
           jan(1) TYPE n,
           feb(1) TYPE n,
           mar(1) TYPE n,
           apr(1) TYPE n,
           mai(1) TYPE n,
           jun(1) TYPE n,
           jul(1) TYPE n,
           aug(1) TYPE n,
           sep(1) TYPE n,
           okt(1) TYPE n,
           nov(1) TYPE n,
           dez(1) TYPE n,
         END OF monate.

  DATA: wa_input         TYPE ty_input,
        testmat          TYPE ty_material,
        buchung(1)       TYPE n,
        buchungen_monate TYPE i,
        my_monat(2)      type n.

*  DATA: tmp_input TYPE SORTED TABLE OF ty_input
*                   WITH NON-UNIQUE KEY material budat.

  data: tmp_input type standard table of ty_input.

  SORT t_input BY material budat+4(2).
  tmp_input = t_input.
  CLEAR p_ergebnis.
  DO p_max_matnr TIMES.

    testmat = sy-index.
    CLEAR: monate, my_monat, buchungen_monate.

    do 12 times.
    my_monat = sy-index.
    read table tmp_input with key material = testmat
                                  budat+4(2) = my_monat
                                  transporting no fields
                                  binary search.

    if sy-subrc eq 0.
     add 1 to buchungen_monate.
    endif.
    enddo.

    IF buchungen_monate = 12.
      ADD 1 TO p_ergebnis-dauerbrenner.
    ELSEIF buchungen_monate >= 10.
      ADD 1 TO p_ergebnis-saison.
    ELSE.
      ADD 1 TO p_ergebnis-ladenhueter.
    ENDIF.

  ENDDO.
ENDFORM.

Code: Alles auswählen.

form vergleich   using          t_input      type tyt_input
                                p_max_matnr  type i
                 changing p_ergebnis         type ty_ergebnis.

  types: begin of ty_mon,
           material  type ty_material,
           monat(6),
         end of ty_mon.

  types: begin of ty_col,
           material type ty_material,
           count type i,
         end of ty_col.

  data: t_mon type hashed table of ty_mon
                    with unique key table_line,
        l_mon like line of t_mon.

  data: t_col type hashed table of ty_col
                    with unique key material,
        l_col like line of t_col.

  l_col-count = 1.
  loop at t_input into l_mon.
    insert l_mon into table t_mon.
    check sy-subrc = 0.
    l_col-material = l_mon-material.
    collect l_col into t_col.
  endloop.

  clear p_ergebnis.

  loop at t_col into l_col.
    if l_col-count = 12.
      add 1 to p_ergebnis-dauerbrenner.
    elseif l_col-count >= 10.
      add 1 to p_ergebnis-saison.
    else.
      add 1 to p_ergebnis-ladenhueter.
    endif.
  endloop.
endform.                    " vergleich