ABAP用Function封装代码，实现3个数的简单计算

用abap实现简单的计算器功能，了解function的使用。
注：se38程序中import（传出）、export（传入）和se37function的export（传出）、import（传入）相反
     exceptions  就是特殊情况的处理

选择屏幕：

除数为0的效果：


程序代码：

1. PARAMETERS: pa_int1   TYPE i,
   
2.             pa_op(1)  TYPE c,
   
3.             pa_int2   TYPE i,
   
4.             pa_op1(1) TYPE c,
   
5.             pa_int3   TYPE i.
   
6. 
   
7. DATA result TYPE p DECIMALS 2.
   
8. 
   
9. CALL FUNCTION 'Z_LXG_001'
   
10.   EXPORTING
    
11.     pa_int1 = pa_int1
    
12.     pa_op   = pa_op
    
13.     pa_int2 = pa_int2
    
14.     pa_op1  = pa_op1
    
15.     pa_int3 = pa_int3
    
16.   IMPORTING
    
17.     result  = result
    
18.   EXCEPTIONS
    
19.     error1  = 1
    
20.     error2  = 2
    
21.     OTHERS  = 3.
    
22. IF sy-subrc = 1.
    
23.   MESSAGE i001(zvino).
    
24.   LEAVE LIST-PROCESSING.
    
25. *   Division by zero!
    
26. ELSEIF sy-subrc = 2.
    
27.   MESSAGE i002(zvino).
    
28.   LEAVE LIST-PROCESSING.
    
29. *   Invalid operator!
    
30. ELSE.
    
31. * Implement suitable error handling here
    
32. ENDIF.
    
33. 
    
34. WRITE: 'Result:'(res), result.

复制代码

se37自定义function module （Z_LXG_001）
1.import


2.export


3.exceptions


4.source code

1. 
   
2. *"----------------------------------------------------------------------
   
3. *"*"Local Interface:
   
4. *"  IMPORTING
   
5. *"     VALUE(PA_INT1) TYPE  I OPTIONAL
   
6. *"     VALUE(PA_OP) TYPE  C OPTIONAL
   
7. *"     VALUE(PA_INT2) TYPE  I OPTIONAL
   
8. *"     VALUE(PA_OP1) TYPE  C OPTIONAL
   
9. *"     VALUE(PA_INT3) TYPE  I OPTIONAL
   
10. *"  EXPORTING
    
11. *"     VALUE(RESULT) TYPE  P
    
12. *"  EXCEPTIONS
    
13. *"      ERROR1
    
14. *"      ERROR2
    
15. *"----------------------------------------------------------------------
    
16. 
    
17.   IF NOT ( ( pa_op = '+' OR pa_op = '-' OR pa_op = '*' OR pa_op = '/'  )
    
18.           AND  ( pa_op1 = '+' OR pa_op1 = '-' OR pa_op1 = '*' OR pa_op1 = '/'  ) ).
    
19.     MESSAGE E002(ZVINO) RAISING ERROR1.
    
20.     "WRITE: 'Invalid operator!'(iop).
    
21.   ELSEIF ( pa_op = '/' AND pa_int2 = 0 ) OR ( pa_op1 = '/' AND pa_int3 = 0 ).
    
22.     MESSAGE E001(ZVINO) RAISING ERROR2.
    
23.     "WRITE: 'Division by zero!'(dbz).
    
24.   ELSE.
    
25.     CASE pa_op.
    
26.       WHEN '+'.
    
27.         result = pa_int1 + pa_int2.
    
28.         CASE pa_op1.
    
29.           WHEN '+'.
    
30.             result = RESULT + pa_int3.
    
31.           WHEN '-'.
    
32.             result = RESULT - pa_int3.
    
33.           WHEN '*'.
    
34.             result = RESULT * pa_int3.
    
35.           WHEN '/'.
    
36.             result = RESULT / pa_int3.
    
37.         ENDCASE.
    
38.       WHEN '-'.
    
39.         result = pa_int1 - pa_int2.
    
40.         CASE pa_op1.
    
41.           WHEN '+'.
    
42.             result = RESULT + pa_int3.
    
43.           WHEN '-'.
    
44.             result = RESULT - pa_int3.
    
45.           WHEN '*'.
    
46.             result = RESULT * pa_int3.
    
47.           WHEN '/'.
    
48.             result = RESULT / pa_int3.
    
49.         ENDCASE.
    
50.       WHEN '*'.
    
51.         result = pa_int1 * pa_int2.
    
52.         CASE pa_op1.
    
53.           WHEN '+'.
    
54.             result = RESULT + pa_int3.
    
55.           WHEN '-'.
    
56.             result = RESULT - pa_int3.
    
57.           WHEN '*'.
    
58.             result = RESULT * pa_int3.
    
59.           WHEN '/'.
    
60.             result = RESULT / pa_int3.
    
61.         ENDCASE.
    
62.       WHEN '/'.
    
63.         result = pa_int1 / pa_int2.
    
64.         CASE pa_op1.
    
65.           WHEN '+'.
    
66.             result = RESULT + pa_int3.
    
67.           WHEN '-'.
    
68.             result = RESULT - pa_int3.
    
69.           WHEN '*'.
    
70.             result = RESULT * pa_int3.
    
71.           WHEN '/'.
    
72.             result = RESULT / pa_int3.
    
73.         ENDCASE.
    
74.     ENDCASE.
    
75.   ENDIF.
    

复制代码

自定义消息se91：