Dum or take more time to execute this query

Question

SELECT AFPOAMEIN AFPOAUFNR AFPOMATNR AFPOPSMNG AFPO~PWERK
       AFPOWEMNG AUFMAUFNR AUFMBUDAT AUFMBWART AUFM~CHARG
       AUFMDMBTR AUFMERFME AUFMERFMG AUFMMATNR AUFM~MEINS
       AUFMMENGE AUFMSHKZG AUFMWAERS AUFMWERKS MARA~MATKL
       MARAMATNR MARAMTART MARCDISPO MARCMATNR MARC~PRCTR
       MARCWERKS AFPODWERK
INTO (AFPO-AMEIN , AFPO-AUFNR , AFPO-MATNR , AFPO-PSMNG , AFPO-PWERK
     , AFPO-WEMNG , AUFM-AUFNR , AUFM-BUDAT , AUFM-BWART , AUFM-CHARG
     , AUFM-DMBTR , AUFM-ERFME , AUFM-ERFMG , AUFM-MATNR , AUFM-MEINS
     , AUFM-MENGE , AUFM-SHKZG , AUFM-WAERS , AUFM-WERKS , MARA-MATKL
     , MARA-MATNR , MARA-MTART , MARC-DISPO , MARC-MATNR , MARC-PRCTR
     , MARC-WERKS , AFPO-DWERK )
FROM ( AFPO
       INNER JOIN AUFM
       ON AUFMAUFNR = AFPOAUFNR
       INNER JOIN MARA
       ON MARAMATNR = AUFMMATNR
       INNER JOIN MARC
       ON MARCMATNR = AFPOMATNR
       AND MARCWERKS = AFPODWERK )
   WHERE AFPO~AUFNR IN SP$00001
         AND AUFM~BUDAT IN SP$00002
         AND AUFM~BWART IN SP$00003
         AND AUFM~CHARG IN SP$00006
         AND AUFM~MATNR IN SP$00004
         AND AUFM~WERKS IN SP$00005
         AND MARA~MATKL IN SP$00008
         AND MARA~MTART IN SP$00007
         AND MARC~DISPO IN SP$00009
         AND MARC~PRCTR IN SP$00010.
***for work center and work center text
SELECT  S022objnr s022arbpl crhdobjid crtxktext
INTO (S022-objnr,s022-arbpl ,crhd-objid ,crtx-ktext)
from  ( s022
inner join crhd
on crhdarbpl = s022arbpl
  inner join crtx
    on crtxobjid = crhdobjid
    and crtx~objty = 'A'
    and crtx~spras = 'EN'
where
     S022~aufnr = AFPO-AUFNR
  and s022~werks = afpo-dwerk
  and crhd~werks = AFPO-DWERK
  and s022~objnr like '%1'.
endselect.
%DBACC = %DBACC - 1.
  IF %DBACC = 0.
    STOP.
  ENDIF.
  if aufm-bwart = '262'.
      aufm-menge = 0 - aufm-menge.
  endif.
  if aufm-bwart = '102'.
      aufm-menge = 0 - aufm-menge.
  endif.
  if aufm-shkzg = 'S'.
    aufm-dmbtr = 0 - aufm-dmbtr.
  endif.
  CHECK SP$00001.
  CHECK SP$00002.
  CHECK SP$00003.
  CHECK SP$00006.
  CHECK SP$00004.
  CHECK SP$00005.
  CHECK SP$00008.
  CHECK SP$00007.
  CHECK SP$00009.
  CHECK SP$00010.
  ADD 1 TO %COUNT-AFPO.
  %LINR-AFPO = '01'.
  EXTRACT %FG01.
  %EXT-AUFM01 = 'X'.
    EXTRACT %FGWRAUFM01.
  %EXT-AFPO01 = 'X'.
    EXTRACT %FGWRAFPO01.
ENDSELECT.
when i run this its dump

Answer 1

Hi
u have used
1.select...
2.select
2.endselect
1.endselect.
instead of 1.select,
select entries
into itab1.
instead of 2.select,
select entries into itab2
for all entries in itab1
and give the fields u want from itab1 in the where condition.
this will avoid loops and reduce exec time.
also avoid inner join.
reg
Ramya