...

CLASS lc_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
      free
      ,
      on_hotspot
        FOR EVENT hotspot_click OF cl_gui_alv_grid
        IMPORTING e_row_id
                  e_column_id
      ,
      on_close
        FOR EVENT close OF cl_gui_dialogbox_container
    .
  PRIVATE SECTION.
    DATA:
      lcl_tedit  TYPE REF TO cl_gui_textedit,
      lcl_dialog TYPE REF TO cl_gui_dialogbox_container
    .
    METHODS:
      call_subscreen
          IMPORTING e_tdid  TYPE tdid
                    e_banfn TYPE banfn
                    e_bnfpo TYPE bnfpo
    .
ENDCLASS.                    "lc_event_handler DEFINITION

...

  METHOD call_subscreen.
*          IMPORTING e_tdid TYPE tdid.
*                    e_banfn TYPE banfn
*                    e_bnfpo TYPE bnfpo
    DATA:
      ls_tline     TYPE tline
    .
    DATA:
      lt_text  TYPE TABLE OF tline,
      lt_tline TYPE tlinetab
    .
    IF me->lcl_dialog IS INITIAL.
      CREATE OBJECT me->lcl_dialog
        EXPORTING
          width                       = 600
          height                      = 150
          lifetime                    = cntl_lifetime_imode
          top                         = 150
          left                        = 150
          caption                     = sy-title.
      SET HANDLER me->on_close FOR me->lcl_dialog.
      CREATE OBJECT me->lcl_tedit
        EXPORTING
          parent                 = me->lcl_dialog.
    ELSE.
      CALL METHOD me->lcl_dialog->set_visible
        EXPORTING
          visible = 'X'.
    ENDIF.
    PERFORM import_text
      USING    e_tdid
               e_banfn
               e_bnfpo
      CHANGING lt_tline.
    LOOP AT lt_tline INTO ls_tline.
      APPEND ls_tline-tdline TO lt_text.
    ENDLOOP.
    CALL METHOD me->lcl_tedit->set_text_as_r3table
      EXPORTING
        table = lt_text.
    CALL METHOD me->lcl_tedit->set_readonly_mode.
  ENDMETHOD.                    "call_screen_9100

...

FORM import_text  USING    p_tdid  TYPE tdid
                           p_banfn TYPE banfn
                           p_bnfpo TYPE bnfpo
                  CHANGING pt_line TYPE tlinetab.
  DATA:
    BEGIN OF ls_stxl_id,
      tdobject LIKE stxl-tdobject,
      tdname   LIKE stxl-tdname,
      tdid     LIKE stxl-tdid,
      tdspras  LIKE stxl-tdspras,
    END OF ls_stxl_id
  .
  ls_stxl_id-tdobject = 'EBAN'.
  ls_stxl_id-tdspras  = sy-langu.
  ls_stxl_id-tdid     = p_tdid.
  CONCATENATE p_banfn p_bnfpo INTO ls_stxl_id-tdname.
  IMPORT tline TO pt_line
    FROM DATABASE stxl(tx)
    CLIENT   sy-mandt
    ID       ls_stxl_id
    IGNORING CONVERSION ERRORS.
ENDFORM.                    " import_text

...

    CREATE OBJECT editor_container
        EXPORTING
            container_name = container_name
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
.....
    CREATE OBJECT editor
          EXPORTING
            max_number_chars = max_number_chars
            parent = editor_container
            wordwrap_mode = cl_gui_textedit=>wordwrap_at_windowborder
  wordwrap_position = texteditor_line_length
  wordwrap_to_linebreak_mode = cl_gui_textedit=>false.
....
  CALL METHOD p_editor->set_text_as_r3table
    EXPORTING
      table = lt_text.