ABAP 对长文本的操作 SAVE_TEXT & READ_TEXT

最新推荐文章于 2024-08-08 14:24:59 发布

SAP剑客

最新推荐文章于 2024-08-08 14:24:59 发布

阅读量6.4k

点赞数

文章标签： archive object header reference insert function

本文链接：https://blog.csdn.net/zhongguomao/article/details/6888905

版权

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 NUMBERSY-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-msgv1sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  LOOP AT gt_ltxts INTO lw_ltxt.

    WRITE /lw_ltxt-tdline .

  ENDLOOP.