ITPub博客

首页 > Linux操作系统 > Linux操作系统 > FIELD SYMBOL

FIELD SYMBOL

原创 Linux操作系统 作者:fengleihen 时间:2010-03-26 15:58:14 0 删除 编辑

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/,如需转载,请注明出处,否则将追究法律责任。

上一篇: tabpage
下一篇: VA01 EXIT C
请登录后发表评论 登录
全部评论

注册时间:2009-03-31

  • 博文量
    24
  • 访问量
    26475