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.