Hi,
1.execute the Tcodes of each table and give the values for all the fields and update it by saving.
2.check_formula:write the code under PAI:
Good to know that your problem is solved. But I also hope that you have noticed that having an entry in the TFKT table is not really mandatory. You can as well give the formula directly in the code.
The one good reason why you would want to do it through TFKT is that the table is allowed for mainenance. So should someone decide to change a formula lateron, they can just change the entry in the table. In other word, TFKT can serve as some sort of a configuration table.
3.Eg:REPORT ZTEST.
DATA: FORMULA(50) VALUE 'TFKT:CIRCLEAREA(A)',
RADIUS TYPE F VALUE '1000',
AREA TYPE F,
RETCODE LIKE SY-SUBRC.
WRITE: / 'Entered Radius :', RADIUS.
CALL FUNCTION 'CHECK_FORMULA'
EXPORTING FORMULA = FORMULA
PROGRAM = 'ZANAND_TEST'
ROUTINE = 'CHECK_VALUES'
IMPORTING SUBRC = RETCODE.
IF RETCODE IS INITIAL.
CALL FUNCTION 'EVAL_FORMULA'
EXPORTING FORMULA = FORMULA
PROGRAM = 'ZANAND_TEST'
ROUTINE = 'GET_VALUES'
IMPORTING VALUE = AREA
EXCEPTIONS OTHERS = 1.
WRITE: / 'AREA Computed :', AREA.
ENDIF.
FORM GET_VALUES USING PARM CHANGING WERT SUBRC.
IF PARM = 'A'.
WERT = RADIUS.
SUBRC = 0.
ENDIF.
ENDFORM.
FORM CHECK_VALUES USING PARM CHANGING SUBRC.
IF PARM = 'A'.
SUBRC = 0.
ENDIF.
ENDFORM.[/code]
Should you have further doubts, then please look at the sample programs RSCALC01 and RSCALC10.
Regards,
Shiva.
Bluesky
