Saving the data of text editor ?

Question

Hello
I have ceated a text editor using the following code..
TOP declarations
DATA :init,
      container TYPE REF TO cl_gui_custom_container,
      editor    TYPE REF TO cl_gui_textedit.
DATA: CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
     EDITOR TYPE REF TO Cl_GUI_TEXTEDIT,
      REPID LIKE SY-REPID.
CONSTANTS: LINE_LENGTH TYPE I VALUE 250.
Process Before Output
====================================================
IF EDITOR IS INITIAL.
    repid = sy-repid.
    CREATE OBJECT custom_container
       EXPORTING
          CONTAINER_NAME = 'BOX'
       EXCEPTIONS
          CNTL_ERROR = 1
          CNTL_SYSTEM_ERROR = 2
          CREATE_ERROR = 3
          LIFETIME_ERROR = 4
          LIFETIME_DYNPRO_DYNPRO_LINK = 5.
    CREATE OBJECT editor
          EXPORTING
             parent = custom_container
            WORDWRAP_MODE = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
             WORDWRAP_POSITION = line_length
             WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
  ENDIF.                 "editor is initial
*==============================================================
With this code i am able to achieve the text editor.
My requirement is to save the text that is typed in the text editor. If any can help me to achive this task will be highly appriciated.
Thks

Answer 1

check the sample code..
this will be in edit mode , you activate the save button, when you press the save button get the text as table using the method GET_TEXT_AS_R3TABLE, now save that internal table to DB.
REPORT  zvijay_textedit.
DATA:
  obj_cust     TYPE REF TO cl_gui_custom_container,
  obj_text     TYPE REF TO cl_gui_textedit.
* Internal table to display
DATA:
BEGIN OF i_table OCCURS 0,
  line(132) TYPE c,
END OF i_table.
START-OF-SELECTION.
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
* To create the object custom container
* screen
  CREATE OBJECT obj_cust
      EXPORTING
          container_name = 'CONTAINER'
      EXCEPTIONS
          cntl_error = 1
          cntl_system_error = 2
          create_error = 3
          lifetime_error = 4
          lifetime_dynpro_dynpro_link = 5.
  IF sy-subrc NE 0.
  ENDIF.                             " IF sy-subrc NE 0
* create the a TextEdit Control
  CREATE OBJECT obj_text
    EXPORTING
       parent = obj_cust
       wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
       wordwrap_to_linebreak_mode = cl_gui_textedit=>true
    EXCEPTIONS
        OTHERS = 1.
  MOVE: 'SDN Sample code' TO i_table.
  APPEND i_table.
  CALL METHOD obj_text->set_text_as_r3table
    EXPORTING
      table  = i_table[]
    EXCEPTIONS
      OTHERS = 1.
* Flush
  CALL METHOD cl_gui_cfw=>flush
    EXCEPTIONS
      OTHERS = 1.
  IF sy-subrc NE 0.
  ENDIF.                               " IF sy-subrc NE 0
ENDMODULE.                 " STATUS_0100  OUTPUT
Regards
Vijay Babu Dudla