少年休闲海

少年休闲海的SAP世界

ABAP 对长文本的操作 SAVE_TEXT & READ_TEXT

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'
      

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/zhongguomao/article/details/6888905
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭