DATA : LV_FORMULA TYPE CHAR100,
LV_VALUE TYPE F,
LV_RESULT TYPE CHAR100,
LV_RETCODE LIKE SY-SUBRC,
LV_MESSAGE TYPE MSGTXT,
LV_CALC_AMT TYPE P DECIMALS 2.
* Input Value
LV_FORMULA = '(10*5)/10+i'.
CONDENSE LV_FORMULA.
REPLACE ALL OCCURRENCES OF 'i' IN LV_FORMULA WITH '1'.
* Check Fomula
CALL FUNCTION 'CHECK_FORMULA'
EXPORTING
FORMULA = LV_FORMULA
IMPORTING
SUBRC = LV_RETCODE
MESSAGE = LV_MESSAGE
EXCEPTIONS
ERROR_IN_FORMULA = 1
MISSING_PARAMETER = 2
OTHERS = 3.
CHECK LV_RETCODE IS INITIAL AND SY-SUBRC EQ 0.
* Eval Fomula
CALL FUNCTION 'EVAL_FORMULA'
EXPORTING
FORMULA = LV_FORMULA
IMPORTING
VALUE = LV_VALUE
EXCEPTIONS
DIVISION_BY_ZERO = 1
EXP_ERROR = 2
FORMULA_TABLE_NOT_VALID = 3
INVALID_EXPRESSION = 4
INVALID_VALUE = 5
LOG_ERROR = 6
PARAMETER_ERROR = 7
SQRT_ERROR = 8
UNITS_NOT_VALID = 9
MISSING_PARAMETER = 10
OTHERS = 11.
* Write
LV_CALC_AMT = LV_VALUE.
WRITE: LV_CALC_AMT TO LV_RESULT STYLE CL_ABAP_FORMAT=>O_SIMPLE.
CONDENSE LV_RESULT.
WRITE : LV_RESULT.
댓글 4
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
447 | 인터널 테이블 라인수 lines [8] | sapjoy | 2014.01.20 | 16915 |
446 | TRY와 SQL [2] | sapjoy | 2013.12.05 | 5814 |
445 | SAP 버퍼를 다시 설정하는 방법 | Wise 멘토 | 2013.10.04 | 7480 |
444 | debug 시 문장 skip 요령 [36] | 하마대왕 | 2013.10.04 | 6827 |
443 | SAP GUI 730 ALV Grid 느림 현상(해결방법) [3] | Dave | 2013.09.27 | 8877 |
442 | TYPE-1 프로그램에서 실행버튼 없애기 [1] | 아밥뽀 | 2013.09.23 | 9095 |
441 | sap 메뉴에서 표준 매뉴 전환 [1] | selection장 | 2013.09.13 | 9440 |
440 | 요약파일1 [7] | 밤의화신 | 2013.09.11 | 8038 |
439 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8359 |
438 | ABAP 교육 [9] | 밤의화신 | 2013.09.11 | 7385 |
437 | ABAP 교육 [6] | 밤의화신 | 2013.09.11 | 7198 |
436 | ABAP 교육 [6] | 밤의화신 | 2013.09.11 | 7272 |
435 | ABAP 교육 [12] | 밤의화신 | 2013.09.11 | 7286 |
434 | ABAP 교육 [32] | 밤의화신 | 2013.09.11 | 8492 |
433 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8490 |
432 | REM PROCESS2 [1] | 밤의화신 | 2013.09.11 | 4496 |
431 | REM PROCESS1 | 밤의화신 | 2013.09.11 | 5398 |
430 | REM TABLE3 | 밤의화신 | 2013.09.11 | 2657 |
429 | REM TABLE2 | 밤의화신 | 2013.09.11 | 2819 |
428 | REM TABLE1 | 밤의화신 | 2013.09.11 | 2867 |
공유 감사합니다~~