ABAP formula

Created by Wang, Jerry, last modified on Dec 20, 2014

DATA : PROG(20)   VALUE ‘ZTEST_FORMULA_1′,

FORME(15) VALUE ‘GET_EVAL_VALUES’,

FORMC(16) VALUE ‘GET_CHECK_VALUES’,

FUNC(30),

MESS(80),

POSITION(2),

RC LIKE SY-SUBRC,

UNIT LIKE T006D-MSSIE,

RESULT TYPE i.

DATA : FORMEL1(50)  VALUE ‘TFKT:10*A + 5* B + 3**C’,

FORMEL2(50)  VALUE ‘10*A + 5* B + 3**C’,

FORMEL3(50)  VALUE ‘TFKT:TCFORMULA1(A,B,C)’.

“PERFORM FORMEL USING FORMEL1.”Error!!!!

PERFORM FORMEL USING FORMEL2.

PERFORM FORMEL USING FORMEL3.

*———————————————————————–

*  Formel     Formula Check and Manipulate

FORM FORMEL USING FORMEL.

CALL FUNCTION ‘CHECK_FORMULA’

EXPORTING

FORMULA           = FORMEL

PROGRAM           = PROG

ROUTINE           = FORMC

UNIT_OF_MEASURE   = UNIT

IMPORTING

FUNCNAME          = FUNC

MESSAGE           = MESS

POS               = POSITION

SUBRC             = RC.

IF RC IS INITIAL.

CALL FUNCTION ‘EVAL_FORMULA’

FORMULA            = FORMEL

PROGRAM            = PROG

ROUTINE            = FORME

UNIT_OF_MEASURE    = UNIT

VALUE              = RESULT

EXCEPTIONS

DIVISION_BY_ZERO   = 1

EXP_ERROR          = 2

INVALID_EXPRESSION = 3

INVALID_VALUE      = 4

LOG_ERROR          = 5

PARAMETER_ERROR    = 6

SQRT_ERROR         = 7

UNITS_NOT_VALID    = 8

FORMULA_TABLE_NOT_VALID = 9.

IF sy-subrc <> 0.

WRITE : / FORMEL,‘Error!!!’.

else.

WRITE : / FORMEL,RESULT,UNIT.

ENDIF.

ELSE.

WRITE : / FORMEL,

/ FUNC,

/ MESS,

/ POSITION,

/ RC.

ENDFORM.

*  GET_EVAL_VALUES    For Real-parameter ==> Formal Parameters

FORM GET_EVAL_VALUES  USING    PARM

CHANGING WERT

SUBRC.

CASE PARM.

WHEN ‘A’.

WERT  = 3.

SUBRC = 0.

WHEN ‘B’.

WERT  = 2.

WHEN ‘C’.

WHEN OTHERS.

SUBRC = 1.

ENDCASE.

*  GET_CHECK_VALUES    Bypass  Formal Parameters

FORM GET_CHECK_VALUES USING PARM

CHANGING SUBRC.

program RSCALC01 或RSCALC10.