Setting a TYPE dynamically

[Mirna]

Hi All,

I'm trying to create a data with a type setted dynamically.
I have 2 parameters : an internal table (p_reference) and the name (colonne, as a string) of one of its columns.

My code doesnt work because the instruction : "create data: ty_type type (desired_type)"
wont accept these desired_type :
- P(8) DECIMALS 3
- P8
It can only accept 'P'

Can I set the length and the decimals later Or should I change something else to make this code work?

FIELD-SYMBOLS <table_reference>  TYPE STANDARD TABLE.
  ASSIGN p_reference TO <table_reference>.
 
  FIELD-SYMBOLS <table_reference_fields> TYPE ANY.
  DATA gs_fldname TYPE REF TO data.
  CREATE DATA gs_fldname LIKE LINE OF <table_reference>.
  ASSIGN gs_fldname->* TO <table_reference_fields>.
 
  FIELD-SYMBOLS <lfs_comp_wa> TYPE abap_compdescr.
 
  l_descr_ref ?= cl_abap_typedescr=>describe_by_data( <table_reference_fields> ).
 
  LOOP AT l_descr_ref->components[] ASSIGNING <lfs_comp_wa>.
    IF <lfs_comp_wa>-name = colonne.
      exit.
    endif.
  endloop.
 
  data desired_type type string.
 
" This CONCATENATE dont work but this is just an example
 
  concatenate <lfs_comp_wa>-type_kind 
	      <lfs_comp_wa>-length 
              ' DECIMALS ' 
              <lfs_comp_wa>-decimals
  into desired_type.
 
 
  data: ty_type type ref to data .
  field-SYMBOLS <fs_data> type any .
  create data: ty_type type (desired_type) .  " crash :(
  ASSIGN: ty_type->* TO <fs_data> .

Thanks in advance.

Regards,
Mirna

[Golfi]

Hello Mirna,

Allowed syntax are:

DATA dref TYPE REF TO data.
CREATE DATA dref TYPE p LENGTH 11 DECIMALS 3.
* or
DATA: dref2 TYPE REF TO data,
      len TYPE i VALUE 11,
      dec TYPE i VALUE 3.
CREATE DATA dref2 TYPE p LENGTH len DECIMALS dec.
* or
DATA: dref3 TYPE REF TO data,
      dataelem type c length 30 value 'WRBTR'.
CREATE DATA dref3 TYPE (dataelem).

Regards,
Golfi

[Lala]

Hi Mirna,

Why not reading the data type of the table field?

    select single rollname into lv_type from dd03l
                                        where tabname   = lv_dbtab
                                        and   fieldname = ls_fld_except-fieldname.
    if sy-subrc  0.
      exit.
    endif.
 
    create data f_any type (lv_type).
    assign f_any->* to <f_any>.

Hope this helps.

Regards,
Lala