REPORT YTEST_FIELD_SYMBOL.
TYPES: BEGIN OF T_001.
INCLUDE STRUCTURE T001.
TYPES: END OF T_001.
DATA: IT_T001 TYPE TABLE OF T001,
WA_T001 LIKE LINE OF IT_T001.
SELECT *
INTO TABLE IT_T001
FROM T001.
DATA: W_DEF TYPE REF TO DATA.
FIELD-SYMBOLS: TYPE ANY TABLE,
TYPE ANY TABLE,
TYPE ANY,
TYPE ANY.
ASSIGN ('IT_T001') TO .
GET REFERENCE OF INTO W_DEF.
ASSIGN W_DEF->* TO .
LOOP AT ASSIGNING .
ASSIGN COMPONENT 'BUTXT' OF STRUCTURE TO .
= 'TEST BUG'.
ENDLOOP.
LOOP AT IT_T001 INTO WA_T001.
WRITE: /1 WA_T001-BUTXT.
ENDLOOP.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/139677/viewspace-630476/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/139677/viewspace-630476/