Need code for a function module- Urgent

Question

Hi friends,
I have a requirement where I am giving material description as an import parameter in the function module. ( Material description could be a wild search -- say - Mat* ) I want a sub routine in the function module which should get all the materials from the database ( mara or makt..not sure ) for the user entered Material description.
I want this particular code to be written using a sub-routine using formal parameters inside this fm . Could any one send me the code for this.
Thanks in advance,
Vishnu.

Answer 1

Hi Vishvanath,,
Please find the below code.
DATA : BEGIN OF itab OCCURS 0,
       matnr LIKE makt-MATNR,
       MAKTX LIKE makt-MAKTX,
       END OF itab.
DATA : BEGIN OF itab1 OCCURS 0,
       matnr LIKE makt-MATNR,
       MAKTX LIKE makt-MAKTX,
       END OF itab1.
data : a(5) type c value 'TEST'.
perform mat_no using a.
form mat_no  using    p_a.
data : lv_temp(4) type c.
select matnr maktx from makt into table itab.
loop at itab.
lv_temp = itab-maktx+0(4).
if lv_temp = p_a.
  move itab to itab1.
  APPEND ITAB1.
endif.
endloop.
loop at itab1.
write :/ itab1.
endloop.
endform.                    " mat_no
Thanks.
Amjad.