Long text creation in custom screens

Question

Hi
Can we add the functionality of adding a long text in the custom screen.
The long text should be same as the one which SAP provides in standard transactions.
If possible please tell me the solution.
Thanks & Regards
Kapil

Answer 1

HI,
yes you can add using TEXT AREA control here is the sample code.
insert a custom control area in the screen and create a object of the text editor.
check this code for PBO and PAI.
here TEDITOR is the custom contorl area name on screen
<b>MODULE PBO OUTPUT.
  IF EDITOR IS INITIAL.
*   set status
SET pf-status '1111'.
*   create control container
    CREATE OBJECT TextEdit_Custom_Container
        EXPORTING
            CONTAINER_NAME = 'TEDITOR'
        EXCEPTIONS
            CNTL_ERROR = 1
            CNTL_SYSTEM_ERROR = 2
            CREATE_ERROR = 3
            LIFETIME_ERROR = 4
            LIFETIME_DYNPRO_DYNPRO_LINK = 5.
    if sy-subrc ne 0.
*      add your handling
    ENDif.
    mycontainer = 'TEDITOR'.
*   create calls constructor, which initializes, creats and links
*   TextEdit Control
    create object editor
          exporting
           parent = TextEdit_Custom_Container
           WORDWRAP_MODE =
*               cl_gui_textedit=>wordwrap_off
              cl_gui_textedit=>wordwrap_at_fixed_position
*              cl_gui_textedit=>WORDWRAP_AT_WINDOWBORDER
           WORDWRAP_POSITION = line_length
           wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
*   to handle different containers
    container_linked = 1.
    refresh mytable.
  ENDIF.
ENDMODULE.                 " PBO  OUTPUT
MODULE pai INPUT.
case ok_code.
WHEN 'SAVE'.
*   retrieve table from control
clear: txt.
      call method editor->get_text_as_r3table
              importing table = mytable.
      loop at mytable into wa.
         concatenate txt wa into txt
         separated by '|'.
      endloop.
      shift txt left.
      length = strlen( txt ).
      ztext-CLUSTR = length.
      ztext-text   = txt.
      modify ztext.
      clear: ztext.
      refresh: mytable.
        call method editor->set_text_as_r3table
              exporting table = mytable.
      Message s000(zwa).
when 'DISP'.
      select single * from
      ztext
      where fund = ztext-fund.
     SPLIT ztext-text AT '|' INTO TABLE mytable.
        call method editor->set_text_as_r3table
              exporting table = mytable.
endcase.
clear: ok_code.
ENDMODULE.                 " pai  INPUT</b>
Regards,
Wasim Ahmed