首页 > 代码库 > ABAP 给动态变量赋值
ABAP 给动态变量赋值
【转自 http://blog.csdn.net/forever_crazy/article/details/6544830】
需求: 有时写程序的时候,需要给某个动态变量 赋值操作,当字段比较多时,如果用常规方法赋值 就会显得代码很冗余,其实可以用变量的间接寻址赋值。
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‘.
该方法减少了对每个按钮都要进行判断然后赋值,减少了代码的冗余。
ABAP 给动态变量赋值