Popup text editor control

DATA: BEGIN OF IT_TEXT OCCURS 0,
      LINE LIKE TLINE-TDLINE,
  END OF IT_TEXT.

 

CALL FUNCTION 'TERM_CONTROL_EDIT'
  TABLES
    TEXTLINES      = IT_TEXT
  EXCEPTIONS
    USER_CANCELLED = 1
    OTHERS         = 2.
LOOP AT IT_TEXT.
  WRITE :/ IT_TEXT-LINE.
ENDLOOP.