SAP 获取采购订单表头长文本

长文本不是直接存在某个table中，你在（me23n）可以双击该文本，然后选择菜单goto->header，查看该文本的技术信息 然后通过function module 'read_text'，输入相关的技术信息，取得该文本

DATA: BEGIN OF T_LINES OCCURS 50.
  INCLUDE STRUCTURE TLINE.
DATA: END OF T_LINES.

DATA: BEGIN OF HTEXT.
        INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.

DATA: TNAME LIKE THEAD-TDNAME.
DATA: S_LINE(100) TYPE C.

   TNAME = open_po-ebeln.    " 将采购单号码付给变量 
   S_LINE = ''.
   CLEAR T_LINES.
   REFRESH T_LINES.

*-- 采购表头长文本

 CALL FUNCTION 'READ_TEXT'
       EXPORTING
          CLIENT                     = SY-MANDT
          ID                               = 'F01'
          LANGUAGE             = '1'
          NAME                        = TNAME
          OBJECT                   = 'EKKO'
         ARCHIVE_HANDLE          = 0
     IMPORTING
          HEADER                  = HTEXT
     TABLES
          LINES                       = T_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.

      LOOP AT T_LINES.
        IF T_LINES-TDLINE NE ''.
          CONCATENATE S_LINE T_LINES-TDLINE INTO S_LINE.
        ENDIF.
        ENDLOOP.
       open_po-LTEXT =  S_LINE.

    ENDIF.