Abap/4语法（7）

*&---------------------------------------------------------------------*
*& Report  Z_CPT3_8                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  Z_CPT3_8                                .
*调用函数
SKIP 3.
WRITE: / '测试函数调用'.
DATA: num1 TYPE i,
      num2 TYPE i,
      otype TYPE c,
      result TYPE f.

*加
num1 = 100.
num2 = 200.
otype = 'A'.

*减
num1 = 100.
num2 = 200.
otype = 'S'.

*乘
num1 = 100.
num2 = 200.
otype = 'M'.

**除
*num1 = 100.
*num2 = 200.
*otype = 'D'.

CALL FUNCTION 'Z_NUMOPERATION'
  EXPORTING
    NUM1          = num1
    NUM2          = num2
    OTYPE         = otype
 IMPORTING
   RESULT        = result
          .
WRITE: / '函数调用的结果是：',result.