abap的子程序参数注意点

 

1、参数引用传递(Parameters Passed by Reference)
使用USING或CHANGING不带value关键字来声明参数引用传递。代码样例：
FORM subr USING    p1 [{TYPE type}|{LIKE field}]
                   p2 [{TYPE type}|{LIKE field}]
                   ...
          CHANGING p1 [{TYPE type}|{LIKE field}]
                   p2 [{TYPE type}|{LIKE field}]
                   ...
在引用传递的方式，参数不在堆中占有内存，传入的是变量的地址，在子程序中对变量的修改实际上是对实际参数的修改。在这种方式using和changing是等价的。

2、输入参数传值传递(Input Parameters That Pass Values)
使用USING带value关键字来声明输入参数传值传递。代码样例：
FORM subr USING    value(p1) [{TYPE type}|{LIKE field}]
                   value(p2) [{TYPE type}|{LIKE field}]
                   ...
在输入参数传值传递的方式，参数在堆中占有内存，传入的是变量的值，在子程序中对变量的修改不会对实际参数的造成修改。

3、输出参数传值传递(Output Parameters That Pass Values)
使用USING带value关键字来声明输入参数传值传递。代码样例：
FORM subr CHANGING    value(p1) [{TYPE type}|{LIKE field}]
                   value(p2) [{TYPE type}|{LIKE field}]
                   ...
在输出参数传值传递的方式，形式参数在堆中占有内存，传入的是变量的值，在子程序中对变量的修改只有正常结束 (Endform,CHECK,EXIT等语句结束)时才会有形式参数拷贝到对实际参数，如果是错误消息退出则不会影响实际参数。

***************************其它知识点**************************************************************

在ABAP/4中参数的传递可分成

1. Call By Reference:

传参数时将资料的存放地址(address)传至参数中, 也就是子程序中的参数变量与外部实际

变量共享地址内的值, 又称为 Call By Address, 若在子程序中地址中的值改变了, 外部实

际变量的值也会跟着改变.

语法:

     FORM <subr> [USING <f1> <f2>…] [CHANGING <f1>…]

     PERFORM <subr> [USING <f1> <f2>…] [CHANGING <f1>…]

    Using 之后接在子程序中不会改变的变量, CHANGING接会改变值的变量

     但实际上USING之后的参数在子程序中也可将值改变

     Example:

     SUM = 0.

     NUM1 = 100. NUM2=200.

     PERFORM ADD USING NUM1 NUM2 CHANGING SUM.

     WRITE: / NUM1,NUM2,SUM “ SUM 由 0 变成 300

     FORM ADD USING NUM1 NUM2 CHANGING SUM.

        SUM = NUM1 + NUM2.

     ENDFORM.

     执行结果:

                     100   200   300

2. Call By Value

传参数时将数据的值复制一份至另一地址中, 所以在子程序中参数变量值改变, 并不会影

响外部实际变量的值.

     语法:

          FORM <subr> USING VALUE(<f1>…)

          使用 VALUE(<f1>)表示 <f1>是 Call By Value的传递

          PERFORM <subr> USING <f1>

     Example:

     SUM = 0.

     NUM1 = 5.

     PERFORM MULTI USING NUM1 CHANGING SUM.

     WRITE: / NUM1,SUM “NUM1值还是5, SUM 由 0 变成 120

     FORM MULTI USING VALUE(NUM1) CHANGING SUM.

        SUM = 1.

        WHILE NUM1 > 1

          SUM = SUM * NUM1.

          NUM1 = NUM1 – 1.

        ENDWHILE..

     ENDFORM.

     执行结果:

                     5   120

3. Call By Value and Return Result

传入参数值的方式同Call By Value, 但在子程序结束执行时会将传入的参数值复制

一份传回给外部实际变量.

语法:

        FORM ….. CHANGING VALUE(<f1>)

        PERFORM …. CHANGING …. <f1>

        Example:

               SUM = 0.

               NUM1 = 100. NUM2=200.

               PERFORM ADD USING NUM1 NUM2 CHANGING SUM.

               WRITE: / NUM1,NUM2,SUM “ SUM 由 0 变成 300

               FORM ADD USING NUM1 NUM2 CHANGING VALUE(S).

                  S = NUM1 + NUM2.

                  WRITE: / NUM1,NUM2,SUM “得到结果为 100 200 0

               ENDFORM.

     执行结果:

                100    200     0    “在子程序中 SUM值尚未改变

                     100   200   300    “返回程序时, 将变量 S的值复制给 SUM

                                        “所以 SUM值变成 300