ZBlog学习笔记

参考代码:

DATA:formula TYPE string,
     l_value TYPE f,
     l_dmbtr TYPE mseg-dmbtr.
formula = '12.344 + 32.333 + ( 1 *4 -3*2)'.
CALL FUNCTION 'EVAL_FORMULA'
  EXPORTING
    formula = formula
  IMPORTING
    value   = l_value.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

l_dmbtr = l_value.

WRITE:l_dmbtr.