Reading decimal data into a string

Question

Hi,
I am having an issue in converting the non char data like decimal into character.  Here is my code In the output I see '#' signs where I am supoose to get certain amount values in the decimal format. I require it because I need to download the data into a file. Any thoughts?  Rest of the code looks fine. Thanks in advance,
VG
field-symbols: <fs_table> type standard table,
               <fs_wa>,
               <fs_string>.
     CREATE DATA v_dref Type table of (v_tabname).
      assign v_dref->* TO <fs_table>.
      select * from (v_tabname) into table <fs_table>.
      loop at <fs_table> assigning <fs_wa>.
          assign component sy-index of structure <fs_wa> to <fs_string> casting type c.
          if sy-subrc = 0.
            write:/ <fs_string>.
         else.
           write: <fs_string>.
          endif.
        endloop.
output:   10000100000001019999123120090101                                        ############0001

Answer 1

@-Clemens - I tried your code , some problems with decimals values , adds a * in front.
@Vinu - Just some rough modification to the code written by Clemens
PARAMETERS:p_table TYPE tabname.
DATA:wf_maximum TYPE i,
     wf_total_fields TYPE i,
     wi_count TYPE i,
     wf_ltype TYPE c,
     wf_length TYPE i,
     wi_index TYPE i.
DATA:i_comp TYPE cl_abap_structdescr=>component_table,
      wa_comp LIKE LINE OF i_comp,
     wa_fields TYPE abap_compdescr.
DATA:lr_data TYPE REF TO data,
     lr_line TYPE REF TO data,
     wf_data_str TYPE REF TO data,
     wf_type_struct TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS:<fs_table> TYPE STANDARD TABLE,
<fs_wa>     TYPE ANY,
<fs_line> TYPE ANY,
<fs_field_s> TYPE ANY.
CREATE DATA lr_data TYPE TABLE OF (p_table).
ASSIGN lr_data->* TO <fs_table>.
CREATE DATA lr_line LIKE LINE OF <fs_table>.
ASSIGN lr_line->* TO <fs_line>.
SELECT * FROM (p_table) INTO TABLE <fs_table> UP TO 20 ROWS.
CLEAR:wf_ltype,wi_count.
DESCRIBE FIELD <fs_line> TYPE       wf_ltype
                           COMPONENTS wi_count.
LOOP AT <fs_table> ASSIGNING <fs_wa>.
  AT FIRST.
    wf_maximum = 0.
    wf_total_fields = wi_count.
    WHILE wi_count GT 0.
      wi_index = sy-index.
      ASSIGN COMPONENT wi_index OF STRUCTURE <fs_wa> TO <fs_field_s>.
      IF sy-subrc EQ 0.
        DESCRIBE FIELD <fs_field_s> TYPE          wf_ltype
                                    OUTPUT-LENGTH wf_length.
        IF wf_maximum LT wf_length.
          wf_maximum = wf_length.
        ENDIF.
      ENDIF.
      wi_count = wi_count - 1.
    ENDWHILE.
    CLEAR:wa_comp,i_comp[].
    wa_comp-name = 'FIELD'(005).
    wa_comp-type ?= cl_abap_elemdescr=>get_c( wf_maximum ).
    APPEND wa_comp TO i_comp.
    TRY.
        wf_type_struct =
        cl_abap_structdescr=>create( p_components = i_comp ).
      CATCH cx_sy_struct_creation.
    ENDTRY.
    CREATE DATA: wf_data_str TYPE HANDLE wf_type_struct.
    ASSIGN:wf_data_str->* TO <fs_line>.
  ENDAT.
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE <fs_wa> TO <fs_line>.
    IF sy-subrc = 0.
      WRITE <fs_line>.
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.
ENDLOOP.