弹出式长文本编辑器

REPORT zviltest.

DATA: BEGIN 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.