FI 凭证行项目长文本

 保存函数：SAVE_TEXT
 取值函数：READ_TEXT

  CONCATENATE LT_RETURN-MESSAGE_V2+10(4)  " 公司代码
              LT_RETURN-MESSAGE_V2+0(10)  " 会计凭证
              LT_RETURN-MESSAGE_V2+14(4)  " 会计年度
              '001'                       " 3位行项目号
         INTO LV_OBJ.
  PERFORM FRM_STXD_SAVE_TEXT USING 'FI_ITEM' LV_OBJ 'test_abc_def'.

*&---------------------------------------------------------------------*
*&      Form  FRM_STXD_SAVE_TEXT
*&---------------------------------------------------------------------*
*       text 
*----------------------------------------------------------------------*
FORM FRM_STXD_SAVE_TEXT  USING    PV_TYP
                                  PV_OBJ PV_TXT.

  DATA: LT_HEAD TYPE TABLE OF THEAD WITH HEADER LINE.
  DATA: LT_LINE TYPE TABLE OF TLINE WITH HEADER LINE.
  CLEAR: LT_HEAD,LT_HEAD[].
  CLEAR: LT_LINE,LT_LINE[].

  IF PV_OBJ IS NOT INITIAL.
    CASE PV_TYP.
      WHEN 'FI_ITEM'.
        LT_HEAD-TDOBJECT   = 'DOC_ITEM'."
        LT_HEAD-TDSPRAS    = SY-LANGU.
        LT_HEAD-TDNAME     =  PV_OBJ.
        LT_HEAD-TDID       = '0001'.
        LT_HEAD-TDTITLE    = 'ITEM LONG TEXT'.
        LT_HEAD-TDFORM     = 'SYSTEM'.
        APPEND LT_HEAD.
      WHEN OTHERS.
    ENDCASE.

    LT_LINE-TDFORMAT = '*' .
    LT_LINE-TDLINE   = PV_TXT.
    APPEND LT_LINE.

    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        CLIENT          = SY-MANDT
        HEADER          = LT_HEAD
        INSERT          = 'X'
        SAVEMODE_DIRECT = 'X'
      TABLES
        LINES           = LT_LINE
      EXCEPTIONS
        ID              = 1
        LANGUAGE        = 2
        NAME            = 3
        OBJECT          = 4.
    IF SY-SUBRC = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          WAIT = 'X'.
    ENDIF.
  ENDIF.
ENDFORM.                    " FRM_STXD_SAVE_TEXT