{mosgoogle}

*———————————————————————*
* Report Name : YGECICI
*———————————————————————*
* Author : Mehmet Avşar
* Location : @Altunizade - Uskudar / Istanbul
* Date / Time : 05 Jan 2007
* Subject : Field list of an Internal Table
*———————————————————————*

REPORT YGECICI MESSAGE-ID 00
   No Standard Page Heading
   Line-Size 200
   Line-Count 65.

data: Fields type i,

begin of fieldlist occurs 0,
  no like RSTRUCINFO,
end of fieldlist,

begin of itab occurs 0,
  f1 TYPE C,
  name1 LIKE lfa1-name1,
  f2,
  f3,
end of itab.

CALL FUNCTION 'GET_COMPONENT_LIST'
  EXPORTING
    program    = 'YGECICI'
    fieldname  = 'ITAB'
  TABLES
    components = fieldlist.