FIELD SYMBOL

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/