how to do that code for better performance

hi

i do that code and i wont to now if i can do that in other way for better performence

Regards

CLEAR: a_index.

DESCRIBE TABLE intab_a132 LINES a_index.

IF a_index > 1.

DO a_index TIMES.

LOOP AT zempkostlprice_rec INTO wa_zem.

READ TABLE intab_a132 INTO wa_intab_a132 INDEX a_index.

IF wa_intab_a132-datab LE wa_zem-date.

IF wa_zem-kbetr IS INITIAL AND wa_zem-konwa IS INITIAL AND wa_zem-kostl IS INITIAL.

MOVE: wa_intab_a132-kostl TO wa_zem-kostl,

wa_intab_a132-kbetr TO wa_zem-kbetr,

wa_intab_a132-konwa TO wa_zem-konwa.

MODIFY zempkostlprice_rec FROM wa_zem TRANSPORTING kbetr konwa kostl.

CLEAR:wa_zem,wa_intab_a132.

ENDIF.

ENDIF.

ENDLOOP.

a_index = a_index - 1.

ENDDO.

ENDIF.