long text 작업이 다음그림까지는 생성됬는데요

저장작업의 적용이 안되네요

버미님 자료까지 올려주셨는데 제가 보기에는 수준이 높네요 ㅠ

롱텍스트에 관한 소스 올립니다

제 소스에 맞는 소중한 의견 부탁드려요

오늘도 이문제로 머리 쓰고 있답니다 ㅠ.ㅠ

필드 wr 과 etc 필드에 각각의 텍스트의 입력한내용을 저장하게 하려는 것입니다.

text object는 알겠는데 아래 부분에 text id나 text name은 무엇을 의미하나요

문제점좀 알려주세요

  

WR_container type ref to cl_gui_custom_container,
 ETC_CONTAINER TYPE REF TO cl_gui_custom_container,
 text_editor    type ref to cl_gui_textedit.

 

CONSTANTS: gc_tdobject TYPE thead-tdobject VALUE 'ZTEXT'.

------------------------------------------------------------

 

FORM SAVE_DATA .

   data: begin of header.
          include structure thead.
  data: end of header.

  data: begin of lines occurs 0.
          include structure tline.
  data: end of lines.
  data: textlines type table of tline-tdline,
        wa_text type tline-tdline.

  call method text_editor->get_text_as_r3table
importing
     table              = textlines
exceptions
     others             = 1.
* Set SAPscript Header
  clear header.
  header-tdname = 'P_NAME' .         "Name
  header-tdobject = 'ZTEXT'.       "Object
  header-tdid = 'ZKSH'.              "Id
  header-tdspras = sy-langu.

* Move text from container to function module table

  clear  lines.  refresh lines.
  loop at textlines into wa_text .
    lines-tdline = wa_text.
    append lines .
  endloop.

  call function 'SAVE_TEXT'
       exporting
            client   = sy-mandt
            header   = header
       tables
            lines    = lines
       exceptions
            id       = 1
            language = 2
            name     = 3
            object   = 4
            others   = 5.

ENDFORM.                    " SAVE_DATA

---------------------------------------------------------------------

 

MODULE STATUS_0300 OUTPUT.

 SET PF-STATUS 'STATUS0300'.

 SET TITLEBAR 'TITLEBAR300'.

 check WR_container is initial.

  create object WR_container
     exporting
       container_name    = 'WR_CONTAINER'.

  check ETC_container is initial.

 create object ETC_container
     exporting
       container_name    = 'ETC_CONTAINER'.

  create object text_editor
              exporting
                   parent     = WR_container.

  create object text_editor
              exporting
                   parent     = ETC_container.

ENDMODULE.                 " STATUS_0300  OUTPUT