ABAP PERFORM参数用法详解：从基础语法到实战避坑指南

1次阅读

共计 1810 个字符，预计需要花费 5 分钟才能阅读完成。

在 ABAP 中，FORM 子程序是 PERFORM 语句调用的代码块，其参数分为三种类型：

INPUT 参数 ：仅用于向子程序传入值，子程序内部修改不会影响调用者变量。语法示例：
```
FORM my_form USING VALUE(p_input) TYPE i.
```
OUTPUT 参数 ：用于从子程序返回结果，调用前不需要初始化。语法示例：
```
FORM my_form CHANGING p_output TYPE string.
```
CHANGING 参数 ：双向传递，既接收输入值又返回修改结果。语法示例：
```
FORM my_form CHANGING p_inout TYPE c.
```

BY VALUE（值传递）：
创建参数的本地副本，修改不影响原变量。适合小型数据（如基本类型）
```
FORM calculate USING VALUE(p_num) TYPE i.
  p_num = p_num * 2. " 不影响外部变量
ENDFORM.
```
BY REFERENCE（引用传递）：
直接操作原变量内存地址。适合大型结构或表，但存在修改风险
```
FORM modify_data CHANGING ct_data TYPE STANDARD TABLE.
  DELETE ct_data WHERE id = 'OLD'.
ENDFORM.
```

当传递参数时隐式转换类型可能导致数据截断：

DATA lv_number TYPE p DECIMALS 2 VALUE '123.45'.
PERFORM show_number USING lv_number. " 如果 FORM 定义为 TYPE i 则会丢失小数部分

调用未赋值的 CHANGING 参数会引发运行时错误：

DATA lv_result TYPE string.
PERFORM get_result CHANGING lv_result. " 如果 FORM 内直接 APPEND 会报错

在 LOOP 内传递工作区引用可能导致意外修改：

LOOP AT lt_items ASSIGNING FIELD-SYMBOL(<fs>).
  PERFORM process_item CHANGING <fs>. " 可能同时修改原表数据
ENDLOOP.

特性	BY VALUE	BY REFERENCE
内存消耗	较高（复制数据）	低
修改影响外部	否	是
适合场景	基本类型	大型对象 / 表

* 调用示例
DATA: lv_input  TYPE i VALUE 10,
      lv_output TYPE string,
      lv_inout  TYPE c LENGTH 1 VALUE 'A'.

PERFORM safe_example
  USING    lv_input
  CHANGING lv_output
           lv_inout.

* FORM 定义
FORM safe_example
  USING    VALUE(p_input) TYPE i  " 输入参数值传递
  CHANGING p_output TYPE string  " 输出参数引用传递
           VALUE(p_inout) TYPE c. "双向参数值传递" 参数校验
  IF p_input IS INITIAL.
    RETURN.
  ENDIF.

  " 业务逻辑
  p_output = |Result: {p_input}|.
  p_inout = 'B'.
ENDFORM.

对引用类型参数检查是否已绑定：

IF NOT p_ref IS BOUND.
  RAISE EXCEPTION TYPE cx_sy_ref_not_initialized.
ENDIF.

对输出参数初始化：
```
CLEAR p_output.
```

处理内表时优先引用传递
高频调用的子程序使用基本类型值传递
避免在循环内反复创建大型参数副本

分析以下代码执行后各变量的值：

DATA: lv_a TYPE i VALUE 1,
      lv_b TYPE i,
      lv_c TYPE i VALUE 3.

PERFORM parameter_test
  USING    lv_a
  CHANGING lv_b
           lv_c.

FORM parameter_test
  USING    VALUE(p_a)
  CHANGING p_b
           VALUE(p_c).
  p_a = p_a + 10.
  p_b = p_c.
  p_c = p_a + p_b.
ENDFORM.

通过系统学习参数传递机制，结合防御性编程和性能意识，可以显著提升 ABAP 代码的健壮性。建议在实际开发中多使用 ABAP Debugger 观察参数传递过程，加深理解。

正文完