ABAP基础-10 模块化

原创

已于 2022-04-15 10:54:47 修改 · 623 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#abap

于 2022-03-14 17:52:26 首次发布

ABAP-10 模块化

1、子程序

FORM 子程序名 参数(值传递、引用传递（含内表）)
	代码...
	代码...
	代码...
ENDFORM.

	using	using value	change	change value	table
传递方式	引用传递	值传递	引用传递	值传递	引用传递
参数是否改变	是	否	是	结束后改变	是

1、子程序必须写在代码的最后面 2、参数最好带类型

简单子程序

*调用子程序Fname。
PERFORM fname."输出：Hello world

*此处定义子程序：Fname
*子程序不被调用，是不会执行的
FORM fname.
  WRITE / 'Hello world'.
ENDFORM.

1.1 using

例子A

PERFORM fname02 USING 'hello'."输出：hello

FORM fname02 USING in_str TYPE string.
  WRITE / in_str.
ENDFORM.

例子B-参数的值会改变

DATA l_msg TYPE string VALUE 'hello03'.
WRITE / l_msg."输出：hello
PERFORM fname03 USING l_msg.
WRITE / l_msg."输出：03你好

FORM fname03 USING in_str TYPE string.
  in_str = '03你好'.
ENDFORM.

1.2 using value

DATA l_msg04 TYPE string VALUE 'hello04'.
WRITE / l_msg04."输出：hello04.
PERFORM fname04 USING l_msg04.
WRITE / l_msg04."输出：hello04.

FORM fname04 USING VALUE(in_str) TYPE string.
  in_str = '04你好'.
ENDFORM.