End Routine optimization Question

Dear Experts,

I am still new to ABAP. I know the below code is not optimized.

Can anyone advise, how to optimize the below code ?

DATA : e_s_result type _ty_s_TG_1.

DATA : e_t_result type _ty_t_TG_1.

DATA:  IT_tab1 type table of ZGL_RANGE_FA,

       WA_tab1 type ZGL_RANGE_FA,

       wa_zfun_area type /BI0/OIFUNC_AREA.

Loop at RESULT_PACKAGE into e_s_result.

clear wa_tab1.

Select single * from zgl_range_fa into wa_tab1 where

                      zgla_from LE e_s_result-gl_account and

                      zgla_to GE e_s_result-gl_account and

                      ZINDI NE 'X'.

e_s_result-/BIC/ZFUN_AREA = wa_tab1-zf_area.

append e_s_result to e_t_result.

endloop.

    RESULT_PACKAGE[] = e_t_result[].