Joining tables EKPO & MSEG

Question

Hi All,
This is my code:
SELECT    EKKO~EBELN
            EKKO~LIFNR
            EKKO~BUKRS
            EKKO~EKORG
            EKPO~EBELP
            EKPO~TXZ01
            EKPO~MATNR
            EKPO~MENGE
            EKPO~MEINS
            EKPO~UNTTO
            EKPO~PSTYP
         FROM EKKO
        INNER JOIN EKPO ON
        EKKOEBELN = EKPOEBELN
        INTO TABLE T_EKPO
        UP TO P_MAX ROWS
        WHERE  EKKO~EBELN IN S_EBELN
        AND EKKO~BSART IN S_BSART
        AND EKKO~LIFNR IN S_LIFNR
        AND EKKO~EKORG IN S_EKORG
        AND EKKO~EKGRP IN S_EKGRP
        AND EKKO~BEDAT IN S_BEDAT
        AND EKPO~MATNR IN S_MATNR
        AND EKPO~WERKS IN S_WERKS
        AND EKPO~MATKL IN S_MATKL
        AND EKPO~PSTYP IN R_PSTYP
        AND EKPO~KNTTP IN S_KNTTP.
   SELECT MBLNR
           ZEILE
           ERFMG
           EBELN
           EBELP
           FROM MSEG
           INTO TABLE T_MSEG
           FOR ALL ENTRIES IN T_EKPO
           WHERE EBELN = T_EKPO-EBELN
           AND EBELP = T_EKPO-EBELP.
Now i am getting time out error. Can Any one suggest how can i solve this issue.

Answer 1

hi,
donot join the EKKO and EKPO tables.
first select the fields of EKKO into an itab say t_ekko.
do a sy-subrc check to see if the data is coming into t_ekko.
sort ekko by ebeln.
check if t_ekko is not initial.
now select fields from ekpo into a itab say t_ekpo for all entries in ekko where EKKO-EBELN = EKPO-EBELN.
do a sy-subrc check to see if the data is coming into i_ekpo.
now write
SELECT MBLNR
ZEILE
ERFMG
EBELN
EBELP
FROM MSEG
INTO TABLE T_MSEG
FOR ALL ENTRIES IN T_EKPO
WHERE EBELN = T_EKPO-EBELN
AND EBELP = T_EKPO-EBELP.
*Remember:*
there should always be a sy-subrc check after a select or Read statement.
before using for all entries always sort an itab by the key field.
delete adjacent duplicates if the sorting is not done based on a key field.