ABAP 对长文本的操作 SAVE_TEXT & READ_TEXT

最新推荐文章于 2025-06-09 23:33:00 发布

superying

最新推荐文章于 2025-06-09 23:33:00 发布

阅读量9.1k

点赞数 1

文章标签： header archive function object reference insert

本文详细介绍了如何使用SAVE_TEXT函数创建文本，并通过一个具体的实例展示了如何使用该函数进行文本创建和读取的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

REPORT   zgo_test_15.

DATA: gs_header TYPE thead .
DATA: gt_ltxts TYPE STANDARD TABLE OF tline .
DATA: lw_ltxt  TYPE tline .

START-OF-SELECTION .


  CLEAR gt_ltxts[] .
  CLEAR lw_ltxt .

   lw_ltxt-tdformat = '*' .
   lw_ltxt-tdline = 'this is create by save_text .'.
  APPEND lw_ltxt TO gt_ltxts .

  CLEAR gs_header .
   gs_header-tdobject = 'VBBK' .
   gs_header-tdid      = '0001'.
   gs_header-tdspras   = '3'.
   gs_header-tdname    = '0080000001'.

  CALL FUNCTION 'SAVE_TEXT'
    EXPORTING
      client                 = sy-mandt
      header                 = gs_header
*    INSERT                 = ' '
*    SAVEMODE_DIRECT        = ' '
*    OWNER_SPECIFIED        = ' '
*    LOCAL_CAT              = ' '
* IMPORTING
*    FUNCTION               =
*    NEWHEADER              =
    TABLES
      lines                  = gt_ltxts .
* EXCEPTIONS
*    ID                     = 1
*    LANGUAGE               = 2
*    NAME                   = 3
*    OBJECT                 = 4
*    OTHERS                 = 5
   .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.



    CALL FUNCTION 'READ_TEXT'
    EXPORTING
      client                         = sy-mandt
      id                             = '0001'
      language                       = '3'
       name                           = '0080000001'
      object                         = 'VBBK'
*    ARCHIVE_HANDLE                 = 0
*    LOCAL_CAT                      = ' '
   IMPORTING
     header                         = gs_header
    TABLES
      lines                          = gt_ltxts
   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.
  ENDIF.

  LOOP AT gt_ltxts INTO lw_ltxt .

    WRITE / lw_ltxt-tdline .

  ENDLOOP.