Is it possible to call the TEXT EDITOR in a program?

Question

Hi,
I want a function module which will popup a text editor where the user can write some text and then i can use this text for further processing.
do we have any such function modules or text editor which i can call from the program to take long text inputs from the user?
thanks in advance

Answer 1

You can use the Class CL_GUI_TEXTEDIT
REPORT YTEST.
*module create_container_pbo_2000 output.
DATA:
  obj_cust_cont_credential  TYPE REF TO cl_gui_custom_container,
*  obj_cust_cont_character   TYPE REF TO cl_gui_custom_container,
*  obj_cust_cont_preempmnt   TYPE REF TO cl_gui_custom_container,
  obj_text_cred        TYPE REF TO cl_gui_textedit,
*  obj_text_char        TYPE REF TO cl_gui_textedit,
*  obj_text_pemp        TYPE REF TO cl_gui_textedit,
* Internal table to hold text for container reason1
  BEGIN OF i_table_text OCCURS 0,
    line(132) TYPE c,                  " Line text
  END OF i_table_text,
* Internal table to hold text for container reason2
  BEGIN OF i_table_text1 OCCURS 0,
    line(132) TYPE c,                  " Line text
  END OF i_table_text1,
* Internal table to hold text for container looking for another job
  beGIN OF i_table_text2 OCCURS 0,
    line(132) TYPE c,                  " Line text
  END OF i_table_text2.
* Subroutine to create text container for remarks on credentials
  PERFORM get_container_credential.
* Subroutine to create text container for remarks on character
*  PERFORM get_container_character.
* Subroutine to create text container for remarks on preemployeement
*  PERFORM get_container_preempmnt.
call screen 100.
*endmodule.                 " create_container_pbo_2000  OUTPUT
form get_container_credential .
  IF obj_cust_cont_credential IS INITIAL.
* To create the object custom container and link to the container on
* screen
    CREATE OBJECT obj_cust_cont_credential
        EXPORTING
            container_name = 'CCREDENTIALS'
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
*  To create the a TextEdit Control and link to the custom container
    CREATE OBJECT obj_text_CRED
      EXPORTING
         parent = obj_cust_cont_credential
         wordwrap_mode = cl_gui_textedit=>WORDWRAP_AT_WINDOWBORDER
         wordwrap_to_linebreak_mode = cl_gui_textedit=>true
      EXCEPTIONS
          others = 1.
    IF sy-subrc EQ 0.
* To remove the toolbar
      CALL METHOD obj_text_CRED->set_toolbar_mode
        EXPORTING
          toolbar_mode           = 0
        EXCEPTIONS
          error_cntl_call_method = 1
          invalid_parameter      = 2
          OTHERS                 = 3.
* To remove the status bar
      CALL METHOD obj_text_CRED->set_statusbar_mode
        EXPORTING
          statusbar_mode         = 0
        EXCEPTIONS
          error_cntl_call_method = 1
          invalid_parameter      = 2
          OTHERS                 = 3
    ENDIF.                             " IF sy-subrc EQ 0
  ENDIF.                               " IF obj_cust_cont_credential
endform.                               " get_container_credential
module STATUS_0100 output.
  SET PF-STATUS 'ZYH454_TEST1'.
  SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_0100  OUTPUT
module USER_COMMAND_0100 input.
if sy-ucomm EQ 'BACK'.
  leave to screen 0.
endif.
endmodule.                 " USER_COMMAND_0100  INPUT