abap 间接寻址 给动态变量赋值

需求： 有时写程序的时候，需要给某个动态变量 赋值操作，当字段比较多时，如果用常规方法赋值 就会显得代码很冗余，其实可以用变量的间接寻址赋值。

 

 

ex1： 

 

data    c1    type    char10.

data    c2     type    char10.

 

field-symbols  <fs>  type  any.

 

c1  = 'C2'.             "注意：此时的这个要赋值的变量“C2”一定要是大写的，因为在abap内部    变量名都是以大写格式保存的。

 

c2 = 'test1'.

assign  (c1)  to  <fs>.

<fs>  = 'test2'.

 

这时变量c2的内容由 'test1'  ->   'test2'.

 

 

该种方法适用于 多个变量要进行动态赋值时使用。

 

下面例子说明：点下那个按钮就将那个按钮文本设为'test'.

data  ok_code      type   sy-ucomm.

data  l_but           type    char10.

 

field-symbols  <fs> type any.

 

 

parameters:

    pushbutton  2(10)    pb1   user-command pb1,

    pushbutton  12(10)  pb2   user-command pb2,

    pushbutton  22(10)  pb3   user-command pb3,

    pushbutton  32(10)  pb4   user-command pb4.

 

 

at selection-screen.

   ok_code = sy-ucomm.

 

   l_but = ok_code.

 

   assign (l_but)  to  <fs>.

   <fs> = 'test'.

 

 

该方法减少了对每个按钮都要进行判断然后赋值，减少了代码的冗余，个人觉得代码简洁了不少。