Report run very slow

Question

Hi
From the SE30, the system call 'fetck MKPF' consume a lot of time, the code is like below. Could anyone please advise how to improve it? Thanks
clear lt_temp1[].
   select "a~mblnr
         a~budat
         b~matnr
        b~MBLNR
        b~zeile
         b~bwart
         b~ERFMG
         b~ERFME
         c~aufnr
         c~verid
         e~text1
         f~maktx
        g~auart
    into corresponding fields of table lt_temp1
    from mkpf as a
      inner join mseg as b
        on  amblnr = bmblnr
        and amjahr = bmjahr
      inner join afpo as c
        on  baufnr = caufnr
        and bmatnr = cmatnr
      inner join aufk as i
        on caufnr = iaufnr
      inner join afko as d
        on iaufnr = daufnr
      inner join MKAL as e
        on  cmatnr = ematnr
        and bwerks = ewerks
        and cverid = everid
      inner join MARC as h
        on  ematnr = hmatnr
        and ewerks = hwerks
      inner join MAKT as f
        on  ematnr = fmatnr
     inner join aufk as g
       on  caufnr = gaufnr
    where a~budat in s_datum
    and   b~bwart between '101' and '102'
    and   b~werks = p_werks
    and   b~erfmg <> 0
    and   b~aufnr <> space
    and   i~AUART in gr_auart
    and   d~fevor in s_fevor
    and   d~dispo in s_dispo
    and   f~spras = sy-langu.

Answer 1

Hi huang,
Hope this code will be help out.
If you use more that three inner joins performence will be very slow instead of that better to use For All entreies.
*& Report  ZDN_TEST_001
REPORT  ZDN_TEST_001.
SELECT-OPTIONS: S_DATUM FOR SY-DATUM.
PARAMETERS: P_WERKS TYPE WERKS.
TYPES: BEGIN OF TP_MKPF,
MBLNR TYPE MKPF-MBLNR,
MJAHR TYPE MKPF-MJAHR,
BUDAT TYPE MKPF-BUDAT,
END OF TP_MKPF.
TYPES: BEGIN OF TP_MSEG,
MBLNR TYPE MSEG-MBLNR,
MJAHR TYPE MSEG-MJAHR,
ZEILE TYPE MSEG-ZEILE,
BWART TYPE MSEG-BWART,
MATNR TYPE MSEG-MATNR,
WERKS TYPE MSEG-WERKS,
ERFMG TYPE MSEG-ERFMG,
ERFME TYPE MSEG-ERFME,
AUFNR TYPE MSEG-AUFNR,
END OF TP_MSEG.
TYPES: BEGIN OF TP_AFPO,
AUFNR TYPE AFPO-AUFNR,
MATNR TYPE AFPO-MATNR,
VERID TYPE AFPO-VERID,
END OF TP_AFPO.
TYPES: BEGIN OF TP_MKAL,
MATNR TYPE MKAL-MATNR,
WERKS TYPE MKAL-WERKS,
VERID TYPE MKAL-VERID,
TEXT1 TYPE MKAL-TEXT1,
END OF TP_MKAL.
TYPES: BEGIN OF TP_MAKT,
MATNR TYPE MAKT-MATNR,
MAKTX TYPE MAKT-MAKTX,
END OF TP_MAKT.
TYPES: BEGIN OF TP_MARC,
MATNR TYPE MARC-MATNR,
WERKS TYPE MARC-WERKS,
END OF TP_MARC.
TYPES: BEGIN OF TP_AUFK,
AUFNR TYPE AUFK-AUFNR,
AUART TYPE AUFK-AUART,
END OF TP_AUFK.
TYPES: BEGIN OF TP_TEMP1,
MBLNR TYPE MKPF-MBLNR,
BUDAT TYPE MKPF-BUDAT,
MATNR TYPE MSEG-MATNR,
ZEILE TYPE MSEG-ZEILE,
BWART TYPE MSEG-BWART,
ERFMG TYPE MSEG-ERFMG,
ERFME TYPE MSEG-ERFME,
AUFNR TYPE AFPO-AUFNR,
VERID TYPE AFPO-VERID,
TEXT1 TYPE MKAL-TEXT1,
MAKTX TYPE MAKT-MAKTX,
AUART TYPE AUFK-AUART,
END OF TP_TEMP1.
DATA: IT_TEMP1 TYPE STANDARD TABLE OF TP_TEMP1.
DATA: IT_MKPF TYPE STANDARD TABLE OF TP_MKPF.
DATA: IT_MSEG TYPE STANDARD TABLE OF TP_MSEG.
DATA: IT_AFPO TYPE STANDARD TABLE OF TP_AFPO.
DATA: IT_MKAL TYPE STANDARD TABLE OF TP_MKAL.
DATA: IT_MAKT TYPE STANDARD TABLE OF TP_MAKT.
DATA: IT_AUFK TYPE STANDARD TABLE OF TP_AUFK.
DATA: IT_MARC TYPE STANDARD TABLE OF TP_MARC.
work area.
DATA: WA_TEMP1 TYPE TP_TEMP1 ,
      WA_MKPF TYPE TP_MKPF,
      WA_MSEG TYPE TP_MSEG,
      WA_AFPO TYPE TP_AFPO,
      WA_MKAL TYPE TP_MKAL,
      WA_MAKT TYPE TP_MAKT,
      WA_MARC TYPE TP_MARC,
      WA_AUFK TYPE TP_AUFK.
START-OF-SELECTION.
  SELECT MBLNR MJAHR BUDAT INTO TABLE  IT_MKPF FROM MKPF
  WHERE BUDAT IN S_DATUM.
  IF NOT IT_MKPF IS INITIAL.
    SELECT MBLNR MJAHR ZEILE BWART MATNR WERKS ERFMG ERFME INTO TABLE IT_MSEG FROM MSEG
    FOR ALL ENTRIES IN IT_MKPF
    WHERE MBLNR = IT_MKPF-MBLNR
    AND MJAHR = IT_MKPF-MJAHR
    AND BWART BETWEEN '101' AND '102'
    AND WERKS = P_WERKS
    AND ERFMG = 0
    AND AUFNR = SPACE.
  ENDIF.
  IF NOT IT_MSEG IS INITIAL.
    SELECT AFPOAUFNR AFPOMATNR AFPO~VERID INTO TABLE IT_AFPO FROM AFPO
    INNER JOIN AUFK
    ON AFPOAUFNR = AUFKAUFNR
    INNER JOIN AFKO
    ON AUFKAUFNR = AFKOAUFNR
    FOR ALL ENTRIES IN IT_MSEG
    WHERE AFPO~AUFNR = IT_MSEG-AUFNR
    AND MATNR = IT_MSEG-MATNR.
  ENDIF.
  IF NOT IT_MSEG IS INITIAL.
    SELECT MATNR WERKS VERID TEXT1 INTO TABLE IT_MKAL FROM MKAL
    FOR ALL ENTRIES IN IT_MSEG
    WHERE MATNR = IT_MSEG-MATNR
    AND WERKS = IT_MSEG-WERKS.
  ENDIF.
  IF NOT IT_MKAL IS INITIAL.
    SELECT MATNR WERKS INTO TABLE IT_MARC FROM MARC
    FOR ALL ENTRIES IN IT_MKAL
    WHERE MATNR = IT_MKAL-MATNR.
  ENDIF.
  IF NOT IT_MARC IS INITIAL.
    SELECT MATNR MAKTX INTO TABLE IT_MAKT FROM MAKT
      FOR ALL ENTRIES IN IT_MARC
      WHERE MATNR = IT_MARC-MATNR.
  ENDIF.
  IF NOT IT_AFPO IS INITIAL.
    SELECT AUFNR AUART INTO TABLE IT_AUFK FROM AUFK
    FOR ALL ENTRIES IN IT_AFPO
    WHERE AUFNR = IT_AFPO-AUFNR.
  ENDIF.
  LOOP AT IT_MKPF INTO WA_MKPF.
    WA_TEMP1-MBLNR = WA_MKPF-MBLNR.
    WA_TEMP1-BUDAT = WA_MKPF-BUDAT.
    READ TABLE IT_MSEG WITH KEY MBLNR = WA_MKPF-MBLNR
                                WERKS = P_WERKS
                                ERFMG = 0
                                AUFNR = SPACE
                                INTO WA_MSEG.
    IF SY-SUBRC = 0.
      WA_TEMP1-MATNR = WA_MSEG-MATNR.
      WA_TEMP1-ZEILE = WA_MSEG-ZEILE.
      WA_TEMP1-BWART = WA_MSEG-BWART.
      WA_TEMP1-ERFMG = WA_MSEG-ERFMG.
      WA_TEMP1-ERFME = WA_MSEG-ERFME.
      READ TABLE IT_AFPO WITH KEY AUFNR = WA_MSEG-AUFNR
                                  MATNR = WA_MSEG-MATNR
                                  INTO WA_AFPO.
      IF SY-SUBRC = 0.
        WA_TEMP1-AUFNR = WA_AFPO-AUFNR.
        WA_TEMP1-VERID = WA_AFPO-VERID.
        READ TABLE IT_AUFK WITH KEY AUFNR = WA_AFPO-AUFNR
                                    INTO WA_AUFK.
        IF SY-SUBRC = 0.
          WA_TEMP1-AUART = WA_AUFK-AUART.
        ENDIF.
      ENDIF.
      READ TABLE IT_MKAL WITH KEY MATNR = WA_MSEG-MATNR
                                  WERKS = WA_MSEG-WERKS
                                  INTO WA_MKAL.
      IF SY-SUBRC = 0 .
        WA_TEMP1-TEXT1 = WA_MKAL-TEXT1.
        READ TABLE IT_MARC WITH KEY MATNR = WA_MKAL-MATNR
                                    WERKS = WA_MSEG-WERKS
                                    INTO WA_MARC.
        IF SY-SUBRC = 0.
          READ TABLE IT_MAKT WITH KEY MATNR = WA_MARC-MATNR
                                      INTO WA_MAKT.
          IF SY-SUBRC = 0 .
            WA_TEMP1-MAKTX = WA_MAKT-MAKTX.
          ENDIF.
        ENDIF.
      ENDIF.
      APPEND WA_TEMP1 TO IT_TEMP1.
      CLEAR: WA_TEMP1 , WA_MKPF , WA_MSEG , WA_AFPO , WA_MKAL , WA_MAKT, WA_MARC , WA_AUFK.
    ENDIF.
  ENDLOOP.
Thanks,
Nelson