Performance issues involving tables S031 and S032

Question

Hello gurus,
I am having some performance issues. The program involves accessing data from S031 and S032.  I have pasted the SELECT statements below.  I have read through the forums for past postings regarding performance, but I wanted to know if there is anything that stands out as being the culprit of very poor performance, and how it can be corrected.  I am fairly new to SAP, so I apologize if I've missed an obvious error.  From debugging the program, it seems the 2nd select statement is taking a very long time to process. 
GT_S032: approx. 40,000 entries
S031:    approx. 90,000 entries
MSEG:    approx. 115,000 entries
MKPF:    approx. 100,000 entries
MARA:    approx. 90,000 entries
SELECT
  vrsio          "Version
  werks          "Plan
  lgort          "Storage Location
  matnr          "Material
  ssour          "Statistic(s) origin                  
FROM s032
INTO TABLE gt_s032
WHERE ssour = space                                           AND   vrsio = c_000                                           AND   werks = gw_werks.
IF sy-subrc = 0.
  SELECT
    vrsio        "Version
    werks        "Plant
    spmon        "Period to analyze - month
    matnr        "Material
    lgort        "Storage Location
    wzubb        "Valuated stock receipts value
    wagbb        "Value of valuated stock being issued
  FROM s031
  INTO TABLE gt_s031
  FOR ALL ENTRIES IN gt_s032
  WHERE ssour = gt_s032-ssour                                     
  AND   vrsio = gt_s032-vrsio                                     
  AND   spmon IN r_spmon
  AND   sptag = '00000000'                                      
  AND   spwoc = '000000'                                          
  AND   spbup = '000000'                               
  AND   werks = gt_s032-werks
  AND   matnr = gt_s032-matnr
  AND   lgort = gt_s032-lgort
  AND   ( wzubb <> 0 OR wagbb <> 0 ).
ELSE.
  WRITE: 'No data selected'(m01).
  EXIT.
ENDIF.
SORT gt_s032 BY vrsio werks lgort matnr.
SORT gt_s031 BY vrsio werks spmon matnr lgort.
SELECT
  p~werks          "Plant
  p~matnr          "Material
  p~mblnr          "Document Number
  p~mjahr          "Document Year
  p~bwart          "Movement type
  p~dmbtr          "Amount in local currency
  t~shkzg          "Debit/Credit indicator
INTO TABLE gt_scrap
FROM mkpf AS h
INNER JOIN mseg AS p
   ON hmblnr = pmblnr
  AND hmjahr = pmjahr
INNER JOIN mara AS m
   ON pmatnr = mmatnr
INNER JOIN t156 AS t
   ON pbwart = tbwart
WHERE h~budat => gw_duepr-begda
  AND h~budat <= gw_duepr-endda
  AND p~werks = gw_werks.
Thanks so much for your help,
Jayesh

Answer 1

Issue with table s031 and with for all entries.
Hi,
I have following code in which select statement on s031 is
taking long time and after that it shows a dump. What should I do instead of
exceeding the time limit of execution of an abap program.
TYPES:
  BEGIN OF TY_MTL,  " Material Master
    MATNR TYPE MATNR,   " Material Code
    MTART TYPE MTART,   " Material Type
    MATKL TYPE MATKL,   " Material Group
    MEINS TYPE MEINS,   " Base unit of Measure
    WERKS TYPE WERKS_D, " Plant
    MAKTX TYPE MAKTX,   " Material description (Short Text)
    LIFNR TYPE LIFNR,   " vendor code
    NAME1 TYPE NAME1_GP, " vendor name
    CITY  TYPE ORT01_GP, " City of Vendor
    Y_RPT TYPE P DECIMALS 3, "Yearly receipt
    Y_ISS TYPE P DECIMALS 3, "Yearly Consumption
    M_OPG TYPE P DECIMALS 3, "Month opg
    M_OPG1 TYPE P DECIMALS 3,
    M_RPT TYPE P DECIMALS 3, "Month receipt
    M_ISS TYPE P DECIMALS 3, "Month issue
    M_CLG TYPE P DECIMALS 3, "Month Closing
    D_BLK TYPE P DECIMALS 3, "Block Stock,
    D_RPT TYPE P DECIMALS 3, "Today receipt
    D_ISS TYPE P DECIMALS 3, "Day issues
    TL_FL(2) TYPE C,
    STATUS(4) TYPE C,
END OF TY_MTL,
BEGIN OF TY_OPG     , " Opening File
       SPMON TYPE SPMON,   " Period to analyze - month
       WERKS TYPE WERKS_D, " Plant
       MATNR TYPE MATNR,   " Material No
       BASME TYPE MEINS,
       MZUBB TYPE MZUBB,   " Receipt Quantity
       WZUBB TYPE WZUBB,
       MAGBB TYPE MAGBB,   " Issues Quantity
       WAGBB TYPE WAGBB,
END OF TY_OPG,
DATA :
       T_M  TYPE STANDARD TABLE OF TY_MTL INITIAL SIZE 0,
       WA_M TYPE TY_MTL,
       T_O  TYPE STANDARD TABLE OF TY_OPG INITIAL SIZE 0,
       WA_O TYPE TY_OPG.
DATA: smonth1      TYPE spmon.  
SELECT
  a~matnr
  a~mtart
  a~matkl
  a~meins
  b~werks
  INTO TABLE t_m FROM mara AS a
  INNER JOIN marc AS b
  ON a~matnr = b~matnr
*  WHERE a~mtart EQ s_mtart
  WHERE a~matkl IN s_matkl
  AND b~werks IN s_werks
  AND b~matnr IN s_matnr   .
  endif.
SELECT spmon
       werks
       matnr
       basme
       mzubb
       WZUBB
       magbb
       wagbb
        FROM s031 INTO TABLE t_o
        FOR ALL ENTRIES IN t_m
        WHERE matnr = t_m-matnr
        AND werks IN s_werks
          AND spmon le smonth1
          AND basme = t_m-meins.