Table Field Reading in an ABAP program

Question

Dear All Gurus,
This is my requirement..
I need to read the field name (not the value of the field) in an Internal Table loop.
Ex : If internal table is currently reading 'LIFNR' ,need to read this field name into a variable, because I need to cross check this with a mapping table created for this development (BADI for ME52N).
How to I do this ?
Need your help..
Thanks
Jam123

Answer 1

Hi,
Check below code. It will useful.
TYPE-POOLS: sydes.
TABLES: dd01t, dd03l.
DATA: BEGIN OF t_marc OCCURS 0,
matnr TYPE marc-matnr,
werks TYPE marc-werks,
pstat TYPE marc-pstat,
END OF t_marc.
DATA: it_dd03l TYPE STANDARD TABLE OF dd03l,
      it_dd01t TYPE STANDARD TABLE OF dd01t.
DATA: td TYPE sydes_desc.
DATA: lv_domain TYPE dd03l-domname,
      lv_field_desc TYPE string,
      lv_tabname TYPE string,
      lv_field_name TYPE string.
FIELD-SYMBOLS :<fs> TYPE ANY.
DESCRIBE FIELD t_marc INTO td.
*APPEND td TO tt.
*CLEAR td.
SELECT * FROM dd03l INTO TABLE it_dd03l WHERE tabname = 'MARC'.
*IF it_dd03l IS NOT INITIAL.
SELECT * FROM dd01t INTO TABLE it_dd01t
   FOR ALL ENTRIES IN it_dd03l WHERE domname = it_dd03l-domname.
*ENDIF.
lv_tabname = 'MARC'.
WRITE:/ 'Field Description:'.
SHIFT lv_tabname LEFT DELETING LEADING space.
LOOP AT td-names ASSIGNING <fs>.
  SHIFT <fs> LEFT DELETING LEADING space.
  lv_field_name = <fs>.
     SELECT SINGLE * FROM dd03l WHERE tabname = lv_tabname AND fieldname = lv_field_name AND languflag = sy-langu.
  READ TABLE it_dd03l INTO dd03l WITH KEY tabname = lv_tabname fieldname = lv_field_name.
  IF dd03l-domname IS NOT INITIAL.
    SELECT SINGLE ddtext INTO lv_field_desc FROM dd01t WHERE domname = dd03l-domname AND ddlanguage = sy-langu.
   READ TABLE it_dd01t INTO dd01t WITH KEY domname = dd03l-domname.
    WRITE:/ lv_field_desc.
  ENDIF.
  CLEAR: <fs>, dd03l, dd01t, lv_field_desc, lv_field_name.
ENDLOOP.
Ram.