editortext abspeichern

Code: Alles auswählen.

FORM speichern.
  TYPES:  BEGIN OF my_table_struct_definition,
                  line(line_length) TYPE c,
          END OF my_table_struct_definition,
          my_table TYPE my_table_struct_definition OCCURS 0.
  DATA:   mytable     TYPE my_table,
          wa_mytable  LIKE LINE OF mytable,
          modifiziert TYPE i.

* wenn Editor modifiziert wurde
* gesamten Text zeilenweise in der Tabelle mytable zwischenspeichern,
  CALL METHOD editor->get_text_as_r3table
    EXPORTING only_when_modified = 1
    IMPORTING
      table = mytable
      is_modified = modifiziert.

* wenn Editor modifiziert wurde
  IF modifiziert = 1.

* zeilenweise Text in Tabelle abspeichern
    LOOP AT mytable INTO wa_mytable.
      ...
      tabelle-text = wa_mytable.
      INSERT tabelle.
    ENDLOOP.
  ENDIF.
ENDFORM.

Code: Alles auswählen.

FORM anzeige.
  TYPES: BEGIN OF my_table_struct,
               line(line_length) TYPE c,
         END OF my_table_struct,
         my_table TYPE my_table_struct OCCURS 0.

  DATA:  it_line  TYPE my_table,
         wa_line LIKE LINE OF it_line.

* passenden Scriptinhalt heraussuchen
    SELECT * FROM tabelle WHERE feld = xxx.
      wa_line = tabelle-text.
      APPEND wa_line TO it_line.
    ENDSELECT.

* Scriptinhalt im Editor darstellen
    CALL METHOD editor->set_text_as_r3table
         EXPORTING table = it_line.
ENDFORM. 

Code: Alles auswählen.

wordwrap_position          = 50