ABAP-读取长文本函数

最新推荐文章于 2024-10-04 00:46:18 发布

TigerMan~

最新推荐文章于 2024-10-04 00:46:18 发布

阅读量23

点赞数

文章标签：前端

本文链接：https://blog.csdn.net/qq_42489747/article/details/133700190

版权

这段代码展示了如何使用SAP函数`READ_TEXT`从名为'CHARGE'的数据源中按特定规则提取matnr和charg字段，并将结果存入变量lv_string。通过循环遍历lt_line数据，确保数据行的tdline字段被正确更新。

摘要由CSDN通过智能技术生成

 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.