看下图代码:
report z_xul_test2 中 定义了 全局变量 G_DATA1 , 分别调用了 z_xul_tes1 中的 form 和 function zbapi_test , 这两个调用都没有将
G_DATA1 作为参数,但在两个子程序中通过 field-symbol 成功修改了其值。
打印结果如下:
如果直接把 G_DATA1 作为一个普通变量来改,在语法检查时就通不过的,但如果利用 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.