看下图代码:
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.