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.