SAP ABAP 长文本写入或读取 SAVE_TEXT / READ_TEXT

"  写入
DATA: GS_HEADER TYPE THEAD .
DATA: GT_LTXTS TYPE STANDARD TABLE OF TLINE .
DATA: LW_LTXT  TYPE TLINE .

START-OF-SELECTION .


  CLEAR GT_LTXTS[] .
  CLEAR LW_LTXT .
*
"  LW_LTXT-TDFORMAT = '1'.  
  LW_LTXT-TDLINE = '嘎嘎嘎嘎嘎过过过过'.   " 长文本
  APPEND LW_LTXT TO GT_LTXTS .

  CLEAR GS_HEADER.
  GS_HEADER-TDOBJECT = 'VBBK' .   "文本对象
  GS_HEADER-TDID      = 'Z003'.   "文本ID
  GS_HEADER-TDSPRAS   = SY-LANGU.  "语言
  GS_HEADER-TDNAME    = '0080015801'.  "输入参数


  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      CLIENT = SY-MANDT
      HEADER = GS_HEADER
      SAVEMODE_DIRECT = 'X'
    TABLES
      LINES  = GT_LTXTS.
  IF SY-SUBRC <> 0.
    ROLLBACK WORK .
  ELSE.
    COMMIT WORK AND WAIT .
  ENDIF.


"读取
  "DATA: C_TEXT1 TYPE STRING.               "长文本1
  DATA: U_NAME     TYPE TDOBNAME,
        U_TDID     TYPE TDID,
        U_TDOBJECT TYPE TDOBJECT,
        U_SPLIT    TYPE STRING.
  U_NAME = '0080015801'.    "订单号
  U_TDID ='Z003'.           "文本ID
  U_TDOBJECT = 'VBBK'.      "文本对象
  DATA: LS_STXH  TYPE STXH,
        LS_STXL  TYPE STXL,
        LT_LINES TYPE TABLE OF TLINE WITH HEADER LINE.
  DATA C_TEXT TYPE STRING .
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      CLIENT                  = SY-MANDT     
      ID                      = U_TDID  
      LANGUAGE                = SY-LANGU   
      NAME                    = U_NAME
      OBJECT                  = U_TDOBJECT
    TABLES
      LINES                   = LT_LINES[]
    EXCEPTIONS
      ID                      = 1
      LANGUAGE                = 2
      NAME                    = 3
      NOT_FOUND               = 4
      OBJECT                  = 5
      REFERENCE_CHECK         = 6
      WRONG_ACCESS_TO_ARCHIVE = 7
      OTHERS                  = 8.
  IF SY-SUBRC = 0.
    CLEAR C_TEXT.
    LOOP AT LT_LINES.
      CONCATENATE C_TEXT LT_LINES-TDLINE INTO C_TEXT SEPARATED BY
      U_SPLIT.  "解决回车事件 SPACE
      CLEAR LT_LINES.
    ENDLOOP.
    CONDENSE C_TEXT NO-GAPS.
    WRITE: C_TEXT.
  ENDIF.