读取Long text的方法

最新推荐文章于 2024-07-14 03:49:53 发布

weixin_30897233

最新推荐文章于 2024-07-14 03:49:53 发布

阅读量420

点赞数

CC 4.0 BY-SA版权

文章标签： java 数据库 php

原文链接：http://www.cnblogs.com/sodacc/archive/2013/03/05/2944202.html

本文详细介绍了如何在ME53N中通过ABAP编程读取Item的文本信息，包括打开文本标签页、调用READ_TEXT函数模块及参数设置等步骤，并附带了代码示例。

ME53N读取item文本信息

第一，打开me53n，选中文本tab页如下图一所示，然后双击文本内容处，打开图二；

图一

第二，下图为图二，在菜单栏选中转到-->表头，打开图三

图二

第三，下图为图三

图三

第四，调用函数，传参介绍

READ_TEXT function中参数均可在图三中找到。

另特注明一点，

language一般设置为1，代表中文，不可用ZH

这儿有个很有意思的情况，就是你用SE37时可以使用ZH，也能跑出值，但在程序中如果使用会报错。

如果英文状态下也有维护，可设置为 sy-langu

DATA: BEGIN OF flines OCCURS 0.
        INCLUDE STRUCTURE tline.
DATA: END OF flines.
DATA: textname LIKE thead-tdname.
DATA: line type string .
CONCATENATE EBAN-BANFN EBAN-BNFPO INTO textname.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    CLIENT                        = SY-MANDT
    ID                            = 'B02'
    LANGUAGE                      = '1'
    NAME                          = textname
    OBJECT                        = 'EBAN'
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
* IMPORTING
*   HEADER                        =
  TABLES
    LINES                         = flines
 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.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
  "多行内容累加
  LOOP AT flines.
    IF flines-tdline ne ''.
      concatenate line '' flines-tdline  into line.
    endif.
  endloop.
ENDIF.

PR_ITEM_TEXT = line.

clear line.
clear textname.
clear flines.