need to optimize loop

i have to optimize colored line any one heaving idea? Please rply ..

SELECT * FROM zsng2g_pkt_eh

INTO TABLE gt_pkt_eh

WHERE ZSNG2G_ENC_TYPE = gv_par_val_enc

AND ZSNG2G_EPC_CLASS = gv_par_val_epc

AND ZSNG2G_PACKET_LEVEL = '03'

AND ZSNG2G_REQUESTID = gv_id.

**-- selecting all the sn for give packet type list

SELECT eh_guid ZSNG2G_SN_SERIAL_NUMBER ZSNG2G_SN_COUNTER FROM zsng2g_sn_eh

INTO TABLE lt_sn_eh

WHERE ZSNG2G_SN_ENCODING_TYPE = gv_par_val_epc

AND ZSNG2G_SN_EPCCLASS = gv_par_val_enc.

* AND ZSNG2G_SN_COUNTER ge gt_pkt_ehx-ZSNG2G_RANGE_START

* AND ZSNG2G_SN_COUNTER le gt_pkt_ehx-ZSNG2G_RANGE_END.

*--Filling tbl_range

LOOP AT gt_pkt_eh into ls_pkt_eh. "where ZSNG2G_PACKET_TYPE = 'RANGE'.

if ls_pkt_eh-ZSNG2G_PACKET_TYPE = 'RANGE'.

ls_RANGE-RANGE_FROM = ls_pkt_eh-ZSNG2G_RANGE_START.

ls_RANGE-RANGE_TO = ls_pkt_eh-ZSNG2G_RANGE_END.

APPEND ls_range to lt_range.

ELSEif ls_pkt_eh-ZSNG2G_PACKET_TYPE = 'LIST' .

*--Fill tbl_list

LOOP AT lt_sn_eh into ls_sn_eh where ZSNG2G_SN_COUNTER ge ls_pkt_eh-ZSNG2G_RANGE_START and

ZSNG2G_SN_COUNTER le ls_pkt_eh-ZSNG2G_RANGE_END.

ls_list-TABLE_LIST = ls_sn_eh-ZSNG2G_SN_SERIAL_NUMBER.

APPEND ls_list to lt_list.

clear ls_list.

ENDLOOP.