读取Long 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.

 

原文地址如下，略作完善。

http://www.cnblogs.com/szfeng/archive/2012/05/21/2511641.html

 

2013.03.05 晴空万里。