Optimizacion Codigo

[compaq311]

Un saludo a todos soy nuevo en ABAP.

Tengo esta consulta de donde me piden que traiga la planta (WERKS) de los movimientos que estan en itab_refu.

LOOP AT itab_refu.
SELECT SINGLE VBELV FROM VBFA
INTO documento
WHERE VBELN = itab_refu-zuonr AND
VBTYP_V = 'J'.
IF SY-SUBRC <> 0.
**Factura
SELECT SINGLE WERKS LGORT FROM VBRP
INTO (CENTRO)
WHERE VBELN = itab_refu-zuonr AND
WERKS NOT IS INITIAL.
ELSE.
**Entrega
SELECT SINGLE WERKS FROM LIPS
INTO (CENTRO)
WHERE VBELN = documento AND
LFIMG NE 0.
ENDIF.
itab_refu-werks = CENTRO
MODIFY itab_refu.
ENDLOOP.

Hay alguna otra alternativa por que se tarda mucho este programa. itab_refu trae como 2000 registros.
Saludos y gracias.