此博客为原创博客,都是个人工作经历所得,转载请注明出处

ABAP弹窗让用户编辑长文本

DATA ZTEXTLINES TYPE TABLE OF TEXTLINES WITH HEADER LINE.
 
CALL FUNCTION 'TERM_CONTROL_EDIT'
  EXPORTING
    TITEL          = '请输入长文本:'
    LANGU          = SY-LANGU
  TABLES
    TEXTLINES      = ZTEXTLINES
  EXCEPTIONS
    USER_CANCELLED = 1
    OTHERS         = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
 
LOOP AT ZTEXTLINES.
  WRITE : / ZTEXTLINES-LINE1,ZTEXTLINES-LINE2,ZTEXTLINES-LINE3,ZTEXTLINES-LINE4.
ENDLOOP.

posted @ 2021-06-10 08:53  Rainystuday  阅读(153)  评论(0编辑  收藏  举报