便携计算器详解编程语言

 1  DATA: x_value(15) TYPE c. 
 2  
 3 CALL FUNCTION 'FITRV_CALCULATOR' 
 4 * EXPORTING 
 5 *   INPUT_VALUE                = p_i 
 6 *   CURRENCY                   = 
 7 *   START_COLUMN               = '10' 
 8 *   START_ROW                  = '10' 
 9   IMPORTING 
10     output_value               = x_value 
11   EXCEPTIONS 
12     invalid_input              = 1 
13     calculation_canceled       = 2 
14     OTHERS                     = 3. 
15  
16 IF sy-subrc = 0. 
17   WRITE:/ 'Output Value ', x_value. 
18 ENDIF.