SQ02 或者ABAP读取订单抬头文本

READ_TEXT to query the PO header Text

data: text_lines      type standard table of tline,
      list_text_line  type tline,
      po_number       type tdobname.

if sy-subrc = 0.
po_number = ekko-ebeln.
            call function 'READ_TEXT'
            exporting
              client                  = sy-mandt
              id                      = 'F01'
              language                = sy-langu
              name                    = po_number
              object                  = 'EKKO'
            tables
              lines                   = text_lines
            exceptions
              id                      = 1
              language                = 2
              name                    = 3
              not_found               = 4
              object                  = 5
              reference_check         = 6
              wrong_access_to_archive = 7
              others                  = 8.

pocomments = ''.
if sy-subrc = 0 and text_lines is not initial.
  
loop at text_lines into list_text_line.
   concatenate pocomments list_text_line-tdline into pocomments separated by space.
endloop.

endif.
endif.