1 DATA:lt_line TYPE TABLE OF tline,
2 lv_string TYPE thead-tdname.
3
4 CLEAR lv_string .
5 REFRESH lt_line.
6 "lv_string一般都是要找规律拼接起来的
7 lv_string = <fs_data>-matnr .
8 lv_string+44(10) = <fs_data>-charg .
9
10 CALL FUNCTION 'READ_TEXT'
11 EXPORTING
12 client = sy-mandt
13 id = 'VERM'
14 language = '1'
15 name = lv_string
16 object = 'CHARGE'
17 * ARCHIVE_HANDLE = 0
18 * LOCAL_CAT = ' '
19 * IMPORTING
20 * HEADER =
21 * OLD_LINE_COUNTER =
22 TABLES
23 lines = lt_line
24 EXCEPTIONS
25 id = 1
26 language = 2
27 name = 3
28 not_found = 4
29 object = 5
30 reference_check = 6
31 wrong_access_to_archive = 7
32 OTHERS = 8.
33
34 LOOP AT lt_line INTO DATA(ls_liness).
35 IF ls_liness-tdline IS NOT INITIAL.
36 "赋值
37 <fs_data>-tdline1 = <fs_data>-tdline1 && ls_liness-tdline.
38 ENDIF.
39 ENDLOOP.