<长文本、一>SAP 通过SE75创建长文对象以及调用创建的对象操作方法介绍

         ABAP程序开发中，进行需要通过长文本来记录一些文本类的记录，这样就需要我们首先创建一个长文本对象，然后在程序中才可以进行调用，现在对创建 长文本对象的方法进行一个介绍：

1. T-CODE:SE75，如下图：

2.点击上图"Change"按钮，如下图

3.点击上图 "新建"图标，如下图

维护 

文本对象ZL_T_2   描述

保存状态：选择”更新“

编辑应用程序：TN

行宽：72

点击上图”绿勾“保存，如下图

4.双击新创建的文本对象行，如下图：

5.点击上图”新建“按钮，如下图

完善信息，保存，即可完成ZL_T_2长文本的创建

6.程序调用

DATA LV_NAME LIKE THEAD-TDNAME.    "Name
DATA GS_HEADER LIKE THEAD.      "SAPscript: Text Header.

DATA GT_TEXT LIKE STANDARD TABLE OF TLINE WITH HEADER LINE.

 

  GS_HEADER-TDSTYLE     = 'S_STERMC'.
  GS_HEADER-TDFORM     = 'S_DOCU_SHOW'.
  GS_HEADER-TDTITLE     = 'GLOSSAR'.

  GS_HEADER-TDOBJECT     = 'ZL_T_2'. "文本对象
  GS_HEADER-TDNAME     = LV_NAME.  "文本对象名
  GS_HEADER-TDSPRAS     = '1'.      "语言

  GS_HEADER-TDID      = '0001'.   "文本ID
  GS_HEADER-TDLINESIZE    = '72 '.   "行宽

 

读取长文本内容

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
*   CLIENT                        = SY-MANDT
      ID                       = '0001'
      LANGUAGE                    = '1'
      NAME                      = LV_NAME
      OBJECT                     = 'ZT_L_2'
    TABLES
      LINES                      = GT_TEXT
   EXCEPTIONS
     ID                        = 1
     LANGUAGE                     = 2
     NAME                       = 3
     NOT_FOUND                     = 4
     OBJECT                      = 5
     REFERENCE_CHECK                     = 6 
     WRONG_ACCESS_TO_ARCHIVE                     = 7
     OTHERS                      = 8

************

可编辑长文本的内容展示和编辑内容保存

************

PBO中：

CALL FUNCTION 'RH_EDITOR_SET'
    EXPORTING
      REPID          = SY-REPID
      DYNNR          = SY-DYNNR
      CONTROLNAME    = 'LT'      "屏幕空间名称
      MAX_COLS       = 79
      SHOW_TOOL      = 'X'
      SHOW_STATUS    = 'X'
      DISPLAY_MODE   = ''
    TABLES
      LINES          = GT_TAB
    EXCEPTIONS
      CREATE_ERROR   = 1
      INTERNAL_ERROR = 2
      OTHERS         = 3.

  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

PAI中：

CALL FUNCTION 'RH_EDITOR_GET'
    EXPORTING
      CONTROLNAME    = 'LT'     "定制控制名称
    TABLES
      LINES          = GT_TAB
    EXCEPTIONS
      INTERNAL_ERROR = 1
      OTHERS         = 2.

CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      CLIENT          = SY-MANDT
      HEADER          = GS_HEADER
      SAVEMODE_DIRECT = 'X'
*     INSERT          = 'X'
    TABLES
      LINES           = GT_TEXT.