Runtime error in Dynamic internal table with AMOUNT and Quantity Fields..

Question

Dear friends,
I am attempting write a dymanic Select Statement (with joins).
And the sleect query looks like this..
  SELECT (LT_SEL_LIST)
  INTO CORRESPONDING FIELDS OF
  TABLE <DYN_TABLE>
  FROM (LT_FROM_LIST)
  WHERE (LT_WHERE3).
Here the into table is a dynamically created internal table..
which is created by ...this
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = IT_OUTPUT2[]
    IMPORTING
      EP_TABLE        = DY_TABLE.
the it_output2 contains the the fieldcatlog information of dynamically given fields :-
like:-
       TABNAME
       FIELDNAME
       DATATYPE
       LENG
       INTTYPE
       ROLLNAME
       DECIMALS
       REFTABLE
       REFFIELD
i mean the internal table is constructed with reference to all the bove metadata.
Problem:- This query run fine with all the fields Except AMOUNT AND QUANTITY fields....
When the selection list contain VBAK-NETWR or MSEG-MENGE..It throws a runtime error.
"The data read during a SLECT access couldnt be inserted into the target field,either conversion is not supported for
the target field's type or the target field is too short."
after this I even tried to construct the dynamic table with CFILEDNAME and QFIELDNAME in the Fieldcatalog.
so now my fieldcatlog looks like this:---
LOOP AT IT_DD03L..
  IF IT_DD03L-DATATYPE = 'CURR'.
       TABLEFIELD-CFIELDNAME = IT_DD03L-FIELDNAME .
       ENDIF.
   IF IT_FIELDCAT3-DATATYPE = 'QUAN'.
       TABLEFIELD-QFIELDNAME = IT_DD03L-FIELDNAME .
  ENDIF.
       TABLEFIELD-TABNAME     = IT_DD03L-TABNAME.
       TABLEFIELD-FIELDNAME   = IT_DD03L-FIELDNAME.
       TABLEFIELD-DATATYPE    = IT_DD03L-DATATYPE.
       TABLEFIELD-INTLEN      = IT_DD03L-LENG.
       TABLEFIELD-INTTYPE     = IT_DD03L-INTTYPE .
       TABLEFIELD-ROLLNAME    = IT_DD03L-ROLLNAME.
       TABLEFIELD-DECIMALS    = IT_DD03L-DECIMALS.
       TABLEFIELD-REF_TABLE   = IT_DD03L-REFTABLE.
       TABLEFIELD-REF_FIELD   = IT_DD03L-REFFIELD.
APPEND TABLEFIELD.
CLEAR TABLEFIELD.
ENDLOOP.
Note:- this is a test code so ignore performance issues...
Please help me with some code ...to avoid the Runtime erorr.
Thanks,
jeevan.

Answer 1

Hi Jeevan,
Why are moving only few fields from DD03L table to your field catalog? Why don't you use move-corresponding? The following code works for me in ECC6.0.
data: it_dd03l type table of dd03l initial size 0,
      ls_dd03l type dd03l,
      lt_fldcat TYPE lvc_t_fcat,
      ls_fldcat TYPE lvc_s_fcat,
      ls_where(72) TYPE c,
      lt_where LIKE TABLE OF ls_where,
      lt_fld LIKE TABLE OF ls_where,
      lt_data_dy TYPE REF TO data.
field-symbols: <ft_data> TYPE STANDARD TABLE.
select * into table it_dd03l from dd03l
    where tabname = 'VBAK'
      and ( fieldname = 'VBELN' or fieldname = 'NETWR' ).
check sy-subrc eq 0.
loop at it_dd03l into ls_dd03l.
  move-corresponding ls_dd03l to ls_fldcat.
  append ls_fldcat to lt_fldcat.
  move ls_dd03l-fieldname to ls_where.
  append ls_where to lt_fld.
  if ls_dd03l-fieldname = 'VBELN'.
    clear ls_where.
    concatenate ls_dd03l-fieldname ' <> ''''' into ls_where.
    append ls_where to lt_where.
  endif.
endloop.
check not lt_fldcat is initial.
CALL METHOD cl_alv_table_create=>create_dynamic_table
      EXPORTING
        it_fieldcatalog           = lt_fldcat
      IMPORTING
        ep_table                  = lt_data_dy
      EXCEPTIONS
        generate_subpool_dir_full = 1
        OTHERS                    = 2.
    IF sy-subrc <> 0.
      RAISE no_configuration_data.
    ENDIF.
    ASSIGN lt_data_dy->*  TO <ft_data>.
check sy-subrc eq 0.
select (lt_fld) from VBAK into corresponding fields of table
    <ft_data>
    where (lt_where).
Thanks
Bala