select stmt

Hi,

Can any one suggest me how to place the below select statement in a subroutine currently which was executing in a loop .

select single kappl objky kschl into wa_otype

from nast

where kappl = wa_vbrk-kappl

and objky = wa_vbrk-objky.

wa_vbrk-kschl = wa_otype-kschl.

we can get wa_... from the loop.

instead of writing multiple time the same code i want to move this to subroutine.

Regards,

Cheritha