ABAP FIELD-SYMBOLS 有大作用- 将没有可改参数的增强出口变得也能改主程序的值了

看下图代码：

report  z_xul_test2 中 定义了 全局变量 G_DATA1 , 分别调用了 z_xul_tes1 中的 form  和 function zbapi_test , 这两个调用都没有将

G_DATA1 作为参数，但在两个子程序中通过 field-symbol 成功修改了其值。

打印结果如下：

 

如果直接把　G＿DATA１　作为一个普通变量来改，在语法检查时就通不过的，但如果利用 field-symbol 在运行期来修改就可以成功修改。

 

同样在 function 中也可以修改。 这个function 没有任何参数。

 

 

很有意思，如果碰到增强出口都是不带修改功能的，没法实现通过出口来改程序中的值，这时候，利用这个特点，说不定将不可能变成可能。。。

 

http://blog.csdn.net/fangkailove/article/details/39695519

 测试代码，大家可以自己试试。

源代码：
*&---------------------------------------------------------------------*
*& Report  Z_XUL_TEST2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_XUL_TEST2.



DATA:G_DATA1(100).  "定义全局变量


G_DATA1 = '111111111111'. "初始值
WRITE: / , '\ REPORT  Z_XUL_TEST2 初始值：' ,G_DATA1.


PERFORM TEST1_FORM1 IN PROGRAM ('Z_XUL_TEST1')  . "调用其它程序的 FORM
WRITE: / , '\ 经过Z_XUL_TEST1.TEST1_FORM1修改后：' ,G_DATA1.


CALL FUNCTION 'ZBAPI_TEST' . "调用 function module
WRITE: / , '\ 经过 ZBAPI_TEST修改后：' ,G_DATA1.






*&---------------------------------------------------------------------*
*& Report  Z_XUL_TEST1
*&
*&---------------------------------------------------------------------*
*& 没有任何参数，却改变了主程序里的变量。
*&
*&---------------------------------------------------------------------*

REPORT  Z_XUL_TEST1.

form  test1_form1  .


   "(Z_XUL_TEST2)G_DATA1 = '尝试1'.
   "G_DATA1 = '尝试1'.


   FIELD-SYMBOLS:<f1> TYPE any.
   data fieldname(50).
   fieldname = '(Z_XUL_TEST2)G_DATA1' .
   ASSIGN (fieldname) to <f1>  .

   <f1> = '2222222222222222'.

ENDFORM.




   FUNCTION ZBAPI_TEST .



   FIELD-SYMBOLS:<f1> TYPE any.
   data fieldname(50).
   fieldname = '(Z_XUL_TEST2)G_DATA1' .
   ASSIGN (fieldname) to <f1>  .

   <f1> = '333333333'.


   ENDFUNCTION.