Chinaunix首页 | 论坛 | 博客
  • 博客访问: 598452
  • 博文数量: 154
  • 博客积分: 10208
  • 博客等级: 上将
  • 技术积分: 2225
  • 用 户 组: 普通用户
  • 注册时间: 2007-11-16 14:02
文章分类

全部博文(154)

文章存档

2012年(4)

2011年(44)

2010年(50)

2009年(4)

2008年(52)

我的朋友

分类:

2010-09-04 20:01:16

REPORT zviltest.

DATABEGIN OF lit_text OCCURS 0,
      line LIKE tline-tdline,
  END OF lit_text.

CALL FUNCTION 'TERM_CONTROL_EDIT'
  TABLES
    textlines      = lit_text
  EXCEPTIONS
    user_cancelled = 1
    OTHERS         = 2.

LOOP AT lit_text.
  WRITE :/ lit_text-line.
ENDLOOP.
阅读(750) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~