Problem while reading structure of table

Question

data : it_tabdescr type abap_compdescr_tab,
         wa_tabdescr type abap_compdescr.
  data : ref_table_descr type ref to cl_abap_structdescr.
Return structure of the table.
  ref_table_descr ?= cl_abap_typedescr=>describe_by_name( 'MARA' ).
  it_tabdescr[] = ref_table_descr->components[].
it_tabdescr[] contains following fields..
   length    TYPE i,
    decimals  TYPE i,
    type_kind TYPE abap_typekind,
    name      TYPE abap_compname,
The code is working fine in 4.7..
But in ecc 6  length wise it is reading twice from table mara.
in 4.7 mandt  length 3
ecc6   mandt  length 6.

Answer 1

DATA: DDFIELDS TYPE DDFIELDS ,
      WA_DDFIELDS LIKE LINE OF DDFIELDS.
CALL FUNCTION 'TR_NAMETAB_GET'
  EXPORTING
    IV_TABNAME                       = 'MARA'
   IV_GET_LENGTHS_IN_CHARMODE       = 'X'
IMPORTING
   ET_DFIES                         = DDFIELDS
EXCEPTIONS
   NOT_FOUND                        = 1
   OTHERS                           = 2.
IF SY-SUBRC <> 0.
ELSE.
  LOOP AT DDFIELDS INTO WA_DDFIELDS.
    WRITE: / WA_DDFIELDS-FIELDNAME, WA_DDFIELDS-LENG,  WA_DDFIELDS-DATATYPE.
  ENDLOOP.
ENDIF.