save_text(保存长文本) - 《ABAP开发基础知识归纳》

��ZSD_SALESORDER_CREATE 459��/��save_text

DATA: gs_header TYPE thead .
DATA: lv_tdname LIKE thead-tdname.
DATA: gt_ltxts TYPE STANDARD TABLE OF tline .
DATA: lw_ltxt TYPE tline .
DATA :lv_number TYPE int4,
lv_i1 TYPE int4,
lv_i2 TYPE int4,
lv_str TYPE string.

IF wa_data_h-zwzdz_txt IS NOT INITIAL.
  lv_tdname = wa_data_h-vbeln. "�ı���
  lv_str    = wa_data_h-zwzdz_txt.
  lv_number = strlen( lv_str )."��ȡ�����ı��ĳ���
  CLEAR gt_ltxts[] .
  CLEAR: lw_ltxt,
         lv_number,
         lv_i1,
         lv_i2,
         lv_str,
         lv_tdname.
  lw_ltxt-tdformat = '' . "����������
  IF lv_number > 132. "���ı��ĳ���ÿ����132���ַ�,�����軻��
    DO 100 TIMES.
      IF lv_i1 < lv_number. "���lv_i1 С�� �����ı��ĳ���
        lv_i2 = lv_number - lv_i1."ȡlv_i2�ĳ���,�������132,��ֻ����132
        IF lv_i2 > 132.
          lv_i2 = 132.
        ENDIF.
      ENDIF.
      lw_ltxt-tdline = lv_str+lv_i1(lv_i2).
      lv_i1 = lv_i1 + 132.
      APPEND lw_ltxt TO gt_ltxts.
      IF lv_i1 > lv_number.
        EXIT.
      ENDIF.
    ENDDO.
  ELSE.
    lw_ltxt-tdline = wa_data_h-zwzdz_txt."���ı�
    APPEND lw_ltxt TO gt_ltxts.
  ENDIF.
  CLEAR gs_header.
  gs_header-tdobject = 'VBBK'.  "�ı�����
  gs_header-tdid     = 'WZ01'. "ID
  gs_header-tdspras  = '1'. "����
  gs_header-tdname   = lv_tdname.  "�ı���
  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
```

.
ENDIF.