填入长文本'SAVE_TEXT'

ABAP 对长文本的操作 SAVE_TEXT & READ_TEXT(2011-06-12 19:34:26)转载▼标签： abapheadertextitem杂谈 分类： R/3-ABAP  
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.

2012-10-11    09:40:58  黄健