ayuda con rutina para mejorar tiempo de busquedas

[Neo_25]

Buenas,
a ver si te puedo ayudar.

Porqué no separas la select principal del for all entries.


SELECT t1~belnr t1~gjahr t2~buzei t2~bschl t2~nplnr t2~projk t2~dmbtr t2~lifnr t1~budat
INTO TABLE it_bseg_reem
FROM zbkpf_73 AS t1
INNER JOIN zbseg_73 AS t2
ON t1~bukrs EQ t2~bukrs
AND t1~belnr EQ t2~belnr
AND t1~gjahr EQ t2~gjahr
WHERE t1~bukrs EQ bukrs
AND t1~blart EQ 'JE'
AND t1~stblg EQ ' '
AND t1~xstov NE 'X'
AND t1~budat LE s_budat.

FIELD-SYMBOLS: <fs_bseg_reem> TYPE xxxx.
DATA: lw_aufk TYPE yyyy. "estructura

LOOP AT it_bseg_reem ASSIGNING <fs_bseg_reem>.
READ TABLE it_aufk INTO lw_aufk
WITH KEY aufnr = <fs_bseg_reem>-nplnr.
IF sy-subrc = 0.
APPEND lw_aufk TO it_bseg_reem_2.
ENDIF.
ENDLOOP.