DATA: ref_struct TYPE REF TO cl_abap_structdescr,
ls_struct TYPE ESTRUCTURA_DEL_DICCIONARIO,
lt_ddic_info TYPE ddfields.
DATA: l_largo TYPE scrtext_l,
l_medio TYPE scrtext_m,
l_corto TYPE scrtext_s.
FIELD-SYMBOLS: <ddic_info> TYPE LINE OF ddfields.
ref_struct ?= cl_abap_typedescr=>describe_by_data( ls_struct ).
lt_ddic_info = ref_struct->get_ddic_field_list( ).
LOOP AT lt_ddic_info ASSIGNING <ddic_info>.
o_columna ?= o_columnas->get_column( <ddic_info>-fieldname ).
l_corto = l_medio = l_largo = <ddic_info>-fieldname.
o_columna->set_long_text( l_largo ).
o_columna->set_medium_text( l_medio ).
o_columna->set_short_text( l_corto ).
ENDLOOP.