BCD_FIELD_OVERFLOW error while assigning value to dynamic work area

Question

Hi guys,
            I am trying following code --it uses dynamic table concept.
       LABSTD2 TYPE P DECIMALS  1,
       LABST_2 TYPE P DECIMALS   1,
       LABST_12 TYPE P DECIMALS 1,
       T_ARTMAS-LABST_12 = T_ARTMAS-LABSTD1 + T_ARTMAS-LABSTD2.
       ASSIGN COMPONENT 'LABST_12' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>.
       <DYN_FIELD> = T_ARTMAS-LABST_12.
Value in T_ARTMAS-LABST_12 in debug was 14690.0....still it gave following error-----
Runtime Error       BCD_FIELD_OVERFLOW
Except.                CX_SY_CONVERSION_OVERFLOW
Even i changed decleartion as follows
LABST_12 TYPE P lenght 10 DECIMALS 1,
Still it is giving same problem ...
Kindly help.

Answer 1

Hi, I think it has nothing to do with an overflow but something with the code. Try this simple (rather stupied) code:
TYPES: BEGIN OF ty_line,
        fld1      TYPE p DECIMALS 1,
        fld2      TYPE p DECIMALS 1,
        fld3      TYPE p DECIMALS 1,
      END OF ty_line.
DATA lv_rec       TYPE ty_line.
DATA lv_count(1)  TYPE n.
DATA lv_fld1      TYPE p DECIMALS 1.
DATA lv_fld2      TYPE p DECIMALS 1.
DATA lv_fld3      TYPE p DECIMALS 1.
DATA lv_field     TYPE string.
FIELD-SYMBOLS: <fs_fld> TYPE any.
BREAK-POINT.
lv_fld1 = 15211444 / 10.
lv_fld2 = 54879072 / 10.
lv_fld3 = lv_fld1 + lv_fld2.
DO 3 TIMES.
  lv_count = lv_count + 1.
  CLEAR lv_field.
  CONCATENATE 'lv_rec-fld' lv_count INTO lv_field.
  CONDENSE lv_field NO-GAPS.
  ASSIGN (lv_field) TO <fs_fld>.
  <fs_fld> = lv_fld3.
ENDDO.
BREAK-POINT.
Succes.