<ABAP> SAVE_TEXT, READ_TEXT 저장시 사용 펑션

    DATA : ls_contents(65535),
         lt_contents   LIKE TABLE OF ls_contents.

 

    DATA : ls_head       TYPE thead.
  DATA : lt_tline      TYPE tlinetab,
         ls_tline      TYPE tline.

 

    DATA : lv_insert     TYPE string.

 

ls_mms-zzsms_msg  <-- TYPE STRING.

    ls_head-tdid     = XXXX-tdid.   "SAVE TEXT 시에 저장할 KEY 값들 셋팅
  ls_head-tdobject = XXXX-tdobject .
  ls_head-tdname   = XXXX-tdname.
  ls_head-tdspras  = sy-langu.

 

    ls_contents = ls_mms-zzsms_msg .
  APPEND ls_contents TO lt_contents.  여기 담는다.

 

    CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'   <-- 컨버젼 필수
    TABLES
      text_stream = lt_contents
      itf_text    = lt_tline.

  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      header                = ls_head
      insert                = lv_insert
      savemode_direct       = 'X'   <-- 필수 사용
*   OWNER_SPECIFIED       = ' '
*   LOCAL_CAT             = ' '
* IMPORTING
*   FUNCTION              =
*   NEWHEADER             =
    TABLES
      lines                 = lt_tline
   EXCEPTIONS
     id                    = 1
     language              = 2
     name                  = 3
     object                = 4
     OTHERS                = 5.

 
 
 
 
 
------------------------ 해당 위치에 text를 넣는 방법. 커서 위치를 읽어서 그 부분에
텍스트를 입력할 수 있다. text insert
 

         PERFORM set_selected_textstream USING g_editor
                                            gs_mmstxt-name.

 

  FORM set_selected_textstream
  USING  po_editor TYPE REF TO cl_gui_textedit
         pv_text   TYPE clike .

  DATA:
    lv_string TYPE string.

  lv_string = pv_text.

  IF po_editor IS NOT INITIAL.
    CALL METHOD po_editor->set_selected_textstream
      EXPORTING
        selected_text          = lv_string
      EXCEPTIONS
        error_cntl_call_method = 1
        not_supported_by_gui   = 2
        OTHERS                 = 3.
  ENDIF.

ENDFORM.                    " SET_SELECTED_TEXTSTREAM