SAP-第009章 模块化ABAP

第九章模块化 ABAP/4 程序

概览

内容

源代码模块 ...................................................................... １宏的定义与调用 .................................................................. １

包含程序 ......................................................................... ２子程序.......................................................................... ３定义子程序 ....................................................................... ３

调用子程序 ....................................................................... ３

在调用程序与子程序之间进行数据传递............................................. ５

在子程序中定义局部数据类型和对象............................................. １３

中断子程序 ..................................................................... １５功能模块...................................................................... １６使用现有功能模块 .............................................................. １６

创建和编写功能模块 ............................................................ １８

本章将介绍如何模块化 ABAP/4 程序。如果程序包含相同或相似的语句块，或者希望多次处理相同函数，应用模块化技术可以避免冗余。

通过模块化 ABAP/4 程序，使得程序易读，并改善程序的结构。与未模块化的程序相比，模块化程序更易于维护和更新。

模块化原则：

The result of N2 - N1 is 1

这样就定义了两个宏： OPERATION 和 OUTPUT。 OUTPUT 嵌套在 OPERATION 中。OPERATION 先后三

次被其他参数调用。应注意占位符 &1、&2、…在宏中是如何被替换的。

包含程序

如果要在多个程序中使用相同的语句序列，则可一次性将其代码编写到包含程序中。例如，当希望在不同程序中使用的数据声明较长时，这一点将非常重要。

以下主题说明：

不能与包含程序进行显式数据传递，因为包含程序的目的是模块化源代码。如果想与模块进行

数据传递，请使用子程序或功能模块。

创建包含程序

要创建包含程序，请按以下章节所述步骤进行：

创建简单的 ABAP/4 程序 (页 1–1)

对于程序属性类型，必须使用类型 I。具体说明参见：

重要的程序属性 (页 1–4) 通过双击 ABAP/4 程序中 INCLUDE 语句后的程序名，还可以创建或更改包含程序（参见使用包含程序 (页２) ）。这样既可以创建新程序，又可以更改现有程序。

不能单独运行包含程序，而必须从其它程序中调用。

可以从其它包含程序中调用包含程序。

编写 INCLUDE 程序源代码的唯一限制如下：

_ 包含程序不能包含 PROGRAM 或 REPORT 语句。

_ 包含程序不能调用自身。

_ 包含程序必须包含完整语句。

但是，必须确保包含程序语句在逻辑上符合调用它的程序源代码。在编辑器中编辑包含程序时，选择“检查”通常还无法保证这一点。

***INCLUDE INCL-TST.

TEXT = 'Hello!'.

在此，语法检查报告错误，因为没有声明 TEXT 字段。但是，在用合适的类型定义了字段 TEXT

的任何程序中，都可以调用程序 INCL-TST。

要想从语法检查中获得有意义的结果，必须为调用包含程序的程序进行语法检查（参见使用包含程序 (页２) ）。

使用包含程序

要从另一个 ABAP/4 程序中调用包含程序，请使用 INCLUDE 语句，用法如下：

语法

INCLUDE .

在语法检查期间和生成期间，该语句将源代码 插入到 ABAP/4 程序中。INCLUDE 语句的功能类似于把 源代码复制到调用程序中语句的位置上。

INCLUDE 语句必须单独占一行，并且不能扩展到多行。

包含程序不是运行时装载的，而是在程序生成前就被解析。程序生成后，则包含所用全部包含程序的源代码。

假设编写了如下的包含程序：

***INCLUDE STARTTXT.

WRITE: / 'Program started by', SY-UNAME,

/ 'on host', SY-HOST,

'date:', SY-DATUM, 'time:', SY-UZEIT.

ULINE.

可以从任何其它 ABAP/4 程序调用该程序。例如，如果希望编写输出功能模块的标准表头，请在

PROGRAM 或 REPORT 之后插入 INCLUDE 语句，方法如下：

PROGRAM SAPMZTST.

INCLUDE STARTTXT.

............

输出结果如下：

Program started by FRED

on host hs1077 date: 07/19/1995 time: 09:00:39

___________________________________________________________

................

子程序

子程序是可以从 ABAP/4 中调用的程序。定义子程序的目的是为了避免重复编写程序中频繁使用的某些部分或频繁使用的算法。可以与子程序进行显式数据传递。

有两种类型的子程序：

_ 内部子程序：

内部子程序的源代码与调用程序（内部调用）位于同一 ABAP/4 程序中。

_ 外部子程序：

外部子程序的源代码位于 ABAP/4 程序中而不是调用程序（外部调用）中。

尽管内部子程序主要用于模块化及结构化单个程序，某个 ABAP/4 程序中内部调用的子程序可以从另一个ABAP/4 程序中外部调用。另外，也可以创建只包含子程序的 ABAP/4 程序。这些程序不能自己运行，而是被其它 ABAP/4 程序作为外部子程序库来调用。

下列主题说明

定义子程序

子程序是以 FORM 开头、以 ENDFORM 结尾的代码块。要定义子程序，请使用下列语法：

语法

FORM [].

ENDFORM.

定义子程序名。 选项用于指定如何与子程序进行数据传递。

_ 对于内部子程序，不必使用 选项，但子程序可以访问主 ABAP/4 程序中声明的所有数据对象。

_ 对于外部子程序，必须决定是使用 选项，还是在内存公用部分声明数据对象。

有关与子程序进行数据传递的详细信息，参见在调用程序与子程序之间进行数据传递 (页５)

如果在同一程序中定义内部子程序，并且不使用事件关键字，则应将其分组集中在程序末尾，以免影响程序流程（参见定义过程块 (页Error! Not a valid link.) ）。

子程序不能包含嵌套的 FORM-ENDFORM 块。

FORM HEADER.

WRITE: / 'Program started by', SY-UNAME,

/ 'on host', SY-HOST,

'date:', SY-DATUM, 'time:', SY-UZEIT.

ULINE.

ENDFORM.

这样就创建了子程序 HEADER，该子程序可用于创建输出列表的表头（请与使用包含程序 (页

２) 中的示例进行比较）。

调用子程序

可以调用代码位于同一 ABAP/4 程序中的子程序（内部调用），也可调用代码位于其它 ABAP/4 程序中的子程序（外部调用）。

可以运行时指定子程序名，或从给定列表中调用子程序。

不仅可以从子程序中调用子程序（嵌套调用），子程序也可以调用自己（递归调用）。

调用内部子程序

要调用内部子程序，请使用 PERFORM 语句，用法如下：

语法

PERFORM [].

调用子程序 。在 选项中，指定如何与子程序进行数据传递。如果不使用 选项，子程序也可以访问主 ABAP/4 程序中声明的所有数据类型和对象。该数据叫做全局数据，如果不被同名局域数据隐藏，该数据对子程序可见（关于数据传递的详细信息，参见在调用程序与子程序之间进行数据传递 (页５) ）。

PROGRAM SAPMZTST.

DATA: NUM1 TYPE I,

NUM2 TYPE I,

SUM TYPE I.

NUM1 = 2. NUM2 = 4.

PERFORM ADDIT.

NUM1 = 7. NUM2 = 11.

PERFORM ADDIT.

FORM ADDIT.

SUM = NUM1 + NUM2.

PERFORM OUT.

ENDFORM.

FORM OUT.

WRITE: / 'Sum of', NUM1, 'and', NUM2, 'is', SUM.

ENDFORM.

输出如下：

Sum of 2 and 4 is 6

Sum of 7 and 11 is 18

在该示例中，程序末尾定义了两个内部子程序：ADDIT 和 OUT。ADDIT 从该程序中调用，OUT 从

ADDIT 调用。子程序自动具有字段 NUM1、 NUM2 和 SUM 的访问权限。

调用外部子程序

要调用外部子程序，请使用 PERFORM 语句，用法如下：

语法

PERFORM () [] [IF FOUND].

调用程序 中定义的子程序 。如果希望与子程序进行数据传递，必须定义 选项或者使用公用部分（关于进行数据传递的详细信息，参见在调用程序与子程序之间进行数据传递 (页５) ）。

如果使用 IF FOUND 选项，并且程序 中没有子程序 _{，系统就忽略 PERFORM 语句。}

启动调用外部子程序的程序时，如果定义了子程序的程序不在内存中，ABAP/4就将其装载到内存中。为了节省存储空间，尽量将不同程序中定义的子程序数目限制到最小。

假定程序包含下列子程序：

PROGRAM FORMPOOL.

FORM HEADER.

WRITE: / 'Program started by', SY-UNAME,

/ 'on host', SY-HOST,

'date:', SY-DATUM, 'time:', SY-UZEIT.

ULINE.

ENDFORM.

可以从程序中调用子程序，方法如下：

PROGRAM SAPMZTST.

PERFORM HEADER(FORMPOOL) IF FOUND.

在该示例中，调用程序与子程序之间没有数据传递。与使用包含程序 (页２) 中的示例一样，

该子程序执行输出语句。

运行时指定子程序名

运行时，可以指定要调用的子程序名以及存储子程序的程序名。为此请使用 PERFORM 语句，用法如下：

语法

PERFORM () [IN PROGRAM ()] [] [IF FOUND].

系统执行字段 中存储的子程序。如果使用 IN PROGRAM 选项，系统在字段 中存储的程序内查找子程序（外部调用）。否则，系统在当前程序中查找子程序（内部调用）。

使用该语句还可在程序代码中指定子程序名和外部程序名。为此请忽略括弧。

选项指定如何与子程序进行数据传递（关于数据传递的详细信息，参见在调用程序与子程序之间进行数据传递 (页５) ）。如果使用 IF FOUND 选项，找不到子程序 _{时，系统就忽略 PERFORM 语句。}

假定程序包含子程序：

PROGRAM FORMPOOL.

FORM SUB1.

WRITE: / 'Subroutine 1'.

ENDFORM.

FORM SUB2.

WRITE: / 'Subroutine 2'.

ENDFORM.

可在运行时指定子程序名，如下所示：

PROGRAM SAPMZTST.

DATA: PROGNAME(8) VALUE 'FORMPOOL',

SUBRNAME(8).

SUBRNAME = 'SUB1'.

PERFORM (SUBRNAME) IN PROGRAM (PROGNAME) IF FOUND.

SUBRNAME = 'SUB2'.

PERFORM (SUBRNAME) IN PROGRAM (PROGNAME) IF FOUND.

输出如下：

Subroutine 1

Subroutine 2

字符字段 PROGNAME 包含程序名，该程序包含子程序。子程序名被分配给字符字段 SUBRNAME。

从列表中调用子程序

要从列表中调用特定子程序，请使用 PERFORM 语句，用法如下：

语法

PERFORM OF ....