SELECT v~vbeln
v~erdat
v~ernam
v~vbtyp
v~auart
v~lifsk
v~faksk
v~vkorg
v~spart
v~vkgrp
v~vkbur
v~guebg
v~gueen
v~knumv
v~vdatu
v~mahdt
v~kunnr
v~vgbel
v~vgtyp
b~bzirk
b~inco1
b~valdt
b~zterm
b~mschl
b~empst
b~bstkd
b~kdkg5
k~cmgst
INTOTABLE t_vbak
FROM vbak AS v
INNER JOIN vbkd AS b
ON v~vbeln EQ b~vbeln
INNER JOIN vbuk AS k
ON v~vbeln EQ k~vbeln
where
v~vbeln IN s_vbeln AND
v~erdat IN s_erdat AND
v~ernam IN s_ernam AND
v~vbtyp IN ('C', 'G') AND
v~auart IN s_auart AND
v~faksk IN s_faksk AND
v~vkorg IN s_vkorg AND
v~vtweg IN s_vtweg AND
v~spart IN s_spart AND
v~vkgrp IN s_vkgrp AND
v~vkbur IN s_vkbur AND
v~guebg IN s_guebg AND
v~gueen IN s_gueen AND
v~vdatu IN s_vdatu AND
v~mahdt IN s_mahdt AND
v~kunnr IN s_kunnr AND
b~bzirk IN s_bzirk AND
b~inco1 IN s_inco1 AND
b~zterm IN s_zterm AND
b~mschl IN s_mschl AND
b~bstkd IN s_bstkd AND
b~kdkg5 IN s_kdkg5 AND
k~cmgst IN s_cmgst.
IF t_vbak[] ISNOTINITIAL.
SORT t_vbak BY vbeln ASCENDING .
DELETEADJACENTDUPLICATESFROM t_vbak COMPARING vbeln.
SELECT vbelv
posnv
vbeln
posnn
vbtyp_n
rfmng
FROM vbfa INTOTABLE t_vbfa
FORALL ENTRIES IN t_vbak
WHERE vbelv = t_vbak-vgbel
AND vbtyp_v = t_vbak-vgtyp .
ENDIF.
IF t_vbfa[] ISNOTINITIAL.
sort t_vbfa by VBELN.
refresh t_lips[].
SELECT vbeln
matnr
lfimg
vgbel
vgpos
FROM lips INTOTABLE t_lips
FORALL ENTRIES IN t_vbfa
WHERE
vgbel = t_vbfa-vbeln.
ENDIF.
Please any one tell me how to improve performance for the above tcode
join statement naot taking more time while feching data from vbfa and lips table it taking more time.