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’ EXPORTING FORMULA = FORMEL PROGRAM = PROG ROUTINE = FORME UNIT_OF_MEASURE = UNIT IMPORTING 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. ENDIF. 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. SUBRC = 0. WHEN ‘C’. WERT = 2. SUBRC = 0. WHEN OTHERS. SUBRC = 1. ENDCASE. ENDFORM. *———————————————————————– * GET_CHECK_VALUES Bypass Formal Parameters *———————————————————————– FORM GET_CHECK_VALUES USING PARM CHANGING SUBRC. CASE PARM. WHEN ‘A’. SUBRC = 0. WHEN ‘B’. SUBRC = 0. WHEN ‘C’. SUBRC = 0. WHEN OTHERS. SUBRC = 1. ENDCASE. ENDFORM.

program RSCALC01 或RSCALC10.

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的ABAP formula的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。